1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| Sub Button1Click(sender As Object, e As EventArgs)
Dim de As New Random 'le lancer de dé
Dim R1 As Intege 'le 1er pion rouge
Dim J1 As Integer 'le 1er pion jaune
Dim casa1 As Integer =1 'case où est rendu le pion R1
Dim casa2 As Integer =1 'case où est rendu le pion J1
Dim cpt As Integer =0 'pour compter le nombre de tours
Dim resu As String
Do While (casa1<56) And (casa2<56)
R1=de.Next(1,6)
casa1=casa1+R1
J1=de.Next(1,6)
casa2=casa2+J1
cpt=cpt+1 'pour compter le nombre de tours de la partie
'ici c'est pour que les pions ne dépassent pas la case 56
If casa1>=56 Then
casa1=56
End If
If casa2>=56 Then
casa2=56
End If
Loop
resu=cpt &vbnewline &casa1 &vbnewline &casa2
lresu.Text=resu
End Sub |
Partager