[R] Tp du Site du Zéro
Posté : jeu. 26 avr. 2012 08:03
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
Cordialement Vins ,
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 ,