[..] GUI à la place d'une InputBox

[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 qui 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

[matwachich]

Code : Tout sélectionner

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

ConsoleWrite( _InputBoxX(10, 20) & @CRLF)

Func _InputBoxX($nb, $nb2)
    $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)

    While 1
        $msg = GUIGetMsg()
        Switch $msg
            Case $MyButton7
                GUIDelete($Form4)
                Return -1
            Case $MyButton6
                ;# ajouter le code pour l'indice #
            Case $MyButton5
                $read = GUICtrlRead($entrer)
                GUIDelete($Form4)
                Return $read
        EndSwitch
    WEnd
EndFunc

[jamesst20]

Umm désoler je ne suis plus trop sur de comprendre

En gros j'aimerait ajouter le GUI a mon Code et remplacer l'ImputBox

Edit en faite j'aimerais juste que mon code reste identique mais que je remplace le inputBox par le GUI mais je n'y arrive pas..

Merci

[matwachich]

si ta pas compris c'est que ton niveau en autoit est vraiment bas (sans vouloir te véxer)

Ce que je t donné c'est une fonction (_InputBoxX) elle prend 2 parametres: tes 2 nombres (max et min)

et pour l'utiliser, dans ton code, a la place de

Code : Tout sélectionner

$text = InputBox(...)

tu fait

Code : Tout sélectionner

$text = InputBoxX($min, $max)

Tout ca bien sur apres avoir ajouter le code de la foncion (c.a.d. ce qui commence de Func et qui se termine par EndFunc) ton ton script