Nombre aléatoire à partir d'un formulaire Résolu

Question

Bonjour, 

ce formulaire est basé d'après le jeu du Plus ou Moins.

Private Sub OK_Click()
Dim nb As Integer
nb = (Rnd * 200)

   If Nombre1.Value < nb Then
    Nombre2.Caption = "C'est plus !"
    Nombre1.SetFocus
   Else
    If Nombre1.Value > nb Then
    Nombre2.Caption = "C'est moins !"
    Nombre1.SetFocus
    Else
    If Nombre1.Value = nb Then
    Nombre2.Caption = "Bravo! C'est bien le " & nb
    Nombre1.SetFocus
      MsgBox "Voulez-vous recommencer?", , "Jeu - Plus ou Moins"
    End If
     End If
      End If
      Nombre1.Value = ""
End Sub


Pourriez-vous m'aider s'il voux plaît?

Merci
Configuration: Windows XP / Firefox 3.6.2

Polux31 · Answer

Bonjour,

Pour t'aider, il faudrait peut être que tu poses une question ou nous dire où est le problème.

Polux31 · Answer

Dans ce cas, il te faut faire une procédure d'initialisation du jeu.

Option Explicit

Private nbAlea As Integer

Private Sub InitJeu()

    Nombre2.Caption = ""
    Nombre1.Text = ""
    
    Randomize Timer
    
    nbAlea = Int(Rnd() * 200)
    
End Sub

Private Sub cmdValider_Click()
Dim rep As Long

If CInt(Nombre1.Text) < nbAlea Then
    Nombre2.Caption = "C'est plus !"
    Nombre1.SetFocus
   Else
    If CInt(Nombre1.Text) > nbAlea Then
        Nombre2.Caption = "C'est moins !"
        Nombre1.SetFocus
    Else
        If CInt(Nombre1.Text) = nbAlea Then
            Nombre2.Caption = "Bravo! C'est bien le " & nbAlea
            Nombre1.SetFocus
            rep = MsgBox("Voulez-vous recommencer?", vbYesNo, "Jeu - Plus ou Moins")
            If rep = vbNo Then
                Unload Me
                End
            Else
                InitJeu
            End If
        End If
    End If
End If
      

End Sub

Private Sub Form_Load()
    InitJeu
End Sub


;o)

omar · Answer

je ponse que ton probleme c'est (If Nombre1.Value = nb Then) ilm faut le remplacer par (If Nombre1.Value == nb Then) et essayé a nouveau

Polux31 · Answer

De rien,
Merci de mettre le sujet en résolu.

;o)

Nombre aléatoire à partir d'un formulaire

4 réponses

Discussions similaires

Newsletters