[R] Reproduire cette GUI en AutoIt ?

[foozoor]

Afin que je puisse mieux comprendre comment les GUI fonctionnent.
J'aimerais bien qu'une âme charitable me code cette GUI suivant ces différents critères.

Voici le genre de script que j'aimerais mettre en action avec une GUI.

Code : Tout sélectionner

Func fonction1()
    MsgBox(0,'fonction1','fonction1')
EndFunc

Func fonction2()
    MsgBox(0,'fonction2','fonction2')
EndFunc

Func fonction3()
    MsgBox(0,'fonction3','fonction3')
EndFunc

Func fonction4()
    MsgBox(0,'fonction4','fonction4')
EndFunc

If (radio#1 checked & appuyer sur le bouton OK) Then
    fonction1()
    ; mettre la progressbar à 25%
    fonction2()
    ; mettre la progressbar à 50%
    fonction3()
    ; mettre la progressbar à 75%
    fonction4()
    ; mettre la progressbar à 100%
EndIf

If (radio#2 checked & appuyer sur le bouton OK) Then
    fonction1()
    ; mettre la progressbar à 33%
    fonction3()
    ; mettre la progressbar à 66%
    fonction4()
    ; mettre la progressbar à 100%
EndIf

If (radio#3 checked & appuyer sur le bouton OK) Then
    fonction1()
    ; mettre la progressbar à 50%
    fonction3()
    ; mettre la progressbar à 100%
EndIf

If (radio#4 checked & appuyer sur le bouton OK) Then
    MsgBox(0,"N'importe quoi","N'importe quoi")
EndIf
 

- Faire en sorte qu'après chaque fonction la progressbar évolue.
- La fenêtre ne doit pas être redimensionable.
- Un seul input radio sélectionnable.
- A la fin du processus la fenêtre doit se fermer.

Merci d'avance !

[drov]

Je vais essayer de te faire ça attend un peu

[bigtux]

il me semble que avec koda tu peu reproduire la gui d'un programme existant sans avoir a la refaire

édit :
1 ouvre le logiciel qui a la gui que tu veux reproduire
2 ouvre koda
3 dans koda fait fichier, importer, import externe
4 Click sur form captor puis valide
5 fait glisser/dépose la petite cible noire sur la fenêtre que tu veux et valide
et c'est bon tu a exactement la même gui que tu voulais

[drov]

Certes mais ce n'est pas parfait ^^ de plus il manque tout les "rouages" il ne demande pas que une simple vitrine :p

fini ! :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Mon beau programme", 315, 225, 197, 134)
Global $Button1 = GUICtrlCreateButton("Ok", 215, 32, 83, 121)
Global $Radio1 = GUICtrlCreateRadio("Lancer la suite de fonctions #1", 32, 40, 172, 17)
Global $Radio2 = GUICtrlCreateRadio("Lancer la suite de fonctions #2", 32, 64, 172, 17)
Global $Radio3 = GUICtrlCreateRadio("Lancer la suite de fonctions #3", 32, 88, 172, 17)
Global $Radio4 = GUICtrlCreateRadio("Lancer la suite de fonctions #4", 32, 112, 172, 17)
Global $Group1 = GUICtrlCreateGroup("Quelle configuration?", 16, 16, 295, 161)
Global $progress = GUICtrlCreateProgress(15, 180, 290, 25)
Global $progression = 0
$i = 0
$f = 0
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

Func fonction1()
    MsgBox(0, "fonction1", "ceci est la fonction 1 !")
    $progression = $progression + 25
    GUICtrlSetData($progress, $progression)
EndFunc   ;==>fonction1

Func fonction2()
    MsgBox(0, "fonction2", "Ceci est la fonction 2 !")
    If $i = 0 Then
        GUICtrlSetData($progress, 33)

    ElseIf $i = 1 Then
        GUICtrlSetData($progress, 66)
    ElseIf $i = 2 Then
        GUICtrlSetData($progress, 100)
    EndIf
    $i = $i + 1
    $progressend = GUICtrlRead($progress)
EndFunc   ;==>fonction2

Func fonction3()
    MsgBox(0, "fonction3", "Ceci est la fonction 3 !")
    If $f = 0 Then
        GUICtrlSetData($progress, 50)
    ElseIf $f = 1 Then
        GUICtrlSetData($progress, 100)

    EndIf
    $f = $f + 1
    $progressend = GUICtrlRead($progress)
EndFunc   ;==>fonction3

Func fonction4()
    MsgBox(0, "fonction4", "N'importe quoi n'importe quoi")
EndFunc   ;==>fonction4

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $test1 = GUICtrlRead($Radio1)
            $test2 = GUICtrlRead($Radio2)
            $test3 = GUICtrlRead($Radio3)
            $test4 = GUICtrlRead($Radio4)
            $progressend = GUICtrlRead($progress)
            If $test1 = 1 Then
                Call("fonction1")
            EndIf
            If $test2 = 1 Then
                Call("fonction2")
            EndIf

            If $test3 = 1 Then
                Call("fonction3")
            EndIf

            If $test4 = 1 Then
                Call("fonction4")
            EndIf

            If $progressend >= 100 Then
                MsgBox(0, "Fin", "la barre est remplie ;)")
                Exit
            EndIf

    EndSwitch
WEnd

quelques commentaires :

1 : c'est codé assez vite fait , notament au niveau des $i = $i +1 et des if else if

2 : si tu a la moindre question n'hésite pas

[foozoor]

Merci beaucoup, ce fut très rapide !
C'est bien plus simple que je ne l'aurais cru.
Je vais faire quelques adaptations...

Bigtux, merci pour l'astuce !
Le problème, c'est que j'ai fait cette GUI sous Pencil, un logiciel de mockup opensource.

[bigtux]

ah, excusé moi j'avez compris que vous vouliez le code de la gui et non le code entier..