Simuler un jeu de petits chevaux sur Vb.net

**pol35** · 09/04/2012, 14h23

Bonjour à tous,
Je suis étudiant en STID ( Statistique Décisionnelle et Informatique), et nous avons, pour un projet, besoins de simuler une partie de petits chevaux sur Vb.net. Alors, j'arrive à faire avancer les chevaux de x cases après chaque lancer d'un dé de façon aléatoire entre 1 et 6, mais là où ça se complique s'est que les chevaux ne peuvent commencer à avancer que lorsque on a obtenue un 6. Déjà cette première règle me bloque dans mon algorithme, c'est donc pourquoi je fait appelle à vous.
Si quelqu'un est en mesure de m'aider ce serait chouette

Merci d'avance

**ram-0000** · 09/04/2012, 14h30

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
/* init */
AllowedToStart = false
 
/* cours du jeu */
if(AllowedToStart == false)
{
   if(Lancede() == 6)
   {
      AllowedToStart = true
   }
}
else
{
   nb = LanceDe()
   AvanceCheval(nb)
}

**pol35** · 09/04/2012, 15h51

Bonjour,
merci de votre réponse, mais je ne comprend pas tout car je n'es peut-être pas exactement le logiciel, je n'ai pas de { .. } par exemple, voici à quoi ressemble mon début de programme : avec deux joueurs et 1 pion chacun

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Sankasssss** · 09/04/2012, 16h25

Bonjour,

le code que ram-000 vous a donné est écrit en C#, il existe des traducteurs (dont celui-ci) afin de le mettre en VB.NET, ce qui nous donnes ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
AllowedToStart = false
If (AllowedToStart = false) Then
    If (Lancede = 6) Then
        AllowedToStart = true
    End If
Else
    nb = LanceDe
    AvanceCheval(nb)
End If