Page 1 sur 1
[R] La fonctions plus et moins en temps réel
Posté : dim. 18 déc. 2011 18:08
par loockys
Salut,
S'il vous plait, je fais comment pour que les résultats suit la logique de mes boutons + et - ?
Je voudrais qu'à chaque fois que j'utilise le bouton + la valeur augmente et quand j'utilise le bouton - la valeur descend toujours en temps réel.
(merci de votre aide.)
► Afficher le texte
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Loockys", 211, 84, 192, 124)
$btn_moins = GUICtrlCreateButton("-", 24, 16, 75, 25)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$btn_plus = GUICtrlCreateButton("+", 112, 16, 75, 25)
$Label1 = GUICtrlCreateLabel("", 87, 64, 36, 17)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btn_moins
_btn1()
Case $btn_plus
_btn2()
EndSwitch
WEnd
Func _btn1()
Static Local $Resultat = ""
$ch1 = 1
MsgBox(0,"Tuto","Vous descendez la valeur de 1")
$Resultat -= $ch1
GUICtrlSetData($Label1, $Resultat)
EndFunc
Func _btn2()
Static Local $Resultat = ""
$ch1 = 1
MsgBox(0,"Tuto","Vous augmentez la valeur de 1")
$Resultat += $ch1
GUICtrlSetData($Label1, $Resultat)
EndFunc
Re: [..] La fonctions plus et moins en temps réel
Posté : dim. 18 déc. 2011 18:13
par ani
un indice (c'est en VERT)
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
[color=#008000]Global $Resultat, $ch1 = 1[/color]
$Form1 = GUICreate("Loockys", 211, 84, 192, 124)
$btn_moins = GUICtrlCreateButton("-", 24, 16, 75, 25)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$btn_plus = GUICtrlCreateButton("+", 112, 16, 75, 25)
$Label1 = GUICtrlCreateLabel("", 87, 64, 36, 17)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btn_moins
_btn1()
Case $btn_plus
_btn2()
EndSwitch
WEnd
Func _btn1()
;MsgBox(0,"Tuto","Vous descendez la valeur de 1")
$Resultat -= $ch1
GUICtrlSetData($Label1, $Resultat)
EndFunc
Func _btn2()
;MsgBox(0,"Tuto","Vous augmentez la valeur de 1")
$Resultat += $ch1
GUICtrlSetData($Label1, $Resultat)
EndFunc
Re: [R] La fonctions plus et moins en temps réel
Posté : dim. 18 déc. 2011 20:33
par loockys
Merci ani de l'indice.
Est-ce que les scripts peut être formulé de cette manière ?
► Afficher le texteScript de 1 en 1
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Loockys", 211, 84, 192, 124)
$btn_moins = GUICtrlCreateButton("-", 24, 16, 75, 25)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$btn_plus = GUICtrlCreateButton("+", 112, 16, 75, 25)
$Label1 = GUICtrlCreateLabel("0", 87, 64, 36, 17)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btn_moins
_btn1()
Case $btn_plus
_btn2()
EndSwitch
WEnd
Func _btn1()
Global $Resultat, $ch1 = 1
MsgBox(0,"Tuto","Vous descendez la valeur de " & $ch1)
$Resultat -= $ch1
GUICtrlSetData($Label1, $Resultat)
EndFunc
Func _btn2()
Global $Resultat, $ch1 = 1
MsgBox(0,"Tuto","Vous augmentez la valeur de "& $ch1)
$Resultat += $ch1
GUICtrlSetData($Label1, $Resultat)
EndFunc
► Afficher le texteScript aléatoire de 1 à 10
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Loockys", 211, 84, 192, 124)
$btn_moins = GUICtrlCreateButton("-", 24, 16, 75, 25)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$btn_plus = GUICtrlCreateButton("+", 112, 16, 75, 25)
$Label1 = GUICtrlCreateLabel("0", 87, 64, 36, 17)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btn_moins
_btn1()
Case $btn_plus
_btn2()
EndSwitch
WEnd
Func _btn1()
Global $Resultat, $ch1 = Random(1,10,1)
MsgBox(0,"Tuto","Vous descendez la valeur de " & $ch1)
$Resultat -= $ch1
GUICtrlSetData($Label1, $Resultat)
EndFunc
Func _btn2()
Global $Resultat, $ch1 = Random(1,10,1)
MsgBox(0,"Tuto","Vous augmentez la valeur de "& $ch1)
$Resultat += $ch1
GUICtrlSetData($Label1, $Resultat)
EndFunc
Re: [R] La fonctions plus et moins en temps réel
Posté : lun. 19 déc. 2011 01:54
par jchd
Et ça donne quoi quand tu essayes ?
Re: [R] La fonctions plus et moins en temps réel
Posté : lun. 19 déc. 2011 10:34
par loockys
Les trois scripts donner fonctionnent très bien, mais surement que l'un des trois peuvent être mieux utilisés pour sa meilleure légèreté de codage.
Si j'utilise des nombres aléatoire de 1 à 10 avec l'exemple donner plus haut par ani ne me conviens plus, car le nombre aléatoire une fois exécuté avec les boutons - et + reste le même jusqu'à la fin du script.
C'est pour cela que je demandais si les scripts peuvent être formulés de cette manière ou bien aurait-il d'autres astuce.