Discussion :

[phoenix_91]

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

[olsimare]

Bonjour.

Remarque 1 : Merci d'utiliser le balise [Code], c'est plus facile à lire !

Remarque 2 : Il me semble que tu as une boucle infini là :

Code :

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

1
2
3
4
5
6
7
8
 
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)

Tel que c'est écrit, tu boucles car ni nbdone, ni al ne varie entre le Do et le Loop.
A mon avis, tu veux en fait que l'utilisateur ressaisise dans le textbox mais si c'est ça y'a un petit probléme consceptuel !

Cdt.

[phoenix_91]

oui, en fait je veux que lorsque l'utilisateur entre un nombre ds la textbox, alors cela modifie le label 1 ou le label 2, mas je veux insérer un compteur, comment puis je faire peut tu m'aider merci

[Aspic]

oui, en fait je veux que lorsque l'utilisateur entre un nombre ds la textbox, alors cela modifie le label 1 ou le label 2, mas je veux insérer un compteur, comment puis je faire peut tu m'aider merci

Pour inserer un compteur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim Cpt as Integer = 0
Do
i = i + 1
Cpt += 1 'incrementation du compteur
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
If Cpt = 10 then Exit Do 'après 10 boucles, on sort par exemple
Loop While (nbdone <> al)

Sinon ta variable i n'est declarere nulle part et sert à rien on dirait...

[phoenix_91]

merci cétait ça que j'arrivai pas a faire maintenant je comprend
merci

[Aspic]

Pas de quoi

PS : Ca serait bien pour la communauté si tu pouvais éditer ton premier post et rajouter les balises "CODE" pour faciliter la lisibilité de ton post ! De plus rajoute la mention résolu si tu as trouvé la solution à ton probleme !

Cordialement

[phoenix_91]

un nouveau probleme se pose ,dans les labels rien ne se passe