cqui789
Messages postés261Date d'inscriptionjeudi 13 janvier 2005StatutMembreDernière intervention18 mai 2009
-
26 févr. 2005 à 14:49
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 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.
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 201615 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és261Date d'inscriptionjeudi 13 janvier 2005StatutMembreDernière intervention18 mai 20093 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"
30 mars 2005 à 13:40
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
26 févr. 2005 à 14:49
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...