[..] Demande de création de GUI pour mon script

[Jerome]

Bonjour,

Je viens faire une demande ici de création de GUI lier avec mon script suivant.

Ce script contient deux variables qui change a chaque fois que j'effectue une boucle sur mon programme principal, et le but de la GUI est de pouvoir saisir ses valeur comme je le souhaite de manière simple sans avoir à éditer mon fichier .au3

Le but de la GUI serait en faite de pouvoir saisir dans un premier temps (par exemple en haut à droite), le nombre de groupe de champs que je veux remplir (et modifie l'interface de la GUI en conséquence).

Chaque groupe champs doit avoir un numéro (important dans le corp de mon programme).
Chaque groupe de champs est composé d'une saisit d'un texte, ainsi que d'une saisit d'un nombre par choix défilant (à partir de 10, jusque 100, de 5 en 5).

Exemple : Si je choisit de prendre 3 groupes de champs, alors je doit saisir dans mon interface 3 textes et 3 nombres, si 4 groupes de champs, 4 textes et 4 nombres, ect ect jusque 10 ...


Un bouton en bas de ma GUI après pour pouvoir lancer le tout.

Le but étant après le programme que j'ai déjà fait, mais en y injectant les données saisit dans mon interface utilisateur.

Mon code :

Code : Tout sélectionner

$o = 1
$r = 2

For $t = 0 to $r
    ; definition des variables de compte.
    
    
    if $o = 1 then 
        $jerome = "un champs txt"
        $tete = 50
    endif

    if $o = 2 Then
        $jerome = "un champs txt"
        $tete = 20
    endif
    
    
    

    ;saisit des ID
    Send($jerome)
    Send("{ENTER}")
    ;sleep pour la page
    Sleep(4000)
    MouseClick("left",596,581)
    Sleep(1000)
    MouseClick("left",743,399)

    sleep(2000)

    $i = 0
    For $i = 0 To $tete
        MouseClick("left",740,562)
        sleep(2000)
        MouseClick("left",737,397)
        sleep(500)
    Next

    ;incrémentation
    $o = $o+1
    sleep(3000)
Next

 

Les deux variables de mes groupes de champs étant ici $jerome et $tete.


Merci de votre aide pour cette demande de création.
Si question n"hésitez pas...

Jérôme

[DJSIR]

Utlises là Koda (Alt+M d'après mes souvenirs)

[SagePourpre]

Voilà je crois, une excellente base (du moins, si j'ai bien compris) :

Code : Tout sélectionner

Opt('GuiOnEventMode',1)
Global $read
$gui = GUICreate('blu',450,300)
GUICtrlCreateLabel('Nb. champs',10,10,70,30)
$_nb = GUICtrlCreateCombo('1',70,10,50,20)
GUICtrlSetData($_nb,'2|3|4|5|6|7|8|9|10')

GUICtrlSetOnEvent($_nb,'creation')
GUISetOnEvent(-3,'quitter')
GUISetState()
GUICtrlCreateButton('Lancer',10,260,80,30)
GUICtrlSetOnEvent(-1,'lancer')
creation()
While 1
    Sleep(100)
WEnd

Func creation()
$read = GUICtrlRead($_nb)

For $i = 1 To 10
If Eval('_champ_' & $i) <> '' Then
GUICtrlDelete(Eval('_champ_' & $i))
GUICtrlDelete(Eval('_combo_' & $i))
Else
    ExitLoop
EndIf

Next

Local $x = 10,$y = 50
For $i = 1 To $read
If $i = 6 Then
$x = 240
$y = 50
EndIf

Assign('_champ_' & $i,GUICtrlCreateInput('',$x,$y,140,25),2)
Assign('_combo_' & $i,GUICtrlCreateCombo('0',$x+145,$y,40,25),2)
$y+=40

Next

For $i = 1 To $read
    GUICtrlSetData(Eval('_combo_' & $i),'5|10|15|20|25|30|35|40|45|50|55|60|65|70|75|80|85|90|95|100')
Next

EndFunc

Func lancer()
For $i = 1 To $read
$string = GUICtrlRead(Eval('_champ_' & $i))
$combo = GUICtrlRead(Eval('_combo_' & $i))

; INSÉRER LES ACTIONS À EFFECTUER

ConsoleWrite($string & '   ||   ' & $combo & @CRLF )


; *****************************

Next

EndFunc

Func quitter()
Exit
EndFunc