[R] Associer deux variable

[silvere]

Salut !
Mon titre n'est peut-être pas le bon.
Je cherche faire un code du genre :

► Afficher le texte

Code : Tout sélectionner

For $i = 1 To 5
    $teste & $i = $i
Next

mais qui fonctionnerai.
c'est a dire que $teste1 = 1, $teste2 = 2 ...

[mikell]

Bien propre ^^

Code : Tout sélectionner

For $i = 1 To 3
   Assign("teste" & $i, $i)
Next
If IsDeclared("teste1") and IsDeclared("teste2") and IsDeclared("teste3") Then
   MsgBox(0, "", Eval("teste" & "1") &@crlf& Eval("teste" & "2") &@crlf& Eval("teste" & "3") )
   MsgBox(0, "", $teste1 &@crlf& $teste2 &@crlf& $teste3 )
EndIf

[silvere]

il y a pas plus simple ? car la je comprend pas

[mikell]

Non ya pas plus simple, faut utiliser la fonction Assign()
J'ai fait le script dans les règles mais pour comprendre voilà un test facile

Code : Tout sélectionner

Assign("teste" & "1", "tagada")   ; crée la variable $teste1 et lui attribue la valeur "tagada"
MsgBox(0, "", $teste1)   ; vérification

[PandiPanda]

Bonsoir,
bhe plus simple => tableau (array)
Cependant ca repond pas à votre demande initiale ...

exemple de script:

Code : Tout sélectionner

Dim $monArray[4]
For $i=0 To 3
    $monArray[$i]=$i
Next

[mikell]

Panda tu trouves ça simple ?
L'élément n°3 qui sappelle array[2]
Et la m3rde avec les UBound-1

[PandiPanda]

bhe si on a en tete que le 1er element commence à 0, tout coule de source

Mais l'utilisation de Assign(), perso j'aime pas ... deja il faut que toute les variables soit crée préalablement(et il faut pas oublier le '$' ...), et on se trompe vite fait une fois qu'on depasse les 100 variables

Sans oublier la place que ca prend ... Mais après chacun son choix

[sylvanie]

Voyant que Mikell a fait une petite erreur de frappe, pour ceux qui ne l'avaient pas compris, il parlait de la gestion laborieuse avec les Ubound - 1

[sylvanie]

Mais l'utilisation de Assign(), perso j'aime pas ... deja il faut que toute les variables soit crée préalablement

c'est faux. Il faut simplement jouer le jeux que si on utilise Assign, il faut alors passer par Eval pour accéder à cette variable créée dynamiquement :

Code : Tout sélectionner

opt("MustDeclareVars",1)

Dim $ind
for $ind=1 to 10
    Assign("Myvar"&$ind,$ind)
Next

for $ind=1 to 10
    ConsoleWrite("Assign"&$ind&" = "&Eval("Myvar"&$ind)&@CRLF)
Next

 

[PandiPanda]

Hanlalala beh decidemment, j'ai mal compris :p
merci pour cette information ^^

[silvere]

Stop !
Vous me perdez en cour de route
J'prend la fonction de Panda la plus simple a mes yeux.
Mais sans doute la moins performante

[silvere]

Je suis désespérer pouvez vous m'expliquez pour quoi quand on change de "page" sa change pas la date?

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Dim $memo[100]
Dim $heure[100]
Dim $min[100]

Global $nombredememo, $anne, $mois, $jours, $heure, $min, $date, $memo
$memoactuel = 1
$nombredememo = 1

#region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 516, 245, 215, 170)
Global $Button1 = GUICtrlCreateButton("<", 8, 16, 97, 169)
GUICtrlSetFont(-1, 90, 400, 0, "MS Sans Serif")
Global $Group1 = GUICtrlCreateGroup("Informations", 128, 8, 265, 177)
Global $Label1 = GUICtrlCreateLabel("Memo :", 144, 64, 48, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Label2 = GUICtrlCreateLabel("Date :", 144, 120, 39, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Label3 = GUICtrlCreateLabel("", 208, 122, 152, 17)
Global $Label5 = GUICtrlCreateLabel($memo, 208, 64, 132, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button3 = GUICtrlCreateButton("Nouveau", 128, 200, 81, 33)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Button4 = GUICtrlCreateButton("Modifier", 221, 200, 81, 33)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Button5 = GUICtrlCreateButton("Supprimer", 312, 200, 81, 33)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Button2 = GUICtrlCreateButton(">", 416, 16, 97, 169)
GUICtrlSetFont(-1, 90, 400, 0, "MS Sans Serif")
Global $Label4 = GUICtrlCreateLabel($memoactuel & "/" & $nombredememo, 464, 208, 42, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            If $memoactuel > 1 Then
                $memoactuel = $memoactuel - 1
                GUICtrlSetData($Label4, $memoactuel & "/" & $nombredememo)
                GUICtrlSetData($Label5, $memo[$memoactuel])
                GUICtrlSetData($Label3, $heure[$memoactuel] & $min[$memoactuel])
            EndIf
        Case $Button2
            If $memoactuel < $nombredememo Then
                $memoactuel = $memoactuel + 1
                GUICtrlSetData($Label4, $heure[$memoactuel])
                GUICtrlSetData($Label4, $memoactuel & "/" & $nombredememo)
                GUICtrlSetData($Label5, $memo[$memoactuel])

            EndIf
        Case $Button3
            GUISetState(@SW_HIDE, $Form1)

            #region ### START Koda GUI section ### Form=
            Global $Form2 = GUICreate("Form2", 170, 120, 569, 315)
            Global $Label1 = GUICtrlCreateLabel("Memo :", 16, 8, 56, 24)
            GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
            Global $Input1 = GUICtrlCreateInput("", 88, 8, 73, 21)
            Global $Label2 = GUICtrlCreateLabel("Heure :", 16, 48, 56, 24)
            GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
            Global $Button = GUICtrlCreateButton("Annuler", 16, 80, 57, 33)
            GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
            Global $Buttonaj = GUICtrlCreateButton("Ajouter", 96, 80, 57, 33)
            GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
            Global $Input2 = GUICtrlCreateInput("", 88, 48, 25, 21)
            Global $Label3 = GUICtrlCreateLabel("h", 117, 54, 11, 20)
            GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
            Global $Input3 = GUICtrlCreateInput("", 130, 48, 25, 21)
            GUISetState(@SW_SHOW)
            #endregion ### END Koda GUI section ###

            While 1
                $nMsg = GUIGetMsg()
                Switch $nMsg
                    Case $GUI_EVENT_CLOSE
                        ExitLoop
                    Case $Buttonaj
                        $nombredememo = $nombredememo + 1
                        GUICtrlSetData($Label4, $memoactuel & "/" & $nombredememo)
                        $memo[$nombredememo] = GUICtrlRead($Input1)
                        $heure[$nombredememo] = GUICtrlRead($Input2)
                        $min[$nombredememo] = GUICtrlRead($Input3)
                        ExitLoop
                EndSwitch
            WEnd
            GUIDelete($Form2)
            GUISetState(@SW_SHOW, $Form1)
    EndSwitch
WEnd
 

[sylvanie]

Vous redéfinissez vous variables de GUI en portée globale d'une GUI à l'autre en gardant les même nom de variable donc il y a écrasement des identifiant.

Pour faire au plus vite, j'ai préfixé vos id de contrôle de la 2eme fenêtre avec 2, genre input1 => input21
En général; prenez des noms significatifs pour chaque contrôle, pas de nom de variables identiques entre 2 GUI (en parlant des contrôle) et ne prenez la portée global que quand c'est vraiment nécessaire

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Dim $memo[100]
Dim $heure[100]
Dim $min[100]

Global $nombredememo, $anne, $mois, $jours, $heure, $min, $date, $memo
$memoactuel = 1
$nombredememo = 1

#region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 516, 245, 215, 170)
Global $Button1 = GUICtrlCreateButton("<", 8, 16, 97, 169)
GUICtrlSetFont(-1, 90, 400, 0, "MS Sans Serif")
Global $Group1 = GUICtrlCreateGroup("Informations", 128, 8, 265, 177)
Global $Label1 = GUICtrlCreateLabel("Memo :", 144, 64, 48, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Label2 = GUICtrlCreateLabel("Date :", 144, 120, 39, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Label3 = GUICtrlCreateLabel("", 208, 122, 152, 17)
Global $Label5 = GUICtrlCreateLabel($memo, 208, 64, 132, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button3 = GUICtrlCreateButton("Nouveau", 128, 200, 81, 33)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Button4 = GUICtrlCreateButton("Modifier", 221, 200, 81, 33)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Button5 = GUICtrlCreateButton("Supprimer", 312, 200, 81, 33)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Button2 = GUICtrlCreateButton(">", 416, 16, 97, 169)
GUICtrlSetFont(-1, 90, 400, 0, "MS Sans Serif")
Global $Label4 = GUICtrlCreateLabel($memoactuel & "/" & $nombredememo, 464, 208, 42, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            If $memoactuel > 1 Then
                $memoactuel = $memoactuel - 1
                GUICtrlSetData($Label4, $memoactuel & "/" & $nombredememo)
                GUICtrlSetData($Label5, $memo[$memoactuel])
                GUICtrlSetData($Label3, $heure[$memoactuel] & $min[$memoactuel])
            EndIf
        Case $Button2
            If $memoactuel < $nombredememo Then
                $memoactuel = $memoactuel + 1
                GUICtrlSetData($Label3, $heure[$memoactuel]& $min[$memoactuel])
                GUICtrlSetData($Label4, $memoactuel & "/" & $nombredememo)
                GUICtrlSetData($Label5, $memo[$memoactuel])

            EndIf
        Case $Button3
            GUISetState(@SW_HIDE, $Form1)

            #region ### START Koda GUI section ### Form=
            Local $Form2 = GUICreate("Form2", 170, 120, 569, 315)
            Local $Label21 = GUICtrlCreateLabel("Memo :", 16, 8, 56, 24)
            GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
            Local $Input21 = GUICtrlCreateInput("", 88, 8, 73, 21)
            Local $Label22 = GUICtrlCreateLabel("Heure :", 16, 48, 56, 24)
            GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
            Local $Button2c = GUICtrlCreateButton("Annuler", 16, 80, 57, 33)
            GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
            Local $Buttonaj = GUICtrlCreateButton("Ajouter", 96, 80, 57, 33)
            GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
            Local $Input22 = GUICtrlCreateInput("", 88, 48, 25, 21)
            Local $Label23 = GUICtrlCreateLabel("h", 117, 54, 11, 20)
            GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
            Local $Input23 = GUICtrlCreateInput("", 130, 48, 25, 21)
            GUISetState(@SW_SHOW)
            #endregion ### END Koda GUI section ###

            While 1
                $nMsg = GUIGetMsg()
                Switch $nMsg
                    Case $GUI_EVENT_CLOSE
                        ExitLoop
                    Case $Buttonaj
                        $nombredememo = $nombredememo + 1
                        GUICtrlSetData($Label4, $memoactuel & "/" & $nombredememo)
                        $memo[$nombredememo] = GUICtrlRead($Input21)
                        $heure[$nombredememo] = GUICtrlRead($Input22)
                        $min[$nombredememo] = GUICtrlRead($Input23)
                        ExitLoop
                EndSwitch
            WEnd
            GUIDelete($Form2)
            GUISetState(@SW_SHOW, $Form1)
    EndSwitch
WEnd

 

[silvere]

Tu me sauve, j'avais oublier sa

[mikell]

Rhaa quelle sale habitude d'appeler ses controles $input1, $input2 etc
ça va bien quand yen a pas beaucoup, mais après vaut mieux faire $input_nom, $input_date etc
Et ça permet d'éviter ce genre d'erreurs ^^

[Iste]

N'oubliez pas que

La réflexion est une chose extrêmement puissante qui peut rendre les programme beaucoup plus propre et puissant, a condition d'être bien utilisé !!
Réfléchissez donc à la pertinence de leur utilisation avant de les taper, car elles peuvent aussi rendre votre code très lourd et très crade !

cf : http://autoitscript.fr/forum/viewtopic.php?f=11&t=6665

[silvere]

N'oubliez pas que

Oui c'est le problème moi j’oublie beaucoup de chose pour sa que je créé un logiciel memo

j'ai un autre prb je bloque a l’option supprimer un memo :
( Partie verte )
Edit Tlem : Code supprimé. Limitez le nombre de question par sujet, sinon, on fini par ne plus s'y retrouver.