Page 1 sur 1
[..] Variable dans une GUI
Posté : lun. 05 oct. 2009 20:49
par 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 :
avec la nouvelle variable en question selon quels case a était coché"
Merci de me répondre.
Cordialement JIF,
Re: [..] Variable dans une GUI
Posté : lun. 05 oct. 2009 21:46
par 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 ...
Re: [..] Variable dans une GUI
Posté : mar. 06 oct. 2009 21:58
par 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,
Re: [..] Variable dans une GUI
Posté : mar. 06 oct. 2009 22:14
par 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é
Re: [..] Variable dans une GUI
Posté : mer. 07 oct. 2009 22:09
par 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,
Re: [..] Variable dans une GUI
Posté : mer. 07 oct. 2009 23:17
par 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
Re: [..] Variable dans une GUI
Posté : jeu. 08 oct. 2009 15:42
par 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,