JEU DE MASTER MIND

Signaler
Messages postés
261
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
18 mai 2009
-
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/29730-jeu-de-master-mind

Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
Salut,

Sympa, ce serai cool si tu rajouter un score et un temps chrono en mode enduro !!! Avoir aussi pour le graphisme, je pense que tu peux trouver pas de sources pour améliorer ton graph...le faire évoluer...à toi de voir.

a+
Exploreur
Messages postés
261
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
18 mai 2009
3
Dit moi, dans la premiere sub, CmdJouer_Click(), les 8 lignes de la procedure en 9 lignes :

Dim TabIdx(15) As Integer, I As Integer, Tempo As Integer

Tempo = -4

For I = 1 To 12
Tempo = Tempo + 5
TabIdx(I) = Tempo
Debug.Print I, Tempo
Next I

' En fonction du n° d'essai (CompteJeux), la variable se positionne
'sur le n° d'index de la première image de la ligne

Idx = TabIdx(CompteJeux + 1)

ne pouraient-elles pas etre remplacees par :

Idx = CompteJeux * 5 + 1

Ce qui donne pour la sub:

Private Sub CmdJouer_Click()

' En fonction du n° d'essai (CompteJeux), la variable se positionne
'sur le n° d'index de la première image de la ligne

Idx = CompteJeux * 5 + 1

Call Vérification ' Lance la sous-procédure "Vérification"

End Sub

bon, je n'ai pas vu le reste...