Comment faire une variable variable ?
Résolu
adess00
Messages postés
261
Date d'inscription
vendredi 4 mars 2005
Statut
Membre
Dernière intervention
27 septembre 2008
-
27 juil. 2005 à 02:26
adess00 Messages postés 261 Date d'inscription vendredi 4 mars 2005 Statut Membre Dernière intervention 27 septembre 2008 - 27 juil. 2005 à 16:04
adess00 Messages postés 261 Date d'inscription vendredi 4 mars 2005 Statut Membre Dernière intervention 27 septembre 2008 - 27 juil. 2005 à 16:04
A voir également:
- Comment faire une variable variable ?
- C# variable globale ✓ - Forum C# / .NET
- Variable objet ou variable with-block non définie ✓ - Forum Visual Basic 6
- Déclarer une variable Globale pouvant être lue et testée sur toutes les procédur ✓ - Forum C# / .NET
- Variable globale java - Forum Java
- Global variables ✓ - Forum C# / .NET
3 réponses
Zlub
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
8
27 juil. 2005 à 02:48
27 juil. 2005 à 02:48
Salut,
Tu veux utiliser les tableaux sous VB si je comprens bien ... voici un exemple
Dim aa() As String 'declaration du tableau de type string
ReDim aa(1 To 2) ' redimension du tableau en ecrasant les valeurs
' acces aux cellules du tableau
aa(1) = "Salut"
aa(2) = "Aess00"
MsgBox aa(1) & " " & aa(2)
'Ajouter un élément
ReDim Preserve aa(1 To 3) ' Preserve pour garder les données déjà dans le tableau
aa(3) = "Fin !!!"
' parcour
Dim i As Single
Dim max As Single
max = UBound(aa) 'Ubound renvoi le nb d'élement dans le tableau, attention si tableau commence à l'indice zéro !
For i 1 To max ' si tableau commence à zéro : For i 0 To max-1
MsgBox "élement " & i & " = " & aa(i)
Next i
++
Zlub
Tu veux utiliser les tableaux sous VB si je comprens bien ... voici un exemple
Dim aa() As String 'declaration du tableau de type string
ReDim aa(1 To 2) ' redimension du tableau en ecrasant les valeurs
' acces aux cellules du tableau
aa(1) = "Salut"
aa(2) = "Aess00"
MsgBox aa(1) & " " & aa(2)
'Ajouter un élément
ReDim Preserve aa(1 To 3) ' Preserve pour garder les données déjà dans le tableau
aa(3) = "Fin !!!"
' parcour
Dim i As Single
Dim max As Single
max = UBound(aa) 'Ubound renvoi le nb d'élement dans le tableau, attention si tableau commence à l'indice zéro !
For i 1 To max ' si tableau commence à zéro : For i 0 To max-1
MsgBox "élement " & i & " = " & aa(i)
Next i
++
Zlub
adess00
Messages postés
261
Date d'inscription
vendredi 4 mars 2005
Statut
Membre
Dernière intervention
27 septembre 2008
1
27 juil. 2005 à 15:02
27 juil. 2005 à 15:02
Interessant je vai essayer cette methode
jepense que sa devrai marcher :)
merci bien
a+
jepense que sa devrai marcher :)
merci bien
a+
adess00
Messages postés
261
Date d'inscription
vendredi 4 mars 2005
Statut
Membre
Dernière intervention
27 septembre 2008
1
27 juil. 2005 à 16:04
27 juil. 2005 à 16:04
Excellant !
Sa marche
Je vai pouvoir optimiser mon code pour qu il soit plus rapide
Pour info je liste 13 millions de combinaisons et j en enleve si celles si repondent a certains parametres d exclusion les combinaisons allant de 1-2-3-4-5-6 a 44-45-46-47-48-49 (et oui c le loto lol)
Je tourne a 180 000 combinaisons par secondes donc sa met pas plus d une minute 30 et ce qui est dur c est de rajouter des parametres d exclusion sans trop reduire cette vitesse. Ta solution devrait y contribuer lol
Merci
a+
Sa marche
Je vai pouvoir optimiser mon code pour qu il soit plus rapide
Pour info je liste 13 millions de combinaisons et j en enleve si celles si repondent a certains parametres d exclusion les combinaisons allant de 1-2-3-4-5-6 a 44-45-46-47-48-49 (et oui c le loto lol)
Je tourne a 180 000 combinaisons par secondes donc sa met pas plus d une minute 30 et ce qui est dur c est de rajouter des parametres d exclusion sans trop reduire cette vitesse. Ta solution devrait y contribuer lol
Merci
a+
