[..] Variable dans une GUI

[JIF]

Bonsoir, voila j'aimerais récupérer les valeurs d'une variable a l'intérieur d'une fenêtre GUI.

► Afficher le texte

Voici le code du scripte :

Code : Tout sélectionner

Local $i, $n, $url
Local $digit = "0123456789abcdefghijklmnopqrstuvwxyz-"
Local $nbDigits = Stringlen($digit)

$lDigit = 3 ; Longueur max de la variable

For $i = 0 to ($nbDigits ^ $lDigit) - 1
    $n = $i
    $url = ""
    Do
        $url = StringMid($digit, Mod($n, $nbDigits) + 1, 1) & $url
        $n /= $nbDigits
    Until $n < 1
    ToolTip("http://" & $url & ".[color=#000080]skyrock.com[/color]",0,0)
    $url =  inetget("http://" & $url & ".skyrock.com","C:\Documents and Settings\Utilisateur\Mes documents\scripte\scripte en beta\le projet\page\" & $url & ".html")
    ConsoleWrite($url & @LF)
Next

Voici le code de fenêtre GUI :

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1_1 = GUICreate("Form1", 215, 149, 315, 233)
$MenuItem1 = GUICtrlCreateMenu("Valider")
$MenuItem2 = GUICtrlCreateMenu("Ouvrir")
$Checkbox1 = GUICtrlCreateCheckbox("http://?.skyrock.com", 8, 40, 193, 17)
$Checkbox2 = GUICtrlCreateCheckbox("fhttp://?.free.fr", 8, 56, 185, 17)
$Checkbox3 = GUICtrlCreateCheckbox("http://site.voila.?", 8, 72, 193, 17)
$Checkbox4 = GUICtrlCreateCheckbox("http://?.ifrance.com", 8, 88, 193, 17)
$Checkbox5 = GUICtrlCreateCheckbox("http://www.dailymotion.com/?", 8, 104, 193, 17)
$Input1 = GUICtrlCreateInput("Input1", 8, 8, 193, 21)
GUICtrlSetBkColor(-1, 0xF1EFE2)
GUISetState(@SW_SHOW)

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

EndSwitch
WEnd
 

J'aimerais donc que lorsque je coches une ou plusieurs case et que je cliques sur valider les données des cases coché soient récupéré est remplacer au niveau de ce code.

Code : Tout sélectionner

ToolTip("http://" & [color=#FF0000]$url[/color] & ".[color=#000080]variable récupéré[/color]",0,0)
$url =  inetget("http://" & [color=#FF0000]$url[/color] & ".[color=#000080]variable récupéré[/color]","C:\Documents and Settings\Utilistateur\Mes documents\scripte\scripte en beta\le projet\page\" & $url & ".html")

Comme vous avez put le remarquer certain hebergeur comme voila ou Dalymotion par exemple ont leurs lien DNS avant le lien e la page ou du site en question. Il vaudrai donc inverser :

Code : Tout sélectionner

[color=#FF0000]$url[/color]

avec la nouvelle variable en question selon quels case a était coché"

Merci de me répondre.

Cordialement JIF,

[sylvanie]

guictrlread sur chaque checkbox ...

avec flag optionnel à 0 pour vérifier si la case est cochée, puis avec 1 (si elle est cochée) pour récupérer le text.

fichier d'aide :
For Checkbox, Radio control several states can be returned as $GUI_FOCUS and $GUI_CHECKED,. So use i.e. BitAnd(GUICtrlRead($Item),$GUI_CHECKED) to test if the control is checked.

Et donc pour le test ça donne :
If BitAND(GUICtrlRead($Checkbox),$GUI_CHECKED) <> 0 Then ...

[JIF]

Merci de ta réponsse, sylvanie j'ai structué mon code de cette façon. Mais voilà, je ne sais pas si ces juste et de plus je ne sais pas commant récuprer les valeurs des variables Checkbox. J'aimerais que lorsque je cliques sur le boutons valider les variables des cases coché s'affiche dans un MsgBox (sela afain de voir le résultat dans un premier temps).

► Afficher le texte

Code : Tout sélectionner

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

Global  $Checkbox1, $Checkbox2, $Checkbox3, $Checkbox4, $Checkbox5

$Form1_1 = GUICreate("Form1", 215, 149, 315, 233)
$MenuItem1 = GUICtrlCreateMenu("Valider")
$MenuItem2 = GUICtrlCreateMenu("Ouvrir")
GUICtrlRead ($Checkbox1)
$Checkbox1 = GUICtrlCreateCheckbox("http://?.skyrock.com", 8, 40, 193, 17)
GUICtrlRead ($Checkbox2)
$Checkbox2 = GUICtrlCreateCheckbox("fhttp://free.fr/?", 8, 56, 185, 17)
GUICtrlRead ($Checkbox3)
$Checkbox3 = GUICtrlCreateCheckbox("http://site.voila.?", 8, 72, 193, 17)
GUICtrlRead ($Checkbox4)
$Checkbox4 = GUICtrlCreateCheckbox("http://?.ifrance.com", 8, 88, 193, 17)
GUICtrlRead ($Checkbox5)
$Checkbox5 = GUICtrlCreateCheckbox("http://www.dailymotion.com/?", 8, 104, 193, 17)
$Input1 = GUICtrlCreateInput("Input1", 8, 8, 193, 21)
GUICtrlSetBkColor(-1, 0xF1EFE2)
GUISetState(@SW_SHOW)

[color=#FF0000]MsgBox( ;??? )[/color]

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

EndSwitch
WEnd

Merci de me répondre.

Cordialemant JIF,

[sylvanie]

et bien guictrlread ...
Mais bon, on va passer en mode démo :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1_1 = GUICreate("Form1", 215, 149, 315, 233)
$Menuvalidation = GUICtrlCreateMenu("Validation")
$MenuItem1 = GUICtrlCreateMenuItem("Valider",$Menuvalidation)
$MenuItem2 = GUICtrlCreateMenu("Ouvrir")
$Checkbox1 = GUICtrlCreateCheckbox("http://?.skyrock.com", 8, 40, 193, 17)
$Checkbox2 = GUICtrlCreateCheckbox("fhttp://?.free.fr", 8, 56, 185, 17)
$Checkbox3 = GUICtrlCreateCheckbox("http://site.voila.?", 8, 72, 193, 17)
$Checkbox4 = GUICtrlCreateCheckbox("http://?.ifrance.com", 8, 88, 193, 17)
$Checkbox5 = GUICtrlCreateCheckbox("http://www.dailymotion.com/?", 8, 104, 193, 17)
$Input1 = GUICtrlCreateInput("Input1", 8, 8, 193, 21)
GUICtrlSetBkColor(-1, 0xF1EFE2)
;initialisation "classique"
$dimension_tab = 5
Dim $tab_checkbox[$dimension_tab] = [$Checkbox1, $Checkbox2, $Checkbox3, $Checkbox4, $Checkbox5]

;la même chose mais dans l'optique "on devient un grand ^^ "
For $ind = 0 To $dimension_tab - 1
    Assign("Checkbox" & $ind + 1, $tab_checkbox[$ind])
Next

GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $MenuItem1
            MsgBox(0,"selected options",affiche_value($tab_checkbox))
    EndSwitch
WEnd



Func affiche_value($tab)
    Local $str_ret=""
    Local $ind_local
    For $ind_local = 0 To UBound($tab)-1
        If BitAND(GUICtrlRead($tab[$ind_local]),$GUI_CHECKED) <> 0 Then ;test si la case est cochée
            $str_ret&=GUICtrlRead($tab[$ind_local],1)&@CRLF ; récup du text
        EndIf
    Next
    Return $str_ret
EndFunc


 

et surtout, ce qu'il faut retenir :
- chaque élément doit être associé à une action. Votre exemple ne traitait que le bouton close, on va pas aller loin.
- pour les menu, seuls les menuitem peuvent déclancher une action (sauf erreur de ma part). c'est pourquoi j'ai créer le menuitem $MenuItem
- Lorsqu'on a plusieur contrôles, comme la succession des différentes checkbox, il vaut mieux passer par un tableau comme j'ai fait, afin de le parcourrir avec une boucle au lieu d'écriree des pavés du genre :
si checkbox1 alors
si checkbox2 alors
si checkbox3 alors
on gagne en clareté et efficacité

[JIF]

Merci de ta réponse sylvanie. Le test avec le msgbox fonctionne, mais maintenant j'aimerais le remplacer par un ShellExecut, mais je n'ai pas la moindre idée de comment faire ?
J'aimerais par exemple que si les cases skyrock et free sont coché ; alors le scripte ouvre 2 fichiers différant (un correspondant a free et l'autre a skyrock), il en sera deux même pour 3 cases coché (3 fichiers), 4 cases coché (4 fichier)...etc. Si aucune cases n'est coché, sella amènera a un msgboxe disant qu'il y a une erreur.

Voici mon code.

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1_1 = GUICreate("Form1", 215, 149, 315, 233)
$Menuvalidation = GUICtrlCreateMenu("Fichier")
$MenuItem1 = GUICtrlCreateMenuItem("Valider",$Menuvalidation)
$MenuItem2 = GUICtrlCreateMenuItem("Ouvrir", $MenuItem1)
$Checkbox1 = GUICtrlCreateCheckbox("http://?.skyrock.com", 8, 40, 193, 17)
$Checkbox2 = GUICtrlCreateCheckbox("fhttp://?.free.fr", 8, 56, 185, 17)
$Checkbox3 = GUICtrlCreateCheckbox("http://site.voila.?", 8, 72, 193, 17)
$Checkbox4 = GUICtrlCreateCheckbox("http://?.ifrance.com", 8, 88, 193, 17)
$Checkbox5 = GUICtrlCreateCheckbox("http://www.dailymotion.com/?", 8, 104, 193, 17)
$Input1 = GUICtrlCreateInput("Input1", 8, 8, 193, 21)
GUICtrlSetBkColor(-1, 0xF1EFE2)
[color=#00BF00];initialisation "classique"[/color]
$dimension_tab = 5
Dim $tab_checkbox[$dimension_tab] = [$Checkbox1, $Checkbox2, $Checkbox3, $Checkbox4, $Checkbox5]
[color=#00BF00]
;la même chose mais dans l'optique "on devient un grand ^^ "[/color]
For $ind = 0 To $dimension_tab - 1
    Assign("Checkbox" & $ind + 1, $tab_checkbox[$ind])
Next

GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $MenuItem1
            [color=#FF0000]ShellExecute("a.exe" ; ??? )[/color]
            [color=#FF0000]MsgBox(0,"test", ; ??? )[/color]

    EndSwitch
WEnd

Func affiche_value($tab)
    Local $str_ret=""
    Local $ind_local
    For $ind_local = 0 To UBound($tab)-1
        If BitAND(GUICtrlRead($tab[$ind_local]),$GUI_CHECKED) <> 0 Then [color=#00BF40];test si la case est cochée[/color]
            $str_ret&=GUICtrlRead($tab[$ind_local],1)&@CRLF [color=#00BF40]; récup du text[/color]
        EndIf
    Next
    Return $str_ret
EndFunc

Merci de me répondre.

Cordialement JIF,

[sylvanie]

Et bien là tout y est, y a plus qu'à coder ...

la fonction affiche_value (qui finalement aurait dû plutôt s'appeler du genre return_checked ...) renvoie une string avec les url avec retours chariots pour sauter les lignes.
du coups, on l'appelle en strockant le resultat
$resultat=affiche_value (...)
puis on transforme $resultat en tableau ($tab) via un stringsplit avec comme délimiteur @crlf
puis avec un for on parcours ce tableau. Et enfin sur la valeur courrante on fait un gros switch grâce auquel qui on sélectionne le fichier qui va bien pour lancer le shelexecute

[JIF]

Merci de ta réponsse sylvanie mais j'ai dut malle a comprendre ce que je dois coder et ou je dois le coder.
Pourais-tu me l'éxpliquer ?

Merci de me répondre.

Cordialemant JIF,