[..] Mini Jeux + Question

[jamesst20]

Bonjours, J'essaie de créé un jeux pour trouver le chiffre avec la commande Random mais elle me donne des chifre a virgule et en plus sa marche mal comme vous pouvez le constater ici:

► Afficher le texteMini Jeux

Code : Tout sélectionner

$chiffre = Random(2,2)
$msgbox2 = $chiffre
MsgBox(0, "La Réponse", "La Réponse est " & $msgbox2)

$entrer = InputBox("Question", "Quel est le chiffre en 0 et 100?")

If $entrer = $chiffre Then MsgBox(0,"Réponse","Bonne Réponse")

If Not $entrer = $chiffre Then MsgBox(0,"Mauvaise", "Mauvaise Réponse")

Pour les test j'ai ajouté un MsgBox pour connaitre la réponse mais je vais l'enlever une fois terminer.

Voici les problemes:

1) Si je change la valeur de Random, meme si j'ai la bonne ou mauvaise réponse les msgbox n'affiche pas
2) Si on a la bonne réponse sa dit Bonne Réponse et ensuite on click sur Ok mais sa mes le message Mauvaise réponse apres.
3) J'aimerais que quand on entre la bonne réponse sa affiche le message Box et sa Quitte et que si on ne trouve pas la bonne réponse sa nous raffiche le InputBox

Merci de Votre aide

[timmalos]

Bon alors deja, le probleme avec Random sera resolu si vous prenez le temps de lire l'aide fournie avec cette fonction. Ils expliquent tres clairement comment obtenir un chiffre entier (1,2,3,4,etc)

1) Si je change la valeur de Random, meme si j'ai la bonne ou mauvaise réponse les msgbox n'affiche pas
Normal non? Cela vient de vos tests.

$chiffre = Random(2,2)
$entrer = InputBox("Question", "Quel est le chiffre en 0 et 100?")

Il faut utiliser ELSE !
De plus ajoutez Number() afin d'etre sur de comparer des nombres! Un utilisateur peut rentrer une chaine de charactere si il en a envie. Un principe, c'est de ne jamais se fier a la reponse d'un utilisateur : Il faut prevoir tous les coups
Ce qui donnerait

Code : Tout sélectionner

If Number($enter) = $chiffre Then 
    MsgBox(0,"Réponse","Bonne Réponse")
Else
 MsgBox(0,"Mauvaise", "Mauvaise Réponse") 
EndIf
 

2) Si on a la bonne réponse sa dit Bonne Réponse et ensuite on click sur Ok mais sa mes le message Mauvaise réponse apres.
Sans tenir compte de ma remarque ci-dessus
If Not $entrer = $chiffre Then MsgBox(0,"Mauvaise", "Mauvaise Réponse")
N'est pas une bonne condition, il faut utiliser $entrer<>$chiffre

3) J'aimerais que quand on entre la bonne réponse sa affiche le message Box et sa Quitte et que si on ne trouve pas la bonne réponse sa nous raffiche le InputBox
Vous n'avez plus qu'a apprendre a faire une boucle, avec une condition pour la reussite et une pour l'echec.

[jamesst20]

Super je vais fouiller sur le site pour la commande Random

Edit: J'ai trouver pour les nombre entier et la boucle mais si il y a un autre moyen que cette boucle while j'aimerais que quelqu'un me fasse un exemple Code Éditer

Sinon j'en suis la grace a toi

► Afficher le texteMini Jeux

Code : Tout sélectionner

$chiffre = Random(0, 100, 1)
While 1

$entrer = InputBox("Question", "Quel est le chiffre en 0 et 100?")

If Number($entrer) = $chiffre Then
    MsgBox(0,"Réponse","Bonne Réponse")
    Exit
Else
 MsgBox(0,"Mauvaise", "Mauvaise Réponse")
EndIf

WEnd

J'avais essayer le else mais j'avait une érreur de compilation faut croire que je fesait une érreur

Maintenant je vais essayer de rajouter le jeux 2 joueurs et qu'on puisse choisir nous meme les chiffre de ? à ? et aussi la fonction pour avoir un Indice

A+



Merci

A+

[DJSIR]

c'est pas pour dire mais on appelle ça le jeu du plus ou du moins et d'après mes souvenirs lointains, ce code est dans le tutoriel de Tim...

[timmalos]

Vous savez comment faire une boucle : While, alors essayez! La synthaxe est simplissisme et l'aide est disponible en francais et en anglais. Ouvrez Scite, copiez votre boucle et votre code deja fait, vous aurez presque finit le mini-jeu...

@DJSIR Je crois qu'après avoir vu ca je vais revoir mes pretentions a la baisse concernant le tutoriel et ne pas mettre disponible aux debutants...

[DJSIR]

C'est vrai que ce jeu est encore plus difficile a réaliser que de manier les objets !

[jamesst20]

Salut, J'avait fait la boucle While mais j'avait éditer mon autre message a place

Sinon il y a une autre maniere que le while que j'ai fait je suis preneur pour en apprendre plus

Maintenant voici ce que je vais faire:

Maintenant je vais essayer de rajouter le jeux 2 joueurs et qu'on puisse choisir nous meme les chiffre de ? à ? et aussi la fonction pour avoir un Indice

Merci

A+

[DJSIR]

t'as jeté un coup d'oeuil au tutoriel de Tim ?

[jamesst20]

Umm non? Lequel?

[DJSIR]

Celui dans la partie Tutoriels

[jamesst20]

Dans quel section? Commenca coriger? Tu peut éditer les message ?

Sinon qu'elle qu'un sais pourquoi sa ne fonctionne pas?

Code : Tout sélectionner

$nb = InputBox("De quoi à Quoi?", "Quel est le minimum chiffre possible?")
$nb2 = InputBox("De quoi à Quoi?", "Quel est le maximum chiffre possible?")
$chiffre = Random($nb & $nb2 & 1)
 

Merci

[timmalos]

$chiffre = Random($nb , $nb2 , 1)

[jamesst20]

Super Merci

[jamesst20]

Salut à tous
Puisque aujourd'hui je n'avait rien a faire pour l'instant, J'Ai décider d'ajouter quelque fonction:

-Possibilité de jouer 2 joueurs
-Possibilité de quitter
-On ne voit pas la réponse que la personne entre à 2 joueurs
-Affiche la bonne réponse dans le Msgbox une fois la bonne réponse trouver

► Afficher le texteCode du Jeux

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


$Form1 = GUICreate("Form1", 372, 106, 192, 124)
$oneplayer = GUICtrlCreateButton("Un Joueur", 8, 16, 172, 70, $BS_FLAT)
$twoplayer = GUICtrlCreateButton("Deux Joueurs", 192, 16, 172, 70, $BS_FLAT)
GUISetState(@SW_SHOW)




While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
;Button un joueur
        Case $oneplayer
            ;Minimum
                $nb = InputBox("De quoi à Quoi?", "Quel est le minimum chiffre possible?")
                if @error = 1 then
    Exit
EndIf
;Maximum
$nb2 = InputBox("De quoi à Quoi?", "Quel est le maximum chiffre possible?")
if @error = 1 then
    Exit
EndIf
;Donne un chiffre au hazard
$chiffre = Random($nb, $nb2, 1)
            while 1
;Demande quel est le chiffre
$entrer = InputBox("Question", "Quel est le chiffre entre " & $nb & " et " & $nb2 & " ?")
If @error = 1 then
    Exit
EndIf

;Regarde si on a la bonne réponse
If Number($entrer) = $chiffre Then
    MsgBox(0,"Réponse","Bonne Réponse! La réponse était bien " & $chiffre)
    Exit
Else
    ;mauvaise réponse mais a cause du While il recommence
 MsgBox(0,"Mauvaise", "Mauvaise Réponse")
EndIf
WEnd

Case $twoplayer
        ;Minimum
                $nb = InputBox("De quoi à Quoi?", "Quel est le minimum chiffre possible?")
                if @error = 1 then
    Exit
EndIf
;Maximum
$nb2 = InputBox("De quoi à Quoi?", "Quel est le maximum chiffre possible?")
if @error = 1 then
    Exit
EndIf
;Donne un chiffre au hazard
$chiffre = Random($nb, $nb2, 1)
            while 1
;Demande quel est le chiffre


$entrer = InputBox("Joueur 1", "Joueur 1: " & @CRLF & "Quel est le chiffre entre " & $nb & " et " & $nb2 & " ?", "","*")
If @error = 1 then
    Exit
EndIf

;Regarde si on a la bonne réponse
If Number($entrer) = $chiffre Then
    MsgBox(0,"Réponse","Bonne Réponse! La réponse était bien " & $chiffre)
    Exit
Else
    ;mauvaise réponse mais a cause du While il recommence
 MsgBox(0,"Mauvaise", "Mauvaise Réponse")
EndIf



$entrer = InputBox("Joueur 2", "Joueur 2: " & @CRLF &"Quel est le chiffre entre " & $nb & " et " & $nb2 & " ?", "","*")
If @error = 1 then
    Exit
EndIf

;Regarde si on a la bonne réponse
If Number($entrer) = $chiffre Then
    MsgBox(0,"Réponse","Bonne Réponse! La réponse était bien " & $chiffre)
    Exit
Else
    ;mauvaise réponse mais a cause du While il recommence
 MsgBox(0,"Mauvaise", "Mauvaise Réponse")
EndIf
WEnd


EndSwitch
WEnd

Si vous trouver des érreurs Merci de me le dire

A+

[pop45]

Bug constat"
-possibilité de rentre 2 meme chifre ce qui fait automatiquement gagner
-posibilité de metre 100 dans minimum et 1 dans maximoe ce qui fait buguer

Amelioratio a faire
-corriger les bug precedent
-aider l'utilisateur en lui indiquant les chifre deja mis
-laisse le decalage dans le code pourr que on comprene mieu pour voir ou s'arrete les While ou If

[jamesst20]

Je le ferais

Mais est-ce que on peut ajouter un bouton dans un InputBox par exemple "Indice"

Merci

A+

[DJSIR]

Je t'ai déja dit NON ! Tu peux recréer la GUI de la InputBox mais pas y ajouter tes boutons !

Le plus simple serait de la trouver dans les includes

[pop45]

et pourquoi pas dire "plus grand" ou plus petit " quand le mec se trompe au lieu de sortir mauvaise reponse

[jamesst20]

Bonjours à tous, j'ai un probleme que je ne suis pas capable d'y remédier

-J'aimerais faire un GUI au lieu de un InputBox (Voir la ligne 54 dans mon code plus bas) ou sa:

Code : Tout sélectionner

;Demande quel est le chiffre
$entrer = InputBox("Question", "Quel est le chiffre entre " & $nb &  " et " & $nb2 & "?")

-Je suis pas capable de faire un GUI qui remplace le InputBox avec les $nb et $nb2
-Je suis pas capable avec le GUI qui remplace le InputBox de faire fonctionner le code corectement

Voici mon code Complet:

► Afficher le texteMini Jeux mes sans GUI au niveau de l'inputBox

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>

$Form1 = GUICreate("Form1", 372, 106, 192, 124)
$oneplayer = GUICtrlCreateButton("Un Joueur", 8, 16, 172, 70, $BS_FLAT)
$twoplayer = GUICtrlCreateButton("Deux Joueurs", 192, 16, 172, 70, $BS_FLAT)
GUISetState(@SW_SHOW)

$Form2 = GUICreate("De quoi à quoi?", 228, 150, 193, 124)
$nbcase = GUICtrlCreateInput("Le plus petit chiffre ici", 48, 40, 129, 21)
$Label1 = GUICtrlCreateLabel("Le Plus Petit Chiffre", 32, 8, 164, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$MyButton1 = GUICtrlCreateButton("Ok", 8, 112, 68, 30, $BS_FLAT)
$MyButton2 = GUICtrlCreateButton("Annuler", 152, 112, 68, 30, $BS_FLAT)
GUISetState(@SW_HIDE)

$Form3 = GUICreate("De quoi à quoi?", 228, 150, 193, 124)
$nbcase2 = GUICtrlCreateInput("Le plus grand chiffre ici", 48, 40, 129, 21)
$Label2 = GUICtrlCreateLabel("Le Plus grand chiffre" , 32, 8, 180, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$MyButton3 = GUICtrlCreateButton("Ok", 8, 112, 68, 30, $BS_FLAT)
$MyButton4 = GUICtrlCreateButton("Annuler", 152, 112, 68, 30, $BS_FLAT)
GUISetState(@SW_HIDE)
$Form4 = GUICreate("Quel est le chiffre?", 341, 175, 192, 124)
$entrer = GUICtrlCreateInput("Quel est le chiffre?", 24, 56, 281, 21)
$Label3 = GUICtrlCreateLabel("Quel est le chiffre entre ?", 32, 8, 274, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$MyButton5 = GUICtrlCreateButton("Ok", 8, 136, 100, 30, $BS_FLAT)
$MyButton6 = GUICtrlCreateButton("Indice", 120, 136, 100, 30, $BS_FLAT)
$MyButton7 = GUICtrlCreateButton("Annuler", 232, 136, 100, 30, $BS_FLAT)
GUISetState(@SW_HIDE)


While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
;Button un joueur
        Case $oneplayer
GUISetState(@SW_SHOW,$Form2)
Case $MyButton1, $nbcase
$nb = GUICtrlRead($nbcase)
GUISetState(@SW_HIDE, $Form2)
GUISetState(@SW_SHOW, $Form3)
Case $MyButton3, $nbcase2
$nb2 = GUICtrlRead($nbcase2)
GUISetState(@SW_HIDE, $Form3)

;Donne un chiffre au hazard
$chiffre = Random($nb, $nb2, 1)
   while 1
;Demande quel est le chiffre
$entrer = InputBox("Question", "Quel est le chiffre entre " & $nb &  " et " & $nb2 & "?")

;Regarde si on a la bonne réponse
If Number($entrer) = $chiffre Then
    MsgBox(0,"Réponse","Bonne Réponse! La réponse était bien " & $chiffre)
 Exit
Else
 ;mauvaise réponse mais a cause du While il recommence
 MsgBox(0,"Mauvaise", "Mauvaise Réponse")
EndIf
WEnd
Case $twoplayer
  ;Minimum
    $nb = InputBox("De quoi à Quoi?", "Quel est le minimum chiffre possible?")
    if @error = 1 then
 Exit
EndIf
;Maximum
$nb2 = InputBox("De quoi à Quoi?", "Quel est le maximum chiffre possible?")
if @error = 1 then
 Exit
EndIf
;Donne un chiffre au hazard
$chiffre = Random($nb, $nb2, 1)

   while 1
;Demande quel est le chiffre
MsgBox(1,"Réponse", $chiffre)
$entrer = InputBox("Joueur 1", "Joueur 1: " & @CRLF & "Quel est le chiffre entre " & $nb & " et " & $nb2 & " ?", "","*")
If @error = 1 then
 Exit
EndIf
;Regarde si on a la bonne réponse
If Number($entrer) = $chiffre Then
    MsgBox(0,"Réponse","Bonne Réponse! La réponse était bien " & $chiffre)
 Exit
Else
 ;mauvaise réponse mais a cause du While il recommence
 MsgBox(0,"Mauvaise", "Mauvaise Réponse")
EndIf

$entrer = InputBox("Joueur 2", "Joueur 2: " & @CRLF &"Quel est le chiffre entre " & $nb & " et " & $nb2 & " ?", "","*")
If @error = 1 then
 Exit
EndIf
;Regarde si on a la bonne réponse
If Number($entrer) = $chiffre Then
    MsgBox(0,"Réponse","Bonne Réponse! La réponse était bien " & $chiffre)
 Exit
Else
 ;mauvaise réponse mais a cause du While il recommence
 MsgBox(0,"Mauvaise", "Mauvaise Réponse")
EndIf
WEnd

EndSwitch
WEnd

EDIT IMPORTANT

Voici le GUI du InputBox que j'aimerais

Code : Tout sélectionner

$Form4 = GUICreate("Quel est le chiffre?", 341, 175, 192, 124)
$entrer = GUICtrlCreateInput("Quel est le chiffre?", 24, 56, 281, 21)
$Label3 = GUICtrlCreateLabel("Quel est le chiffre entre " & $nb &  " et " & $nb2 & "?"", 32, 8, 274, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$MyButton5 = GUICtrlCreateButton("Ok", 8, 136, 100, 30, $BS_FLAT)
$MyButton6 = GUICtrlCreateButton("Indice", 120, 136, 100, 30, $BS_FLAT)
$MyButton7 = GUICtrlCreateButton("Annuler", 232, 136, 100, 30, $BS_FLAT)
GUISetState(@SW_SHOW)

Merci beaucoup de votre aide

[pop45]

Pourquoi fair dur quand on peut faire simple

Code : Tout sélectionner

$p = Random (1,100,1)
$r = 0
$b = 1
$h = 100
While $p <> $r
    $r = InputBox ( "" , "Rentre un chiffre entre " & $b & " et " & $h )
    If $r < $p Then
        MsgBox (0,"","Dommage , plus grand" )
        $b = $r
    ElseIf $r > $p Then
        MsgBox (0,"","Dommage , plus petit" )
        $h = $r
    EndIf
WEnd
MsgBox (0,"","Bravo le nombre etait bien " & $p )
       

Je l'ai fiat en 5 minute