JEU DE MASTER MIND

cqui789 Messages postés 261 Date d'inscription jeudi 13 janvier 2005 Statut Membre Dernière intervention 18 mai 2009 - 26 févr. 2005 à 14:49
cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 - 30 mars 2005 à 13:40
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

cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 15
30 mars 2005 à 13:40
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
cqui789 Messages postés 261 Date d'inscription jeudi 13 janvier 2005 Statut Membre Dernière intervention 18 mai 2009 3
26 févr. 2005 à 14:49
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...
Rejoignez-nous