If ou .. For & NExt ... ou est mon erreur

Signaler
Messages postés
31
Date d'inscription
dimanche 8 septembre 2002
Statut
Membre
Dernière intervention
20 juin 2003
-
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
voila g fais ujne programmation mais jiniore pourquoi elle ne fonctionne poas comme voulu

Voici mon script:

Dim Nball As Integer
-----------------------------------------------------------
Private Sub Form_Load()
Randomize Timer
Nball = Int(Rnd * 999 + 1)
End Sub
-----------------------------------------------------------
Private Sub Label1_Click()
Randomize Timer
Nball = Int(Rnd * 999 + 1)
Label8.Caption = "?"
Label9.Caption = "15"
Text1.Text = ""
End Sub
-----------------------------------------------------------
Private Sub Label5_Click()
End
End Sub
-----------------------------------------------------------

Private Sub Label6_Click()
Label8.Caption = Nball
End Sub
-----------------------------------------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
For x = 0 To 999
If KeyAscii = 13 Then
If Text1.Text = x Then
If Label9.Caption < 0 Then
Label11.Caption = "Vous avez échoué!"
If Val(Text1.Text) < Nball Then
Label3.Caption = "<"
Label9.Caption = Val(Label9.Caption) - 1
If Val(Text1.Text) > Nball Then
Label3.Caption = ">"
Label9.Caption = Val(Label9.Caption) - 1
If Val(Text1.Text) = Nball Then
Label11.Caption = "Vous avez Réussi!"
End If
End If
End If
End If
End If
End If
Next x
End Sub

1 réponse

Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Val(Label9.Caption) < 0 Then
Label11.Caption = "Vous avez échoué!"
End If
If Val(Text1.Text) < Nball Then
Label3.Caption = "<"
Label9.Caption = Val(Label9.Caption) - 1
Text1.Text = ""
End If
If Val(Text1.Text) > Nball Then
Label3.Caption = ">"
Label9.Caption = Val(Label9.Caption) - 1
Text1.Text = ""
End If
If Val(Text1.Text) = Nball Then
Label11.Caption = "Vous avez Réussi!"
End If
End If
End Sub
0