Nombre magic
superkiki68
Messages postés
1
Date d'inscription
mercredi 15 février 2006
Statut
Membre
Dernière intervention
15 février 2006
-
15 févr. 2006 à 16:52
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 15 févr. 2006 à 17:31
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 15 févr. 2006 à 17:31
1 réponse
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
15 févr. 2006 à 17:31
15 févr. 2006 à 17:31
Salut,
Tu mets un textBox appele TexteEntre dans un formulaire et tu recopie le code suivant.
Ca devrait te donner un point de depart:
Option Explicit
Private MonNombre As Single
Private Sub Form_Load()
'Tire un nombre entre 1 et 100
MonNombre = Int((100 * Rnd) + 1)
End Sub
Private Sub TextEntre_KeyPress(KeyAscii As Integer)
'si on appuie sur Entrée alors...
If KeyAscii = vbKeyReturn Then
Select Case Val(TextEntre.Text)
Case Is < MonNombre: MsgBox "Trop Petit"
Case Is > MonNombre: MsgBox "Trop Grand"
Case Is = MonNombre: MsgBox "GAGNE"
End Select
End If
End Sub
Voila en esperant avoir pu te depanner un peu
@+
Julien
Tu mets un textBox appele TexteEntre dans un formulaire et tu recopie le code suivant.
Ca devrait te donner un point de depart:
Option Explicit
Private MonNombre As Single
Private Sub Form_Load()
'Tire un nombre entre 1 et 100
MonNombre = Int((100 * Rnd) + 1)
End Sub
Private Sub TextEntre_KeyPress(KeyAscii As Integer)
'si on appuie sur Entrée alors...
If KeyAscii = vbKeyReturn Then
Select Case Val(TextEntre.Text)
Case Is < MonNombre: MsgBox "Trop Petit"
Case Is > MonNombre: MsgBox "Trop Grand"
Case Is = MonNombre: MsgBox "GAGNE"
End Select
End If
End Sub
Voila en esperant avoir pu te depanner un peu
@+
Julien
