Sujet Précédent Sujet Suivant

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 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 15 févr. 2006 à 17:31
Bonjour à tous

Je vais essayer d'être explicite :

Je dois faire un petit programme en VB qui doit la chose suivante :

Tirer un nombre aléatoirement, on ne doit pas le voir et ensuite a nous d ' écrire un nombre dans un champ et si le nombre qu'on a entrer est plus grand que le nombre que l'ordinateur à choisit ca nous marque par exemple : "trop grand" et pareil quand on entre un nombre plus petit.
Jusqu à tomber sur le bon nombre et la il serait par exemple écrit GAGNE

Je dois faire ça pour un prof ca sera note et en plus faut que ce tout jolie...

HELP ME!!!

Merci d avance

1 réponse

Réponse 1 / 1
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 59
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
0
Rejoignez-nous