[R] La fonctions plus et moins en temps réel

[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

 

[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

[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

 

[jchd]

Et ça donne quoi quand tu essayes ?

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