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
Partager