bonjour, j'eesaye de programmer un petit jeu, voila ce que j'ai écrit:

Public Class Form1
Dim i As Integer = 0
Dim s As String

Dim nbdone As Integer
Dim r As New Random
Dim al As Double
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dem.Click

al = r.Next(10)
MessageBox.Show(al.ToString)

End Sub





Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = 0.ToString
Label2.Text = 9.ToString
i = i + 1
compteur.Text = "tapez un nombre entre 0 et 9, chance n° " & i.ToString






End Sub





Public Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bouton1.Click

nbdone = Integer.Parse(TextBox1.Text)



Do
i = i + 1

If nbdone < al Then Label1.Text = nbdone.ToString

If nbdone > al Then Label2.Text = nbdone.ToString

TextBox1.Clear()
compteur.Text = "tapez un nombre entre 0 et 9, chance n° " & i.ToString



Loop While (nbdone <> al)


MessageBox.Show("c'est gagné")


End Sub
End Class

pouvez vous me dire pourquoi lorsque g passe ds la boucle, le text dans le label ne change pas merci a vous