Jeux de Nombre à deviner [Résolu]
Magnetoboy
Membre Dernière intervention
4 août 2011
- - Dernière réponse :
Magnetoboy
Membre Dernière intervention
4 août 2011
- 4 août 2011 à 08:55
- Messages postés
- 7
- Date d'inscription
- dimanche 31 juillet 2011
- Statut
- Messages postés
- 7
- Date d'inscription
- dimanche 31 juillet 2011
- Statut
A voir également:
- Jeux de nombre
- Tour de magie deviner un nombre - Meilleures réponses
- Jeux nombre - Meilleures réponses
- PHP : Tour de magie et jeux a nombres aléatoires - CodeS SourceS - Guide
- Jeux : deviner un nombre aléatoire - Codes sources - Visual Basic / VB.NET (Jeux)
- C# / .NET : Générateur aleatoire de nombre pour jeux de rôles - CodeS SourceS - Guide
- Les fonctions à nombre variable d?arguments - Conseils pratiques - C / C++ / C++.NET
- Nombres premiers - Conseils pratiques - Visual Basic / VB.NET
11 réponses
Meilleure réponse
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Bon.
J'avais fait mon test sous VB6
Sous VBA/Excel, c'est l'évènement Keydown et non l'évènement KeyPress, qu'il faut utiliser ===>>
____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
J'avais fait mon test sous VB6
Sous VBA/Excel, c'est l'évènement Keydown et non l'évènement KeyPress, qu'il faut utiliser ===>>
Private Sub Text1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Select Case Val(Text1.Text)
Case Is nb_a_trouver: Label1.Caption "gagné"
Case Is > nb_a_trouver: Label1.Caption = "trop grand"
Case Else: Label1.Caption = "trop petit"
End Select
KeyCode = 0
Text1.Text = ""
End If
End Sub
____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
152 internautes nous ont dit merci ce mois-ci
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Bonjour,
Non (pas à ma connaissance), mais rien n'empêche de le développer relativement facilement (sans avoir besoin de copier le voisin).
Planche d'abord sur le sujet et reviens si difficulté isolée, en l'exposant.
____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
Non (pas à ma connaissance), mais rien n'empêche de le développer relativement facilement (sans avoir besoin de copier le voisin).
Planche d'abord sur le sujet et reviens si difficulté isolée, en l'exposant.
____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
existe t'il sous Excel ou Flash
Ni l'un ni l'autre ne relève de la section (VB.Net) dans laquelle tu as ouvert ta discussion .
Si tu choisis VBA/Excel, voici le point de départ :
a_trouver = Int((50000 * Rnd) + 1)
Le reste est simple :
- Une textbox à disposition du joueur
- deux optionbuttons (plus haut / plus bas) à disposition de l'animateur pour signifier au joueur si sa réponse est inférieure ou supérieure
- utilisation de Application.Ontime pour le décompte à rebours du délai imparti.
Ce ne seront, en tout et pour tout, qu'une vingtaine de lignes de code !
____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
- Messages postés
- 7
- Date d'inscription
- dimanche 31 juillet 2011
- Statut
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Je n'étais pas très frais hier soir.
Tu n'as même pas besoin des optionbuttons (à remplacer par un simple et unique label d'information) puisque le programme sait quel nombre est à trouver.
Moins de 20 lignes, du coup !
____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
Tu n'as même pas besoin des optionbuttons (à remplacer par un simple et unique label d'information) puisque le programme sait quel nombre est à trouver.
Moins de 20 lignes, du coup !
____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Tiens ! vl'a faite la partie principale :
Sur ton userform : un bouton de commande Command1, une textbox Text1 et un label Label1
ce code :
l'animateur clique sur command1
le joueur entre ses nombres à tester dans Text1 et presse la touche Enter ===>> le label lui indique si gagné ou si inférieur ou si supérieur.
Je te laisse par contre faire ton "timer" car j'estime que ce qui est dit dans ton aide en ligne à propos de Application.Ontime est suffisamment clair.
____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
Sur ton userform : un bouton de commande Command1, une textbox Text1 et un label Label1
ce code :
Private nb_a_trouver As Long
Private Sub Command1_Click()
Randomize
nb_a_trouver = Int((50000 * Rnd) + 1)
Text1.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Select Case Val(Text1.Text)
Case Is nb_a_trouver: Label1.Caption "gagné"
Case Is > nb_a_trouver: Label1.Caption = "trop grand"
Case Else: Label1.Caption = "trop petit"
End Select
KeyAscii = 0
Text1.Text = ""
End If
End Sub
l'animateur clique sur command1
le joueur entre ses nombres à tester dans Text1 et presse la touche Enter ===>> le label lui indique si gagné ou si inférieur ou si supérieur.
Je te laisse par contre faire ton "timer" car j'estime que ce qui est dit dans ton aide en ligne à propos de Application.Ontime est suffisamment clair.
____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
- Messages postés
- 7
- Date d'inscription
- dimanche 31 juillet 2011
- Statut
- Messages postés
- 7
- Date d'inscription
- dimanche 31 juillet 2011
- Statut
Bonsoir à tous,
étant débutant, j'ai un peu de mal à placer cette macro dans Excel 2002:
je fais Outils/Macro/VB Editor/Affichage / code et je place les lignes de code ci-dessus.
je retourne sur maz feuille et lance la macro et bien il manque un truc car rien !
Merci de me dire quel train ou gare j'ai raté?
Jipé
étant débutant, j'ai un peu de mal à placer cette macro dans Excel 2002:
je fais Outils/Macro/VB Editor/Affichage / code et je place les lignes de code ci-dessus.
je retourne sur maz feuille et lance la macro et bien il manque un truc car rien !
Merci de me dire quel train ou gare j'ai raté?
Jipé
- Messages postés
- 7
- Date d'inscription
- dimanche 31 juillet 2011
- Statut
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Et après j'ai encore raté une gare ou un continent?
Je crains fort que ce ne soient les deux.
Le continent s'appelle Excel
La gare s'appelle VBA
Le GPS, pour y parvenir sans erreur, s'appelle l'aide dont est assorti ton outil. Ce GPS est à 2 "volets" :
- le premier est un mode d'emploi général, à lire avant d'étudier le contenu du second volet. Il est accessible depuis le menu général d'Excel
- le second volet (aide VBA) est accessible lorsque, fort de ce que l'on a appris en lisant le contenu du premier volet, on ouvre l'éditeur de VB
Tu ne peux aller bien loin sans passer par ces bases et il n'est pas possible de passer au-dessus de ton épaule pour te conduire à cette gare. Tout ce que nous pouvons faire et faisons, c'est, une fois que tu t'y trouves et que tu t'es mis aux commandes du train, te montrer comment le conduire pour faire face à tel ou tel autre obstacle.
Bonne chance et bonne étude.
____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
- Messages postés
- 7
- Date d'inscription
- dimanche 31 juillet 2011
- Statut
Bonjour et un grand merci pour ton aide très précieuse.
Je vais maintenant pouvoir m'en sortir grave à ta réponse Jacques. Il est vrai que je n'avo point pensé à c'te solution là ! mais un grand merci à toi ho grand sorcier des codes VBA.
je m'en vais donc appliquer tes philosophies.
encore merci et bonnes vacances.
Jipé
Je vais maintenant pouvoir m'en sortir grave à ta réponse Jacques. Il est vrai que je n'avo point pensé à c'te solution là ! mais un grand merci à toi ho grand sorcier des codes VBA.
je m'en vais donc appliquer tes philosophies.
encore merci et bonnes vacances.
Jipé