[R] Utilisation d'un array verification état checkbox

[Tilala]

Bonjour,

Je reviens vers vous encore une fois pour un problème d'array.
Je cherche a utiliser un array pour paramétrer une variable dans un GUICtrlRead

Ci dessous le tableau:

Code : Tout sélectionner

Global $Tab[4]=["$Checkbox1","$Checkbox2","$Checkbox3","$Checkbox4"]

Ma boucle:

Code : Tout sélectionner

For $i=0 To ubound($Tab)-1
            $check = $Tab[$i]
            Tick($check)
            Next

Ci dessous la fonction:

Code : Tout sélectionner

Func Tick($Checkbox)
   If BitAND($Checkbox, $GUI_CHECKED) = $GUI_CHECKED then
   MsgBox(1,"","") ; cette ligne est une ligne de test, elle sera remplacée
   EndIf
EndFunc

Rien ne se passe quand je clique sur mon bouton et aucune erreur ne remonte.

Je ne trouve rien sur internet ou le forum, esce simplement possible?

Cordialement,

Julien

[jchd]

Et comme ça :

Code : Tout sélectionner

Global $Tab[4]=[$Checkbox1, $Checkbox2, $Checkbox3, $Checkbox4]

?
Ceci dit, il serait bien plus simple de créer directement les checkboxes dans le tableau.

[Tilala]

Effectivement le MsgBox s'affiche mais pas comme voulu.

Que je coche 0, 1, 2, 3 ou 4 checkbox, 2 MsgBox apparaissent (???)

Je peux effectivement me renseigner sur la création de checkbox via un tableau si vous pensez que c'est la meilleure solution :/

[mikell]

ça ne t'a pas frappé dans ton sujet précédent ?
Si tu avais posté un petit script-exemple tu aurais déjà obtenu une réponse précise ^^

[Tilala]

Ok ok ^^
Je pensais que cela suffisait
Je ne voulais pas vous faire mal à la tête avec quelque chose de mal développé

Attention les yeux!

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIListBox.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GuiListBox.au3>
#include <GuiMenu.au3>


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("SAC Roles Extractor", 450, 307, 192, 124) ; Primary GUI
WinMove("SAC Roles Extractor", "", 10,10,385 , 327)
GUICtrlCreateLabel("User", 10, 5, 50)
$idUser = GUICtrlCreateInput("SAC_ADMIN", 10, 20, 100, 20) ; User
GUICtrlCreateLabel("Password", 170, 5, 50)
$idPWD = GUICtrlCreateInput("", 170, 20, 200, 20,$ES_PASSWORD) ; Password
GUICtrlSetState(-1, $GUI_FOCUS)

$Button1 = GUICtrlCreateButton("Extract All Roles", 10, 150, 90)

$Checkbox1 = GUICtrlCreateCheckbox("SAC BLC Simu", 10, 65, 90)
$Checkbox2 = GUICtrlCreateCheckbox("SAC BLC Prod ", 10, 85, 90)
$Checkbox3 = GUICtrlCreateCheckbox("SAC VMR Prod", 10, 105, 90)
$Checkbox4 = GUICtrlCreateCheckbox("SAC DNT Prod", 10, 125, 90)
$List1 = GUICtrlCreateList("", 170, 70, 200, 75, $WS_BORDER+$WS_VSCROLL)
$Input1 = GUICtrlCreateInput("", 15, 240, 297, 21)
$Label = GUICtrlCreateLabel("Environments", 10, 50, 90, 15)
$Labe2 = GUICtrlCreateLabel("Applications Selected View", 170, 50, 200, 15)
$Labe3 = GUICtrlCreateLabel("Destination", 15, 215, 70, 17)


Local $arr2[4] = ["\\eu\Dfseu\IS\Application\SHM\SHM_SIMU\SAC\UDL\Sac.udl","\\EU\DFSEU\IS\Application\SHMconfig\SAC\UDL\SAC.udl","\\EU\DFSEU\Villemur\IS\Application\SHM\SHM_Prod\SHMConfig\SAC\UDL\SAC.udl","\\EU\DFSEU\Corinth\IS\Application\SHM\SHM_Prod\SHMConfig\SAC\UDL\SACDTN.udl"]

Global $Tab2D[20][2]=[["EED-","EED"],["PDM-","SEE PDM"],["PLM-","SEE PLM"],["ADMINTOOLS-","SEE ADMIN"],["AUTHO-MANAG-","SHM AUTHO"],["BUILD-","SHM BUILD"],["CONFIG-MANAGER-","SHM CONFIG"],["CUTTING-","SHM CUTTING"],["ECN-","SHM ECN"],["HARNESS-MANAG-","SHM HARNESS"],["HARNESS-MANAG-ADMIN-","SHM HARNESS MANAGEMENT AD"],["KNOWLEDGEWARE-","SHM KNOWLEDGEWARE"],["LAUNCHER-","SHM LAUN"],["TEST-","SHM TEST"],["TOOLSHOP-","SHM TOOL"],["TRACEABILITY-","SHM TRACE"],["TRACEABILITY-ADMIN-","SHM TRACEABILITY AD"],["WIRESPREP-","SHM WIRES"],["WORKERSSKILLS-","SHM WORK"],["SPM-","SPM"]]


$d = @MDAY
$m = @MON
$y = @YEAR

GUISetState(@SW_SHOW,$Form1)
#EndRegion ### END Koda GUI section ###

While 1
    $iMsg = GUIGetMsg()
   Select
      Case $iMsg = $GUI_EVENT_CLOSE
            Exit

      Case $iMsg = $Button1
         $DEST = GUICtrlRead($Input1)
         $PWD = GUICtrlRead ( $idPWD )
         If $PWD <> "" Then
            If $Dest <> "" Then
               If BitAND(GUICtrlRead($Checkbox1), $GUI_UNCHECKED) = $GUI_UNCHECKED AND BitAND(GUICtrlRead($Checkbox2), $GUI_UNCHECKED) = $GUI_UNCHECKED AND BitAND(GUICtrlRead($Checkbox3), $GUI_UNCHECKED) = $GUI_UNCHECKED AND BitAND(GUICtrlRead($Checkbox4), $GUI_UNCHECKED) = $GUI_UNCHECKED Then
                  MsgBox (48, "Error", "Select environments")
               Else
                  Call("SAC") ;application qui gère les droits
                  If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then
                     $site = $arr2[0] ; ouvre le fichier udl blc simu (site1)
                     connexion($site)
                           For $i=0 To ubound($Tab2D, 1)-1 ;extraction xml
                           $fic = $Tab2D[$i][0]
                           $mod = $Tab2D[$i][1]
                           extract($fic,$mod)
                           Next
                  EndIf
                  If BitAND(GUICtrlRead($Checkbox2), $GUI_CHECKED) = $GUI_CHECKED Then
                     $site = $arr2[1] ; ouvre le fichier udl blc prod (site2)
                     connexion($site)
                           For $i=0 To ubound($Tab2D, 1)-1 ;extraction xml
                           $fic = $Tab2D[$i][0]
                           $mod = $Tab2D[$i][1]
                           extract($fic,$mod)
                           Next
                  EndIf
                  If BitAND(GUICtrlRead($Checkbox3), $GUI_CHECKED) = $GUI_CHECKED Then
                     $site = $arr2[2] ;site3
                     connexion($site)
                           For $i=0 To ubound($Tab2D, 1)-1 ;extraction xml
                           $fic = $Tab2D[$i][0]
                           $mod = $Tab2D[$i][1]
                           extract($fic,$mod)
                           Next
                  EndIf
                  If BitAND(GUICtrlRead($Checkbox4), $GUI_CHECKED) = $GUI_CHECKED Then
                     $site = $arr2[3] ;site4
                     connexion($site)
                           For $i=0 To ubound($Tab2D, 1)-1 ;extraction xml
                           $fic = $Tab2D[$i][0]
                           $mod = $Tab2D[$i][1]
                           extract($fic,$mod)
                           Next
                  EndIf
                WinClose("SEE Access Control Administration Tool")
                WinWaitClose("SEE Access Control Administration Tool")
                Msgbox(0, "Extract done", "Extract done to " & GUICtrlRead($Input1))

               EndIf
            Else
               MsgBox(0x0, "Click", "Destination not set")
            EndIf
         Else
          MsgBox(0x0, "Click", "Passwd not set")
      EndIf

Func SAC()
Run("C:\Program Files (x86)\IGE+XAO\SEE Access Control V4R5\See_soft\Exe\See_User_Access_AdminTool.exe")

EndFunc

Func Connexion($udl) ; il faudra aussi utiliser un tableau pour la connexion à l'udl
   If Winwait("SEE Access Control Administration Tool") Then
         ControlClick("SEE Access Control Administration Tool", "","ToolbarWindow321", "primary", 1, 70, 13)
         Winwait("Open", "Tree View")
         ControlSetText("Open", "", "Edit1", $udl)
         ControlClick("Open", "", "Button1")
         Winwait("Connection")
         Send(GUICtrlRead($iduser))
         ControlFocus("Connection", "", "Edit2")
         Send(GUICtrlRead($idPWD))
         ControlClick("Connection", "", "Button1")
   EndIf
EndFunc

Func Extract($fichier_output, $module) ;ajouter un paramètre $env pour ajouter l'environnement dans le nom du fichier xml sinon les fichiers sont écrasés quand le script passe à l'extraction de l'environnement suivant
      If WinWait("SEE Access Control Administration Tool") Then
         ControlClick("SEE Access Control Administration Tool", "", "ToolbarWindow321", "primary", 1, 399, 12)
         WinWait("Select Roles Definitions XML File to Export")
         ControlSetText("Select Roles Definitions XML File to Export", "", 1001, $fichier_output & $d & $m & $y & ".xml")
         Sleep(2000)
         Send("{TAB 5}{SPACE}")
         Send(GUICtrlRead($Input1))
         Send("{ENTER}")
         Sleep(2000)
         ControlClick("Select Roles Definitions XML File to Export", "", "Button1")
         WinWait("Export Roles")
         ControlFocus("Export Roles", "", "ComboBox1")
         ControlSend("Export Roles", "", "ComboBox1", $module)
         ControlClick("Export Roles", "", "Button1")
      EndIf
   EndFunc
 

Donc voila je voudrais simplifier l'étape du button1 et j'essaye depuis ce matin de de cette facon:

Code : Tout sélectionner

Global $Tab[4]=["$Checkbox1","$Checkbox2","$Checkbox3","$Checkbox4"] ;$ ou pas?

Code : Tout sélectionner

For $i=0 To ubound($Tab)-1
            $check = $Tab[$i]
            Tick($check)
            Next

Code : Tout sélectionner

Func Tick($Checkbox)
   If BitAND($Checkbox, $GUI_CHECKED) = $GUI_CHECKED then
   MsgBox(1,"","") ; cette ligne est une ligne de test, elle sera remplacée
   EndIf
EndFunc

Voila c'est peu être un peu trop de code :/

[TommyDDR]

Koda c'est le diable !

"$Checkbox1" ne fera que mettre la CHAÎNE DE CARACTÈRE dans le tableau, et non pas la valeur de la variable, enlevez les guillemets.

Sinon, comme l'a suggéré jchd, je vous conseille d'enlever tout simplement les variables générées par Koda ( )

Code : Tout sélectionner

Global $checkboxes[4]
$checkboxes[0] = GUICtrlCreateCheckbox(....
$checkboxes[1] = GUICtrlCreateCheckbox(....
$checkboxes[2] = GUICtrlCreateCheckbox(....
$checkboxes[3] = GUICtrlCreateCheckbox(....

[Tilala]

Du coup je me suis fait un tableau de ce type:

Code : Tout sélectionner

Global $checkboxes[4][2]=[[........]]

Avec ce case:

Code : Tout sélectionner

Case $iMsg = $Button1
            For $i=0 To ubound($checkboxes, 1)-1
            $check = BitAND(GUICtrlRead($checkboxes[$i][0]), $GUI_CHECKED) = $GUI_CHECKED
               If $check Then
                  connexion($checkboxes[$i][1])
                   For $i=0 To ubound($Tab2D, 1)-1
                   $fic = $Tab2D[$i][0]
                   $mod = $Tab2D[$i][1]
                   extract($fic,$mod)
                   Next
               EndIf
            Next

Merci pour votre aide et votre réactivité ça ne rigole pas!

Julien