Hello
J' ai un jeu dans lequel on lance le de en cliquant sur un bouton, j'utilise le resultat du lancer pour faire avancer des pions en utilisant la methode BringToTront(), les pions etant cache derriere des PictureBox.
Probleme, le de en roulant change de valeur continuellement jusqu'a ce qu'il s'arrete, ce qui occasionne le pion de flasher sur les differentes cases du jeu.
Comment lire le resultat du lancer quand le de c'est arrete et pas avant. J'ai essaye cette methode sans succes "
System.Threading.Thread.Sleep(0)"
Private
Sub btnRollDice_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRollDice.Click
tmrStart.Enabled = True
tmrStop.Interval = CInt((10 * Rnd()) + 1) * 250
tmrStop.Enabled = True
End Sub
Private Sub tmrStart_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrStart.Tick
Dim Dice As Integer
Dim Yellow As Integer
Dice = CInt((6 * Rnd()) + 1)
Select Case Dice
Case 1
diceRoll.Image = Image.FromFile("D:\MYGAME\bin\dice1.jpg")
Case 2
diceRoll.Image = Image.FromFile("D:\MYGAME\bin\dice2.jpg")
Case 3
diceRoll.Image = Image.FromFile("D:\MYGAME\bin\dice3.jpg")
Case 4
diceRoll.Image = Image.FromFile("D:\MYGAME\bin\dice4.jpg")
Case 5
diceRoll.Image = Image.FromFile("D:\MYGAME\bin\dice5.jpg")
Case 6
diceRoll.Image = Image.FromFile("D:\MYGAME\bin\dice6.jpg")
End Select
Yellow += Dice
White + = dice
txtdice.Text = Format(Yellow)
If Yellow = 1 or White = 1 Then
PictureBox1.BringToFront()
Else : PictureBox1.SendToBack()
If Yellow = 2 or White = 2 Then
PictureBox1.BringToFront()
Else : PictureBox1.SendToBack()
End If
' etc.le code continue
End If
End Sub