bonjour
houlaa ...
Le mieux au départ pour apprendre c´est la méthode "Caliban". En gros tu te mets a la place de l´ordi et tu fais exactement ce que tu écris.
Donc,
VOyons ce que ca donne ...
For i = 1 To 35
i = i + t
If i > 35 Then Exit For
Picture37(i).Visible = True
Next
Donne :
Pour une valeur I qui va de 1 à 35
i=i+t
si i > 35 alors je sors
picture37(index de i) devient visible
Retour
On lance le programme
(je ne sais pas ce que vaut "t" mais "i" je sais vu qu´il va de 1 à 35 donc au premier tour, il vaut 1..)
i = 1
t = 8 (j´prends un truc au pif vu qu´on me le dit pas)
PASSAGE 1 :
i=i+t
i = 1 + 8 donc 9
picture37(9) devient visible
PASSAGE 2:
i = i+1 -propriété de la boucle for-next est de rajouter 1 a l´index de la boucle (i)
i = 10
i=i+t donc i=10+8=18
picture37(18) devient visible
etc..
En gros, il faut pour ton besoin que :
1. tu effaces le pion d´ou il etait avant.
2. tu déplaces le pion sur la case choisie
3. tu affiches le pion sur la case choisie.
´t´ est le résultat du dé
Private Sub Command6_Click()
Picture37(i).Visible = false (on efface le pion)
i = i + t (on positionne le pion)
Picture37(i).Visible = True (on affiche le pion)
End Sub
J´espère avoir a peut pres répondu et si probleme demande, je serai heureux de t´aider.
a++
Nico.