[..] Test à faire sur une GUI!
Posté : jeu. 16 sept. 2010 09:09
par Fatal
Bonjour à tous,
J'ai actuellement un petit jeu de débutant en construction mais mes connaissances ne me permettent pas de faire exactement ce que je voudrais, voila ce qu'il me faudrait encore:
-Lorsque l'on appuie sur la touche ENTER sa actionne le bouton "valider" de mon programme --> réglé
- L'utilisateur ne doit pas pouvoir mettre autre chose que des chiffre entier sinon --> Message d'erreur!
- L'utilisateur doit absolument mettre dans "Chiffre le plus grand" un chiffre plus grand quand dans "chiffre le plus petit" (Ce qui est logique!) sinon --> Message d'erreur!
Voila mon script:
Si vous n'avez pas comprit quelque chose n'hésitez pas a me demander! J'aimerais que vous me donniez des pistes ou même que vous corrigiez mon code afin d'obtenir le résultat que j'aimerais avoir!
Merci d'avance pour votre aide.
Cordialement Fatal
J'ai actuellement un petit jeu de débutant en construction mais mes connaissances ne me permettent pas de faire exactement ce que je voudrais, voila ce qu'il me faudrait encore:
-
- L'utilisateur ne doit pas pouvoir mettre autre chose que des chiffre entier sinon --> Message d'erreur!
- L'utilisateur doit absolument mettre dans "Chiffre le plus grand" un chiffre plus grand quand dans "chiffre le plus petit" (Ce qui est logique!) sinon --> Message d'erreur!
Voila mon script:
► Afficher le texte
Code : Tout sélectionner
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=Beta
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GuiButton.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1_1 = GUICreate("Jeu de Michaël", 773, 475, 665, 348)
GUISetFont(8, 400, 0, "Copperplate Gothic Bold")
GUISetBkColor(0xA6CAF0)
Global $Input1 = GUICtrlCreateInput("", 320, 80, 113, 21)
Global $Input2 = GUICtrlCreateInput("", 320, 120, 113, 21)
Global $Input3 = GUICtrlCreateInput("", 320, 160, 113, 21)
Global $Button1 = GUICtrlCreateButton("Valider", 500, 112, 113, 41, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
Global $Button2 = GUICtrlCreateButton("Valider", 500, 112, 113, 41, $WS_GROUP)
GUICtrlSetState($Button2, $GUI_HIDE)
GUICtrlSetCursor (-1, 0)
Global $Button3 = GUICtrlCreateButton("Réessayer !!!", 500, 112, 113, 41, $WS_GROUP)
GUICtrlSetState($Button3, $GUI_HIDE)
GUICtrlSetCursor (-1, 0)
Global $Label1 = GUICtrlCreateLabel("Le jeu du Plus ou du Moins", 124, 16, 539, 43)
GUICtrlSetFont(-1, 22, 800, 0, "Ravie")
Global $Label2 = GUICtrlCreateLabel("Chiffre le plus petit:", 104, 88, 155, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Copperplate Gothic Bold")
Global $Label3 = GUICtrlCreateLabel("Chiffre le plus grand:", 104, 128, 167, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Copperplate Gothic Bold")
Global $Label4 = GUICtrlCreateLabel("Nombre de coup(s) Maximum:", 104, 168, 207, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Copperplate Gothic Bold")
Global $Label5 = GUICtrlCreateLabel("", 60, 224, 268, 132)
GUICtrlSetFont(-1, 12, 400, 0, "Copperplate Gothic Bold")
Global $Progress1 = GUICtrlCreateProgress(47, 408, 680, 57)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("{ENTER}", "Clickit")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$chiffrePremier = GUICtrlRead($Input1)
$chiffreDeuxieme = GUICtrlRead($Input2)
$maximum = GUICtrlRead($Input3)
Global $chiffreH = Random($chiffrePremier, $chiffreDeuxieme, 1)
GUICtrlSetData($Progress1, 25)
Sleep(500)
GUICtrlSetData($Label5, "C'est bon, essayez de trouver le nombre mystère maintenant!")
Global $i = 0
GUICtrlDelete($Input1)
GUICtrlDelete($Input2)
GUICtrlDelete($Input3)
GUICtrlDelete($Button1)
GUICtrlDelete($Label4)
If ($maximum <= 1) Then
Global $Label4 = GUICtrlCreateLabel("Nombre de coup restant:", 104, 168, 207, 19)
Else
Global $Label4 = GUICtrlCreateLabel("Nombre de coups restant:", 104, 168, 207, 19)
EndIf
GUICtrlSetFont(-1, 10, 400, 0, "Copperplate Gothic Bold")
Global $Label7 = GUICtrlCreateLabel($chiffrePremier, 320, 80, 400, 21)
GUICtrlSetFont(-1, 16, 400, 0, "Copperplate Gothic Bold")
Global $Label8 = GUICtrlCreateLabel($chiffreDeuxieme, 320, 120, 400, 21)
GUICtrlSetFont(-1, 16, 400, 0, "Copperplate Gothic Bold")
Global $Label9 = GUICtrlCreateLabel($maximum, 320, 160, 400, 21)
GUICtrlSetFont(-1, 16, 400, 0, "Copperplate Gothic Bold")
Global $Label6 = GUICtrlCreateLabel("Nombre Mystère:", 392, 248, 129, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Copperplate Gothic Bold")
Global $Input4 = GUICtrlCreateInput("", 544, 248, 113, 21)
GUICtrlSetState($Button2, $GUI_SHOW )
HotKeySet("{ENTER}", "Clickit2")
Case $Button2
$i = $i + 1
$maximum = $maximum -1
$reponse = GUICtrlRead($Input4)
$reponse = Number($reponse)
GUICtrlDelete($Label4)
If ($maximum <= 1) Then
Global $Label4 = GUICtrlCreateLabel("Nombre de coup restant:", 104, 168, 207, 19)
Else
Global $Label4 = GUICtrlCreateLabel("Nombre de coups restant:", 104, 168, 207, 19)
EndIf
GUICtrlSetFont(-1, 10, 400, 0, "Copperplate Gothic Bold")
If ($reponse > $chiffreH) Then
GUICtrlSetData($Progress1, 60)
Sleep(500)
GUICtrlSetData($Label5, "Pas mal... mais c'est un peu moins !" & @CRLF & @CRLF & @CRLF & "Nombre tenté : " & $reponse)
ElseIf ($reponse < $chiffreH) Then
GUICtrlSetData($Progress1, 60)
Sleep(500)
GUICtrlSetData($Label5, "Pas mal... mais c'est un peu plus !" & @CRLF & @CRLF & @CRLF & "Nombre tenté : " & $reponse)
ElseIf ($reponse = $chiffreH) Then
Sleep(500)
GUICtrlSetData($Progress1, 100)
If ($i = 1) Then
GUICtrlSetData($Label5, "Vous avez réussi ! Extraordinaire vous avez fait " & $i & " coup! Bravo ! Bip Bip Bip Fin du programme.")
Else
GUICtrlSetData($Label5, "Vous avez réussi ! Extraordinaire vous avez fait " & $i & " coups! Bravo ! Bip Bip Bip Fin du programme.")
EndIf
GUICtrlDelete($Button2)
GUICtrlDelete($Input4)
Global $Label10 = GUICtrlCreateLabel($reponse, 544, 245, 113, 21)
GUICtrlSetFont(-1, 16, 400, 0, "Copperplate Gothic Bold")
GUICtrlSetState($Button3, $GUI_SHOW )
HotKeySet("{ENTER}", "Clickit3")
EndIf
If ($maximum > 0) Then
GUICtrlDelete($Label9)
Global $Label9 = GUICtrlCreateLabel($maximum, 320, 160, 400, 21)
GUICtrlSetFont(-1, 16, 400, 0, "Copperplate Gothic Bold")
ElseIf ($maximum <= 0) Then
GUICtrlDelete($Label9)
Global $Label9 = GUICtrlCreateLabel("0", 320, 160, 400, 21)
GUICtrlSetFont(-1, 16, 400, 0, "Copperplate Gothic Bold")
GUICtrlSetColor(-1, 0xFF0000)
EndIf
Case $Button3
ShellExecute("gui.exe")
Exit
EndSwitch
WEnd
Func Clickit()
_GUICtrlButton_Click($Button1)
EndFunc
Func Clickit2()
_GUICtrlButton_Click($Button2)
EndFunc
Func Clickit3()
_GUICtrlButton_Click($Button3)
EndFuncMerci d'avance pour votre aide.
Cordialement Fatal