[R] Tp du Site du Zéro

[Vins]

Bonjour , je suis nouveau sur ce forum et dans la programmation aussi
Hier , je faisait le TP du Plus ou Moins sur le site du zéro .

Voulant l'améliorer un tout petit peu , j'ai voulu créer une GUI ( chapitre suivant)

Si quelqu'un peut me dire mon erreur , lorsque je lance tout marche niquel , sauf que la croix ne ferme pas mon programme

Code : Tout sélectionner

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Plus ou Moins", 382, 186, 192, 124)
$Button1 = GUICtrlCreateButton("Commencer", 24, 136, 161, 33)
$Button2 = GUICtrlCreateButton("Valider", 192, 136, 161, 33)
$Label1 = GUICtrlCreateLabel("Veuillez entrer un nombre compris entre :", 8, 8, 364, 41)
$Input1 = GUICtrlCreateInput("", 88, 72, 217, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Button1
            Global $mini= Random(0,100,1)
            Global $maxi = Random(100,500,1)
            GUICtrlSetData($Label1,"Veuillez entrer un nombre compris entre : " & $mini & " et " & $maxi )
            Global $chiffre = Random($mini,$maxi,1)
            GUICtrlSetState($Button1,$GUI_DISABLE)
        Case $Button2
            $user = GUICtrlRead($Input1)
            If $user = $chiffre Then
                GUICtrlSetData($Label1,"Veuillez entrer un nombre compris entre : " & $mini & " et " & $maxi  & @CRLF & "Parfait !")
            ElseIf $user < $chiffre Then
                GUICtrlSetData($Label1,"Veuillez entrer un nombre compris entre : " & $mini & " et " & $maxi  & @CRLF & "Plus grand !")
            Else
                GUICtrlSetData($Label1,"Veuillez entrer un nombre compris entre : " & $mini & " et " & $maxi  & @CRLF & "Plus petit !")
            EndIf
    EndSwitch
WEnd
 

Cordialement Vins ,

[Uranium]

Code : Tout sélectionner

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Plus ou Moins", 382, 186, 192, 124)
$Button1 = GUICtrlCreateButton("Commencer", 24, 136, 161, 33)
$Button2 = GUICtrlCreateButton("Valider", 192, 136, 161, 33)
$Label1 = GUICtrlCreateLabel("Veuillez entrer un nombre compris entre :", 8, 8, 364, 41)
$Input1 = GUICtrlCreateInput("", 88, 72, 217, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
case Gui_EVENT_CLOSE
Exit
        Case $Button1
            Global $mini= Random(0,100,1)
            Global $maxi = Random(100,500,1)
            GUICtrlSetData($Label1,"Veuillez entrer un nombre compris entre : " & $mini & " et " & $maxi )
            Global $chiffre = Random($mini,$maxi,1)
            GUICtrlSetState($Button1,$GUI_DISABLE)
        Case $Button2
            $user = GUICtrlRead($Input1)
            If $user = $chiffre Then
                GUICtrlSetData($Label1,"Veuillez entrer un nombre compris entre : " & $mini & " et " & $maxi  & @CRLF & "Parfait !")
            ElseIf $user < $chiffre Then
                GUICtrlSetData($Label1,"Veuillez entrer un nombre compris entre : " & $mini & " et " & $maxi  & @CRLF & "Plus grand !")
            Else
                GUICtrlSetData($Label1,"Veuillez entrer un nombre compris entre : " & $mini & " et " & $maxi  & @CRLF & "Plus petit !")
            EndIf
    EndSwitch
WEnd

[DimVar]

Bonjour Vins,

Comme l'a rajouté Uranium dans ton code, tu avais oublié la condition (case) "gui event close" avec son action associée : "Exit".


Cdlt.

[4sp4rt4m3]

Code : Tout sélectionner

Case $GUI_EVENT_CLOSE
            Exit