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
Codes Sources
A voir également
- Nombre de piece domino
- Nombre piece domino - Meilleures réponses
- Domino nombre de pièces - Meilleures réponses
- Programme calculant nombre de pièces pour surface (m²) - Codes sources - Java (Application)
- Nombre d'enregistrements + Pièce jointe (VB6) ✓ - Forum - Visual Basic 6
- Madhava de sangamagrama utilise la somme des termes d’une suite pour calculer les décimales du nombre π ; cependant il ne peut e - Guide
- Deviner un nombre entre 1 et 100 javascript - Guide
- Compter le nombre de voyelle en langage c ✓ - Forum - C / C++ / C++.NET
7 août 2006 à 00:28
25 juil. 2006 à 17:35
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 )
20 juil. 2006 à 10:52
Merci à tous pour votre aide et à bientôt.
20 juil. 2006 à 10:11
'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!
@+
20 juil. 2006 à 09:50
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
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.