Page 1 sur 1

[..] Problèmes de variable GUI

Posté : mer. 02 avr. 2008 09:12
par SoilyThang
voila , Bonjours a tous

j'esseye de faire un petit script pour m'amuser , et j'ai esseyer sa

Code : Tout sélectionner


#include <GuiConstants.au3>


GUICreate("XxXXx", 250 , 250 )
$GuiLoginButton = GUICtrlCreateButton("Start", 15 , 95 , 55, 25)
GuiCtrlCreateGroup("Barre", 187 , 1, 50 , 90)
$F1=GuiCtrlCreateRadio("F1", 195, 15, 35)
$F2=GuiCtrlCreateRadio("F2", 195, 32, 35)
GuiCtrlSetState(-1, $GUI_CHECKED)
$F3=GuiCtrlCreateRadio("F3", 195, 48, 35)
$F4=guiCtrlCreateRadio("F4", 195, 64, 35)
GUICtrlCreateGroup ("",-99 ,-99,1,1)
GuiCtrlCreateGroup("Case", 5 , 1 , 165 , 70)
$1=GuiCtrlCreateRadio("1", 15, 15)
$2=GuiCtrlCreateRadio("2", 45, 15)
$3=GuiCtrlCreateRadio("3", 75, 15)
$4=guiCtrlCreateRadio("4", 105, 15)
$5=GuiCtrlCreateRadio("5", 135, 15)
$6=GuiCtrlCreateRadio("6", 15, 40)
$7=GuiCtrlCreateRadio("7", 45, 40)
$8=guiCtrlCreateRadio("8", 75, 40)
$9=guiCtrlCreateRadio("9", 105, 40)
$0=guiCtrlCreateRadio("0", 135, 40)
GUICtrlCreateGroup ("",-99 ,-99,1,1)
GUISetState ()



While 1
   $msg = GUIGetMsg()
   Select
    Case $msg = $GuiLoginButton & $F1 & $1
    F11()
    Case $msg = $GuiLoginButton & $F1 & $2
    F12()
   EndSelect
WEnd

func F11()
    msgbox(1 , "Coucou")
    sleep(1000)
    send("{F1}")
    sleep(1000)
    send("{1}")
    sleep(1800000)
    F11()
endfunc

func F12()
    msgbox(1 , "Coucou")
    sleep(1000)
    send("{F1}")
    sleep(1000)
    send("{2}")
    sleep(1800000)
    F12()
endfunc
En gros , je crée des petit bouton avec des numeros ( 1-> 0 et F1-> F4)
j'aimerais que par exemple la combinaison de 1 et F1 pui du bouton Start donne la fonction F11()

Est-ce possible ?
merci d'avance pour votre aide =)

ps : le code complet peut etre donner si besoin
ps² : j'ai pris les codes "GuiCtrlCreateRadio" dans le SampleControls.au3 des exemples dans le dossier autoit

Re: [..]Problemes de variable GUI

Posté : mer. 02 avr. 2008 23:26
par Tlem
SoilyThang a écrit :En gros , je crée des petit bouton avec des numeros ( 1-> 0 et F1-> F4)
j'aimerais que par exemple la combinaison de 1 et F1 pui du bouton Start donne la fonction F11()

Est-ce possible ?
Oui.

Code : Tout sélectionner

#include <GuiConstants.au3>
Dim $Res

GUICreate("XxXXx", 250 , 250 )
$GuiLoginButton = GUICtrlCreateButton("Start", 15 , 95 , 55, 25)
GuiCtrlCreateGroup("Barre", 187 , 1, 50 , 90)
$F1=GuiCtrlCreateRadio("F1", 195, 15, 35)
$F2=GuiCtrlCreateRadio("F2", 195, 32, 35)
GuiCtrlSetState(-1, $GUI_CHECKED)
$F3=GuiCtrlCreateRadio("F3", 195, 48, 35)
$F4=guiCtrlCreateRadio("F4", 195, 64, 35)
GUICtrlCreateGroup ("",-99 ,-99,1,1)
GuiCtrlCreateGroup("Case", 5 , 1 , 165 , 70)
$1=GuiCtrlCreateRadio("1", 15, 15)
$2=GuiCtrlCreateRadio("2", 45, 15)
$3=GuiCtrlCreateRadio("3", 75, 15)
$4=guiCtrlCreateRadio("4", 105, 15)
$5=GuiCtrlCreateRadio("5", 135, 15)
$6=GuiCtrlCreateRadio("6", 15, 40)
$7=GuiCtrlCreateRadio("7", 45, 40)
$8=guiCtrlCreateRadio("8", 75, 40)
$9=guiCtrlCreateRadio("9", 105, 40)
$0=guiCtrlCreateRadio("0", 135, 40)
GUICtrlCreateGroup ("",-99 ,-99,1,1)
GUISetState ()



While 1
   $msg = GUIGetMsg()
   Select
   Case $msg = $GUI_EVENT_CLOSE
        Exit

    Case $msg = $GuiLoginButton
        If BitAND(GUICtrlRead($F1), $GUI_CHECKED) = $GUI_CHECKED And BitAND(GUICtrlRead($1), $GUI_CHECKED) = $GUI_CHECKED Then
            F11()
        ElseIf BitAND(GUICtrlRead($F1), $GUI_CHECKED) = $GUI_CHECKED And BitAND(GUICtrlRead($2), $GUI_CHECKED) = $GUI_CHECKED Then
            F12()
        EndIf
   EndSelect
WEnd

func F11()
   $Res = msgbox(1 , "F11", "Choix F11")
   If $Res = 2 Then Return
   msgbox(0 , "F11", "Vous avez accepté l'action de la commande F11")
endfunc

func F12()
    msgbox(1 , "F12", "Choix F12")
    If $Res = 2 Then Return
    msgbox(0 , "F12", "Vous avez accepté l'action de la commande F12")

endfunc