[..] Mini Jeux + Question

[matwachich]

Je vien de metre mon p'tit jeu du plus ou moin dans les exemples de scripts rien que pour toi!
http://www.autoitscript.fr/forum/viewto ... f=6&t=4519

[jamesst20]

Merci Pop45 mais tu ne la pas pentoute.. l'écriture du text que je demande est jamais le meme! Si tu choisie entre 45 et 50 sa va dire

Code : Tout sélectionner

$entrer = InputBox("Question", "Quel est le chiffre entre " & $nb &  " et " & $nb2 & "?")
; Ce qui veut dire que $nb = 45 et $nb2 = 50 
 

Sinon matwatich ton Plus ou moin est très différent du mien alors sa ne répond pas a ma question

Alors c'est pour sa que je repose ma question !

Merci Beaucoup de votre aide

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]

Merci Pop45 mais tu ne la pas pentoute.. l'écriture du text que je demande est jamais le meme! Si tu choisie entre 45 et 50 sa va dire

Simple curiositer tu a essayer mon code au moin?

[matwachich]

J'ai un peut arranger le code: (Juste la partie 1 joueur, j'ai pas le temps de les faire toutes les deux!)

► Afficher le texte

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)

_main()
Func _main()
    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 @error = 1 Then
                        If MsgBox(4, "Confirmation", "Arreter?") = 6 Then _main()
                    ElseIf Number($entrer) = $chiffre Then
                        MsgBox(0, "Réponse", "Bonne Réponse! La réponse était bien " & $chiffre)
                        Exit
                    ElseIf Number($entrer) > $chiffre Then
                        ;mauvaise réponse mais a cause du While il recommence
                        ; Si tu veut pas que sa recommence tu ajoute Exitloop apres le MsgBox
                        ; mais comme je l'ai pas fait, c'est parceque je donne plusieurs chance au joueur de trouver!
                        MsgBox(0, "Mauvaise", "C'est moin!")
                    ElseIf Number($entrer) < $chiffre Then
                        MsgBox(0, "Mauvaise", "C'est plus!")
                    ElseIf Number($entrer) < $nb Or Number($entrer) > $nb2 Then
                        MsgBox(0, "Mauvaise", "On a dit entre " & $nb & " et " & $nb2 & " !")
                    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
EndFunc   ;==>_main

Mais si je peut me permettre, ton jeu, il n'est pas très ergonomique! j'veut dire c'est pas super la méthode avec tout ces gui's, on pourrais faire plus simple!

[pop45]

La mienne par exemple

[jamesst20]

Merci beaucoup matwachich ses sa que je voulait faire avec la case indice dans mon Gui plus haut Mes sa ne m'arrange pas mon probleme

S'il vous plait n'essayer pas de me donner des alternatives.. J'aimerais vraiment réussie avec le GUI que j'ai mit en bas

Merci beaucoup

PS: Je veut ce que je cite plus bas mes faite pas la partie 2 joueurs je m'en occuperai

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 GUIqui remplace le 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

[jamesst20]

SVP J'aimerais vraiment réussir

Pourquoi plus personne ne me répond?

[matwachich]

http://www.autoitscript.fr/forum/viewto ... f=3&t=4567
Mais je crois que tu le sait déja!