[R] Stocker contenu Input dans variable en fonction du radio

[laloute]

Voila j'ai une GUI de ce genre et j'aimerai enregistrer les valeurs des Input dans des variables.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiButton.au3>

Global $Variable1Radio1, $Variable1Radio2, $Variable1Radio3
Global $Variable2Radio1, $Variable2Radio2, $Variable2Radio3
Global $Variable3Radio1, $Variable3Radio2, $Variable3Radio3

$GUI = GUICreate("Test",290,162,-1,-1,-1,-1)
$radio1 = GUICtrlCreateRadio("radio1",20,20,53,20,-1,-1)
$radio2 = GUICtrlCreateRadio("radio2",90,20,53,20,-1,-1)
$radio3 = GUICtrlCreateRadio("radio3",159,20,53,20,-1,-1)
$radio4 = GUICtrlCreateRadio("radio4",233,20,53,20,-1,-1)
$Input1 = GUICtrlCreateInput("",100,50,150,20,-1,512)
$Input2 = GUICtrlCreateInput("",100,76,150,20,-1,512)
$Input3 = GUICtrlCreateInput("",100,102,150,20,-1,512)
$button1 = GUICtrlCreateButton("Valider",200,130,78,22,-1,-1)
GUICtrlCreateLabel("Input1 :",20,55,50,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Input2 :",20,81,50,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Input3 :",20,107,50,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUISetState(@SW_SHOW,$GUI)

;;on sélectionne radio1 par défaut
GUICtrlSetState($radio1, $GUI_CHECKED)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $button1
            ;;Code à exécuter pour enregistrer dans un fichier ini.

    EndSwitch
WEnd

Donc quand radio1 est coché on stock Input1, Input2 et Input3 dans $Variable1Radio1, $Variable1Radio2, $Variable1Radio3.
Et la même chose pour les autres radio.
Il faudrait en gros que j'enregistre les données des Input dans mes variables quand je passe sur un autre radio.

Je ne sais pas vraiment par ou commencer. Si vous aviez une piste.

Merci par avance.

[mikell]

Ben le fichier d'aide et la fonction recherche du forum ça serait un bon début

Code : Tout sélectionner

If _IsChecked($radio1) Then $Variable1Radio1 = GuiCtrlRead($Input1)

;....

Func _IsChecked($control)
    Return BitAnd(GUICtrlRead($control), $GUI_CHECKED) = $GUI_CHECKED
EndFunc

[laloute]

Mais quel idiot j'ai vu cette fonction mais je me compliquais pour je ne sais quelle raison.

Cela solutionne mon problème en parti. Car je ne valide que lorsque j'ai modifié les valeurs pour les 4 radios.

Si je lance :

Code : Tout sélectionner

If _IsChecked($radio1) Then $Variable1Radio1 = GuiCtrlRead($Input1)

lorsque je sélectionne un autre radio, je n'aurai pas mes valeurs dans mes variables.

Il faudrait que je récupère le radio qui a été sélectionné avant celui qui l'ai actuellement.

Sinon pour simplifier le tout je valide pour chaque radio modifié.

Edit : J'ai oublié de préciser que dans mes Input je charge des valeurs via un fichier ini.
Elles sont chargées dans la GUI pour être modifiées.

[mikell]

Tu charges les valeurs dans les inputs, tu les modifies, tu les réenregistres, OK
Mais quel est le rôle des boutons radio ?

[laloute]

Question de place sur l'interface.
J'ai deux Checkbox et 6 Input *4. Je voulais réduire.

Donc j'ai fait quelque chose:

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiButton.au3>

Global $Variable1Radio1, $Variable1Radio2, $Variable1Radio3
Global $Variable2Radio1, $Variable2Radio2, $Variable2Radio3
Global $Variable3Radio1, $Variable3Radio2, $Variable3Radio3
Global $Variable1, $Variable2, $Variable3
Global $radioselec

$GUI = GUICreate("Test",290,162,-1,-1,-1,-1)
$radio1 = GUICtrlCreateRadio("radio1",20,20,53,20,-1,-1)
$radio2 = GUICtrlCreateRadio("radio2",90,20,53,20,-1,-1)
$radio3 = GUICtrlCreateRadio("radio3",159,20,53,20,-1,-1)
$radio4 = GUICtrlCreateRadio("radio4",233,20,53,20,-1,-1)
$Input1 = GUICtrlCreateInput("",100,50,150,20,-1,512)
$Input2 = GUICtrlCreateInput("",100,76,150,20,-1,512)
$Input3 = GUICtrlCreateInput("",100,102,150,20,-1,512)
$button1 = GUICtrlCreateButton("Valider",200,130,78,22,-1,-1)
GUICtrlCreateLabel("Input1 :",20,55,50,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Input2 :",20,81,50,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Input3 :",20,107,50,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUISetState(@SW_SHOW,$GUI)

;;on sélectionne radio1 par défaut
GUICtrlSetState($radio1, $GUI_CHECKED)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $radio1
            $radioselec = 1
        Case $radio2
            $radioselec = 2
        Case $radio3
            $radioselec = 3
        Case $radio4
            $radioselec = 4
        Case $button1
            EnregistreVar()

    EndSwitch
WEnd

Func EnregistreVar()

    $Variable1 = GuiCtrlRead($Input1)
    $Variable2 = GuiCtrlRead($Input2)
    $Variable3 = GuiCtrlRead($Input3)

    Switch $radioselec
        Case 1
            $Variable1Radio1 = $Variable1
            $Variable1Radio2 = $Variable2
            $Variable1Radio3 = $Variable3
        Case 2
            $Variable2Radio1 = $Variable1
            $Variable2Radio2 = $Variable2
            $Variable2Radio3 = $Variable3
        Case 3
            $Variable3Radio1 = $Variable1
            $Variable3Radio2 = $Variable2
            $Variable3Radio3 = $Variable3
    EndSwitch
    
EndFunc

Bon je ne voulais pas me servir d'un bouton mais bon vu mes connaissances pour le moment c est le plus accessible pour moi.

[mikell]

N'oublie pas

Code : Tout sélectionner

;;on sélectionne radio1 par défaut
GUICtrlSetState($radio1, $GUI_CHECKED)
[color=#BF0000]$radioselec = 1[/color]

Et effectivement valider à chaque série de saisies est certes fastidieux mais beaucoup plus prudent

[laloute]

Effectivement j avais oublié la sélection par défaut.

Le plus simple aurait été de faire un onglet mais mettre un onglet dans un onglet n est pas possible je crois

Edit : Je trouver peut être une autre solution qui me permettrait de pas avoir ce bouton.

Code : Tout sélectionner

AdlibRegister("MaFonction", 1000)

Si j’exécute une fonction toutes les secondes pour récupérer le contenu des Input.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiButton.au3>

Global $Variable1Radio1, $Variable1Radio2, $Variable1Radio3
Global $Variable2Radio1, $Variable2Radio2, $Variable2Radio3
Global $Variable3Radio1, $Variable3Radio2, $Variable3Radio3
Global $Variable1, $Variable2, $Variable3
Global $radioselec

$GUI = GUICreate("Test",290,162,-1,-1,-1,-1)
$radio1 = GUICtrlCreateRadio("radio1",20,20,53,20,-1,-1)
$radio2 = GUICtrlCreateRadio("radio2",90,20,53,20,-1,-1)
$radio3 = GUICtrlCreateRadio("radio3",159,20,53,20,-1,-1)
$radio4 = GUICtrlCreateRadio("radio4",233,20,53,20,-1,-1)
$Input1 = GUICtrlCreateInput("",100,50,150,20,-1,512)
$Input2 = GUICtrlCreateInput("",100,76,150,20,-1,512)
$Input3 = GUICtrlCreateInput("",100,102,150,20,-1,512)
GUICtrlCreateLabel("Input1 :",20,55,50,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Input2 :",20,81,50,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Input3 :",20,107,50,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUISetState(@SW_SHOW,$GUI)

;;on sélectionne radio1 par défaut
GUICtrlSetState($radio1, $GUI_CHECKED)
$radioselec = 1

AdlibRegister("EnregistreVar", 1000)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $radio1
            $radioselec = 1
        Case $radio2
            $radioselec = 2
        Case $radio3
            $radioselec = 3
        Case $radio4
            $radioselec = 4

    EndSwitch
WEnd

Func EnregistreVar()

    $Variable1 = GuiCtrlRead($Input1)
    $Variable2 = GuiCtrlRead($Input2)
    $Variable3 = GuiCtrlRead($Input3)

    Switch $radioselec
        Case 1
            $Variable1Radio1 = $Variable1
            $Variable1Radio2 = $Variable2
            $Variable1Radio3 = $Variable3
        Case 2
            $Variable2Radio1 = $Variable1
            $Variable2Radio2 = $Variable2
            $Variable2Radio3 = $Variable3
        Case 3
            $Variable3Radio1 = $Variable1
            $Variable3Radio2 = $Variable2
            $Variable3Radio3 = $Variable3
    EndSwitch
    
EndFunc

[mikell]

Le plus simple étant souvent ce qui fonctionne le mieux, il y a aussi ce principe

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $Variable1, $Variable2, $Variable3, $Variable4

$GUI = GUICreate("Test",290,162,-1,-1,-1,-1)
$radio1 = GUICtrlCreateRadio("radio1",20,20,53,20,-1,-1)
$radio2 = GUICtrlCreateRadio("radio2",90,20,53,20,-1,-1)
$Input1 = GUICtrlCreateInput("",100,50,150,20,-1,512)
$Input2 = GUICtrlCreateInput("",100,76,150,20,-1,512)
$Input3 = GUICtrlCreateInput("",100,50,150,20,-1,512)
GUICtrlSetState(-1, $GUI_HIDE)
$Input4 = GUICtrlCreateInput("",100,76,150,20,-1,512)
GUICtrlSetState(-1, $GUI_HIDE)

$button1 = GUICtrlCreateButton("Valider",200,130,78,22,-1,-1)
GUISetState(@SW_SHOW,$GUI)

;;on sélectionne radio1 par défaut
GUICtrlSetState($radio1, $GUI_CHECKED)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $radio1
            GUICtrlSetState($Input1, $GUI_SHOW)
            GUICtrlSetState($Input2, $GUI_SHOW)
            GUICtrlSetState($Input3, $GUI_HIDE)
            GUICtrlSetState($Input4, $GUI_HIDE)
        Case $radio2
            GUICtrlSetState($Input3, $GUI_SHOW)
            GUICtrlSetState($Input4, $GUI_SHOW)
            GUICtrlSetState($Input1, $GUI_HIDE)
            GUICtrlSetState($Input2, $GUI_HIDE)
        Case $button1
            EnregistreVar()
     EndSwitch
WEnd

Func EnregistreVar()
    $Variable1 = GuiCtrlRead($Input1)
    $Variable2 = GuiCtrlRead($Input2)
    $Variable3 = GuiCtrlRead($Input3)
    $Variable4 = GuiCtrlRead($Input4)
    msgbox(0,"", $Variable1 &@crlf& $Variable2 &@crlf& $Variable3 &@crlf& $Variable4)
EndFunc

Dans ce cas si les controles sont nombreux on utilise des arrays
On peut aussi afficher/masquer des guis child

[laloute]

Exact.
Je n'avais pas pensé à superposer les contrôles.

Merci de m'avoir aidé.