probleme de boucle for

Question

Bonjour à tous !
voilà g créé un petit programme qui me permet de créer des tables hexadecimal. je met la lettre a et a la suite il m'ajoute la lettre b, c ,d ,e ,f ect... seulement j'aimerais enregistré ces valeurs dans un fichier comme suit :
00 = a
01 = b
02 = c
ect
g donc fait ceci :

Private Sub CmdSauv_Click()
Dialogue.ShowSave
Open Dialogue.FileName & ".txt" For Output As #1
    For LabelUn = 0 To 15
    For LabelDeux = 0 To 14
    For Tous = 0 To 224
Print #1, Label1(LabelUn).Caption & Label2(LabelDeux).Caption & Text1(Tous).Text
    Next
    Next
    Next
Close #1
End Sub

mais bon ça marche pas car évidemment il me met 224 fois la meme valeur ! donc merci de m'aider si vous avez compris qqchose lol
antony un ami qui vous veut du bien

cs_Jack · Answer

Salut Antony 
Les boucles imbriquées signifient que tu fais 16*15*225 boucles inbriquées : Est-ce que c'est ce que tu veux ?

Si ce que tu veux est d'enregistrer :
- les 16 LabelUn
- puis les 15 LabelDeux
- Puis les 225 Text1
Alors fait une boucle après l'autre :
Open ...
For LabelUn = 0 To 15
Print #1, Label1(LabelUn).Caption
Next
For LabelDeux = 0 To 14
Print #1, Label2(LabelDeux).Caption
Next
For Tous = 0 to 224
Print #1, Text1(Tous).Text
Next
Close ...

Avec ça, tu auras 16+15+225 lignes dans le fichier.
Il faudra, évidemment, les relire dans le même ordre

Vala
Jack

cs_Antony · Answer

merci c gentil mais là ça enregistre toute les valeurs a la suite moi ce que je veux cé que ça maffiche le label1 et le label2 a coté comme ça :
00
01
02
et non :
0
1
0
2
mais il faut qu'ensuite ça affiche les valeurs du text1 comme ça :
00 = A
01 = B
antony un ami qui vous veut du bien

Probleme de boucle for

2 réponses

Discussions similaires