Jeu de domino avec intelligence artificielle (2 niveau)

Soyez le premier à donner votre avis sur cette source.

Vue 11 790 fois - Téléchargée 1 655 fois

Description

voila un jeu de domino avec IA (Facile , Moyen ) , avec une option de chat (c'est pas bien terminé ,mais vous pouvez ajouter d'autres messages et d'autre langues...)

option de choisir la resolution ,de langue ...

Conclusion :


a vous de tester ,notez ,commentez ...

Codes Sources

A voir également

Ajouter un commentaire Commentaires
rami3b Messages postés 17 Date d'inscription mardi 27 juillet 2004 Statut Membre Dernière intervention 8 décembre 2008
7 août 2006 à 00:28
mon commentaire est a propos du jeu:belle réalisation
cs_yahaa Messages postés 15 Date d'inscription vendredi 17 septembre 2004 Statut Membre Dernière intervention 11 mai 2007
25 juil. 2006 à 17:35
Le jeu est bien fait, l'IA marche bien.
Cependant la structure du programme est très très lourde.
Pour l'accelerer, les modifications à faire sont très importante.
En fait, cadriller la zone de jeu avec des ImageBox est la cause principale. Il faudrait utiliser les propriétés de la PictureBox 'domino_board'.
- Tu détectes les déplacements de la souris avec MouseMove et tu calcule sur quelle case est la souris. Tu utilise domino_board.Line pour définir le carré.
- Lorsque l'utilisateur place sa pièce, tu utilise domino_board.PaintPicture

Pense à mettre la propriété AutoRedraw de domino_board à True

Il y a aussi plus simple :
- à la place de :
For k 1 To tile.Count - 1: tile(k).BorderStyle 0: Next
If tile(Index).Picture 0 Then tile(Index).BorderStyle 1
tu met :
if Index <> IndSel then
tile(IndSel).BorderStyle = 0
If tile(Index).Picture 0 Then tile(Index).BorderStyle 1
IndSel = Index
End If

( Il faut déclarer IndSel en global )
cs_SDan Messages postés 288 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 13 juin 2008
20 juil. 2006 à 10:52
Je crois que la solution la plus simple pour moi car je suis débutant est de me procurer un module .dll car je l'ai vu pour pouvoir utiliser VB6 avec ma version

Merci à tous pour votre aide et à bientôt.
VBGenesis Messages postés 292 Date d'inscription samedi 25 février 2006 Statut Membre Dernière intervention 22 février 2009
20 juil. 2006 à 10:11
Salut SDan, aparament le round n'existe pas en VB5 donc il faudrait que tu le créé. Tu peux faire par exemple:

'La fonction round retourne le nombre arrondi
public fonction Round(Nombre as integer) as integer
'Si le dernier chiffre est 4 ou inférieur on arrondi à la valeur inférieur
if right(nombre, 1) <= 4 then
'Prend la premiere partie du nombre, sans le dernier chiffre et met 0
round = left(nombre, len(nombre)-1) & 0
'Sinon on arrondi a la valeur supérieur
else
'Idem qu'en haut mais on incrémente l'avant dernier chiffre de un
round = left(nombre, len(nombre)-2) & mid(nombre, len(nombre) - 2, 1) & 0
end if

Bon voila je sais pas si c'est très claire, sa va buger(quand on incrémente de 1 il faut prévoire quand c'est 9 etc...) et je ne sais pas si il y a les fonction left, right, mid et len en VB5, dans ce cas faudrait faire du VB6 sa marchera surement ;)
Teste la fonction si tu veux et dis si sa marche!

@+
DragonDo Messages postés 93 Date d'inscription lundi 8 avril 2002 Statut Membre Dernière intervention 22 juillet 2006
20 juil. 2006 à 09:50
Salut,
La fonction Round n'existe pas en VB5. Tu peux la coder en utilisant la source de Julien39 à l'adresse: http://www.vbfrance.com/codes/ENCADREMENTS-APPROXIMATIONS_35216.aspx. (remplace le nom roundapp par round).
Regarde également à l'adresse : http://www.vbfrance.com/forum.v2.aspx?ID=671735&post=ok c'est intéressant.

Bon cod
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.