Petit jeux ludique d'unstruction VB

Dans une fenêtre d'exécution je voudrais un petit jeu d'instruction simple avec 3 variables (1, 2 et 3) pour générer toute les combinaisons d'association possible ex : (111. 112. 113. 121. 131 ...jusqu'à 333) soit je pense 31 combinaison possible dans l'ordre croissant.
Et générer le tout dans un fichier texte nommé « test » je pense qu'il faudra déterminer le chemin d'accès.

J'aimerais pouvoir rajouter une virgule accompagné d'un espace après chaque valeur de variable (111, 112, 113, ...).

Afin de peaufiner mes connaissances j'aimerais que l'on m'aide à écrire le code en VB6 s'il vous plaît.

Je ne sais pas vraiment si sa parait difficile, quand pensez-vous ?

Merci,
Marcus.
*****@yahoo.fr

petit

Merçi pour ta réponse omar,
Pour les boucle je vois le genre d'unstruction mais comment faire et mettre dans une variable la concaténation du résultat des 3 boucles à chaque boucle ? C'est compliqué. nom ?
Apparament c'est vous qui géré ce forum là ? Merçi d'avoir retiré mon maile ...j'avais hésité de le mettre...
@+

Salut,
Merci pour ton aide hrusdik, c gentil.
(j'ai pas pu me connecter depuis 1 semaine à cause de mon PC. J'utilise maintenant celui d'un ami)

Ton code est vraiment intérressant...je but un peut sur (#1, Chiffre & ", " ) mais je pense bientôt tout comprendre !


Merci encore @+

C encore moi!
Si je voudrais rajouter à toute ces valeur une autre chaine Ex: A111, A112
alors je pense faire comme sa:

Print #1, & "A" ,Chiffre & ", "

Est-ce qu'il y aurait des erreur là ?
Merci

merci
J'essais un autre truc,
@+

Eh bien tu n'a qu'a utiliser leur valeurs ASCII :

A = 97 je crois, B = 98 etc ...

Et tu utilise la fonction Chr(le_code_de_la_lettre_ici) pour "convertir" ton code ASCII en Symbole lui correspondant.

Donc tes For tu les fais comme ca :

For PremiereLettre = 97 to 100 ' jusqu'a D

For A=97 To 100 For B=98 To 100
For C=99 to 100
For D=100
Résultat = Chr(97) & Chr(98) & Chr(99) & Chr(100)
Print #1, Résultat & " "
Next
Next
Next
Next
End
__________________________
Vérsion Boite MSgbox:


For A=97 To 100
For B=98 To 100
For C=99 to 100
For D=100
Résultat = Chr(97) & Chr(98) & Chr(99) & Chr(100)
Print MSgbox, Résultat & " "
Next A
Next B
Next C
Next D
End
__________________________________
La bonne version je pense (en MSgbox):



For A=97 To 100
For B=98 To 100
For C=99 to 100
For D=100
Résultat = Chr(A) & Chr(B) & Chr(C) & Chr(D)
Print MSgbox, Résultat & " "
Next A
Next B
Next C
Next D
End


Note: J'ésite entre les deux ;
Print MSgbox, Résultat & " " Ou:
Debug.Print Résultat & " " (exécution seulement)


Voilà, j'espert ne pas mettre gourré.
@+

Voil

For A=97 To 100
For B=97 To 100
For C=97 To 100
For D=97 To 100
Résultat = Chr(A) & Chr(B) & Chr(C) & Chr(D)
MSgbox Résultat & ", "
Next A
Next B
Next C
Next D

---------------------------------------------------------


For A=97 To 100
For B=97 To 100
For C=97 To 100
For D=97 To 100
Résultat = Chr(A) & Chr(B) & Chr(C) & Chr(D)
Print #1, Résultat & ", "
Next A
Next B
Next C
Next D



Voila

#l
Salut Hrusdik,
Pour mon dérnier postage sur ce sujet là, je voudrais résoudre cette derniére si elle est juste :

1) Faire la même chose mais Avec une variable tableau "a"
Voiçi mon code:


Sub test()
Dim a As string 'ou plutôt a(2) ?
a(0)= A, a(1)= B, a(2)= C
Dim i As integer

For i = 0 To 2
For j = 0 To 2
For k = 0 To 2
Résultat = (a(i) & a(j) & a(k))
Print #1, Résultat & ", "
Next k
Next j
Next i
End


2) remplacer 0 To 2 par une variable:

Sub test()
Dim Chiffre1, Chiffre2, As integer
Chiffre1 = 0
Chiffre2 = 2
Dim a As string
a(0)= A, a(1)= B, a(2)= C
For i = Chiffre1 To Chiffre2
For j = Chiffre1 To Chiffre2
For k = Chiffre1 To Chiffre2
Résultat = (a(i) & a(j) & a(k))
Print #1, Résultat & ", "
Next k
Next j
Next i
End

Voilà voilou
merci bien, @+

marc

Finalement je me suis trompé pour la 1) .
Le code était plutôt :

Sub test()
Dim a As string 'ou plutôt a(2) ?
a(0)= A, a(1)= B, a(2)= C
Dim i As integer

For i = a(0,1,2)
For j = a(0,1,2)
For k = a(0,1,2)
Résultat = a(i) & a(j) & a(k)
Print #1, Résultat & ", "
Next k
Next j
Next i
End

Voilà, je pense que tout est juste.
@+

marc

En faite c'est une variable tableau a()
@+
je reviend poster (jai un prob)
merci

Salut Hrusdik,

la syntaxe que je veus désigner est:
(mais pour "As string" je me suis peut être surement trompé)

Dim a(0) As string
Dim a(1) As string
Dim a(2) As string
a(0)= A
a(1)= B
a(2)= C

Je voudrais ensuite faire comme sa :

For i = a(0,1,2) équivaut à For i = a(0) To a(2) ; soit i = A To C

Normalement on peut utiliser des variables tableau pour faire des boucles imbriqué avec des chaines comme pour des chiffres.
Ma syntaxe "For i = a(0,1,2)" comme tu le dis est fausse alors peut être que c'est :

For i = a(2)
For i = a(2)
For i = a2)

Peut être que cette fois çi c'est juste

Marc , merci

Un tableau est declaré comme suit : Dim a() as String
Pour affecter les valeur : a(1) = "B" , a(2) = "C" etc ...

Pour extraire c'est pareil.

Je te laisse reflechir.

( dsl je suis pressé )

For i = a(1,2,3)
c'est faux

Dim a() as String
a(1)= “A”
a(2)= “B”
a(3)= “C”

For 1 to 3
For 1 to 3
For 1 to 3
Résultat = a(i) & a(j) & a(k)
Print , Résultat & ", "
Next k
Next j
Next i

Voila.

C le site que j'avais posté sa!

ok je vois bien maintenant le fonctionnement.

merci
A+