3 nombres sur 9 dans tous les sensRésolu

Question

bonjour
sur une liste de 9 nombres il me les faut par 3  tous mais une seule fois

1,2,3,4,5,6,7,8,9

je dois obtenir (
dans un listdictionnary par exemple
)
123
124
125
126
129
...
234
245
...

mais bien sur pas 321 ni 524 car ils sont deja dans ma liste : 123 et 245

merci pour l'aide

Dolphin Boy · Accepted Answer

J'ai l'impreesion que depuis le début c'est un dialogue de sourds ce topic. En vb.net comme en vb6, l'algo pour obtenir cette liste de combinaison est pourtant simple et je l'ai donné plus haut. Le re-voilà adapté à ton code à part que je ne sais pas ce que tu veux faire avec ta variable i.

Dim neufa As New StringCollection
            For X As Integer = 1 To 9
                neufa.Add(X.ToString)
            Next
            Dim a, b, c As Integer

            Dim sb As New StringBuilder
            


Dim i As Integer = 0


            For a = 0 to 7
                For b = a + 1 to 8
                   For c = b + 1 to 9
                        sb.AppendFormat("{0} {1} {2} 
", neufa(a), neufa(b), neufa(c))
                    Next
                Next
            Next

            Me.AddLiteral(i.ToString & "<hr />")
            Me.AddLiteral(sb.ToString)

vercomax · Answer

une liste de 9 nombres ou 9 chiffres ?

anselmejour · Answer

123
124
125
126
129
...
234
245
...


il faut les marier par 3 mais une seule fois


123 mais pas 213, 321, 231 ....

PCPT · Answer

salut,
regarde dans les sources de loto

++
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp

anselmejour · Answer

merci mais je ne trouve pas ce que je  cherche

anselmejour · Answer

je cherche juste une fonction simple pour me generer cette liste

vercomax · Answer

peut-etre çà non ?







FOR 



a=1 
TO 
9

 FOR 
b=2 
TO 
9

  FOR 
c=3 TO


9
   reult=
STR
(a)+
STR
(b)+
STR
(c)

  next a
 next b
next c

non, çà fait pas ?

cs_Galain · Answer

Salut anselmejour
Je t'ai mis un code exprès pour toi pour ton problème de 3 chiffres parmi 9
dis- moi si cela est ok pour toi

GRENIER Alain[8D]

anselmejour · Answer

merci Vercomax je teste de suite Alain ou as tu mis le code ? merci a vous 2 j'etais sur un truc du genre : Private Sub TroisDeNeuf() Dim neufa As New StringCollection Dim neufb As New StringCollection Dim neufc As New StringCollection For a As Integer = 1 To 9 neufa.Add(a.tostring) Next neufb = neufa neufc = neufa Dim sb As New StringBuilder Dim i As Integer = 0 Dim _a, _b, _c As Integer For a As Integer = 0 To 8 For b As Integer = 0 To 8 For c As Integer = 0 To 8 If a <> b AndAlso a <> c AndAlso b <> c Then sb.AppendFormat("{0} {1} {2} ", neufa(a), neufa(b), neufa(c)) i += 1 End If Next Next 'ici il faudrait supprimer a chaque boucle le i=+1 Next Me.AddLiteral(i.ToString & "

") Me.AddLiteral(sb.ToString) End Sub

PCPT · Answer

pose une listbox nommée Liste, et 2 boutons

voici ci-dessous le code de Galain (désolé mais si peu de code, j'ai désactivé la source)

Private Sub Command1_Click()
    chaine$ = "012"
    Do
        car1$ = Chr$(Asc(Left$(chaine$, 1) + 1))
        car2$ = Chr$(Asc(Mid$(chaine$, 2, 1) + 1))
        car3$ = Chr$(Asc(Right$(chaine$, 1) + 1))
        chaine$ = car1$ & car2$ & car3$
        If car1$ = "7" Then
            Liste.AddItem chaine$
            Exit Do
        End If
        temp$ = chaine$
        For i% = Val(Right$(chaine$, 1)) To 9
            chaine$ = Left$(chaine$, 2) & LTrim$(i%)
            Liste.AddItem chaine$
        Next i%
        chaine$ = temp$
    Loop
End Sub

Private Sub Command2_Click()
    Liste.Clear
End Sub

Private Sub Form_Load()
    Command1.Caption = "Lancer la 
recherche"
    Command2.Caption = "Effacer la 
liste"
    Liste.Clear
End Sub

<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp

cs_Galain · Answer

Pour anselmejour
Il faut attendre que le projet soit disponible dans les nouveaux codes 
Cela se fait avec avec un petit temps de retard par rapport au dépot de la source

GRENIER Alain[8D]

Dolphin Boy · Answer

Salut, je dirais plutôt :

Dim result As String
  For a = 1 To 7
   For b = a + 1 To 8
    For c = b + 1 To 9
     result = a & b & c
    Next a
   Next b
  Next c

anselmejour · Answer

Vercomax dans ton code tu trouves  1  9  9 , 2  2  3
il ne faut pas de doublons

cs_Galain · Answer

Pour PCPT
tu as bien fait de désactiver la source : c'est vrai que pour si peu cela n'en valait pas la peine
Le principal est que notre ami ait le bout de code
Merci et a+

GRENIER Alain[8D]

anselmejour · Answer

Dolphin le resultat semble correct

il me faut juste maintenant l'adapter a un tableau, car bien sur ce ne sont pas  des chiffres de 1 a 9 mais 9 elements de tableau

merci bcp

Alain je n'ai pas trop idee  comment trouver la source de ton script , cest pas possible de la poster au plus simple cest a dire ici ?

PCPT · Answer

je ne doutais pas de ta compréhension.

anselmejour -> si la réponse que j'ai copié précédemment te convient, pense à valider une des réponses de Galain.

<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp

vercomax · Answer

BRAVO DOLPHIN !

PCPT · Answer

anselmejour
 -> tu aurais déjà eu ta réponses en lisant tous les posts... 

<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp

anselmejour · Answer

merci pour lre code mais quel est ce langage ? en vbnet ca donne quoi ?





chaine
$ = "012"
    Do
        car1$ = Chr$(Asc(Left$(chaine$, 1) + 1))
        car2$ = Chr$(Asc(Mid$(chaine$, 2, 1) + 1))
        car3$ = Chr$(Asc(Right$(chaine$, 1) + 1))
        chaine$ = car1$ & car2$ & car3$
        If car1$ = "7" Then
            Liste.AddItem chaine$
            Exit Do
        End If
        temp$ = chaine$
        For i% = Val(Right$(chaine$, 1)) To 9
            chaine$ = Left$(chaine$, 2) & LTrim$(i%)
            Liste.AddItem chaine$
        Next i%
        chaine$ = temp$
    Loop

Dolphin Boy · Answer

Pour un tableau, l'adaptation est simple 

Dim result As String
  For a = 1 To 7
   For b = a + 1 To 8
    For c = b + 1 To 9
     result = Tablo(a) & Tablo(b) & Tablo(c)
    Next a
   Next b
  Next c

anselmejour · Answer

non Dolphin je plante

            Dim neufa As New StringCollection

            neufa.Add(2.ToString)
            neufa.Add(6.ToString)
            neufa.Add(7.ToString)
            neufa.Add(8.ToString)
            neufa.Add(3.ToString)
            neufa.Add(14.ToString)
            neufa.Add(15.ToString)
            neufa.Add(11.ToString)
            neufa.Add(22.ToString)

            Dim a, b, c As Integer
            Dim sb As New StringBuilder
            Dim i As Integer = 0

            For a = 1 To 7
                For b = a + 1 To 8
                    For c = b + 1 To 9
                        i += 1
                        sb.AppendFormat("{0} {1} {2}
", neufa(a), neufa(b), neufa(c))
                    Next
                Next
            Next

            Me.AddLiteral(i.ToString & "<hr />")
            Me.AddLiteral(sb.ToString)

PCPT · Answer

Dolphin Boy
 -> j'ai un gros doute sur la fiabilité de ton code.. (tant en chaîne qu'en tableau, en VB6 tout au moins)

anselmejour · Answer

non ca marche pas
j'aimerais bien l'autre code mais en vb net  , je comprend pas le langage utilise

anselmejour · Answer

imaginons que mes 9 nombres soient :  14, 17, 25,26,42,77,89,101,200

anselmejour · Answer

il s'agit d'un tableau de 9 nombres, c'est bete qu'on nepuisse pas editer les messages

Dolphin Boy · Answer

Oups, un oubli, les tableaux commencent par 0 donc :

  For a = 0 To 6
   For b = a + 1 To 7
    For c = b + 1 To 8
     '.....
    Next a
   Next b
  Next c

cs_Galain · Answer

Désolé je n'ai pas fait attention au fait que tu programmes en VB Net : c'est du VB 6.0

Je te décortique l'idée du code

- Une chaine String égale à "012"
- une boucle DO LOOP
     -  car1$ : chaine d'1 caractère ASCII représentant le premier caractère de chaine$ avec le code ASCII augmenté de 1 ( le 0 devient 1)
     - car2$ : idem mais pour le second caractère de chaine$ ( le 1 devient 2)
     - car3$ : idem pour le 3° caractère de chaine$ ( le 2 devient 3)
     - on reforme chaine$ en concaténant car1$, car2$ et car3$ : pour le premier tour "012" devient "123"
     - si car1$ = "7" on affiche la chaine et on sort ( c'est le "789" de fin de liste)
     - on sauvegarde chaine dans une varible string Temp$ 
     - On fait une boucle FOR NEXT depuis la valeur du chiffre de droite de la chaine jusqu'à 9 ( de 3 à 9 la première fois)
               - dans ce FOR NEXT on forme la chaine à afficher à l'écran : les 2 chiffres de gauche de       chaine$ et le chiffre de progression du FOR NEXT --> 123,124,125,126,127,128,129 pour la première série
               - on affiche dans la liste à chaque fois cette chaine : 123 puis 124 pui etc....
       - fin du FOR NEXT
       - on récupère notre chaine d'origine sauvegardée dans temp$
- Fin de la boucle DO LOOP

En espérant t'avoir aidé
A+

GRENIER Alain[8D]

anselmejour · Answer

merci bcp Alain pour ton code et ton temps, mais je ne vois pas bien ton principe de code si tu as un tableau de x nombre (disons 9) comme suit : 14, 17, 25,26,42,77,89,101,200 il faut les marier par y (ici 3) sans doublons (pas 1,1,2) et toujours differents (1,2,4 mais pas 4,2,1) mon code marcherait mais il faut a chaque boucle vider le nombre en cours Private Sub TroisDeNeuf() Dim neufa As New StringCollection Dim neufb As New StringCollection Dim neufc As New StringCollection For a As Integer = 1 To 9 neufa.Add(a.tostring) Next neufb = neufa neufc = neufa Dim sb As New StringBuilder Dim i As Integer = 0 Dim _a, _b, _c As Integer For a As Integer = 0 To 8 For b As Integer = 0 To 8 For c As Integer = 0 To 8 If a <> b AndAlso a <> c AndAlso b <> c Then sb.AppendFormat("{0} {1} {2} ", neufa(a), neufa(b), neufa(c)) i += 1 End If Next Next 'ici il faudrait supprimer a chaque boucle le i=+1 Next Me.AddLiteral(i.ToString & "

") Me.AddLiteral(sb.ToString) End Sub

cs_Galain · Answer

Salut Anselmejour
Au début j'avais compris que tu travaillais sur les chiffres 1 à 9 alors que tu travailles sur 9 nombres et ces nombres peuvent comporter plusieurs chiffres
Fais un tableau de tes 9 nombres avec les indices de 1 à 9 : Table (1 to 9)
ensuite crée 3 variables : ind1,ind2 et ind3 qui représenteront les indicesAu début pose ind1 0 : ind2 1 et ind3 = 2  ( les indices de début)
Une boucle Do
    ind1 = ind1 +1
    ind2 =ind2 +1
    ind3 =ind3 +1
    si ind1 = 7 alors 
          les 3 éléments sont table(7),table(8) et Table(9)
          tu affiches tes trois éléments pour test
          On sort de la boucle
          Une boucle FOR :   Pour i = ind3 to 9
                  Les 3 éléments sont Table(ind1),table(ind2) et table(i)
                  Tu affiches les 3 éléments pour test
          Fin de la boucle FOR
Fin de la boucle DO              
 Loop

GRENIER Alain[8D]

anselmejour · Answer

non je l'ai pas

            Dim neufa As New StringCollection
            For x As Integer = 1 To 9
                neufa.Add(x.ToString)
            Next

            Dim a, b, c As Integer
            a = -1
            b = 0
            c = 1

            Dim sb As New StringBuilder
            Dim i As Integer = 0

            Do
                a += 1
                b += 1
                c += 1
                If a = 7 Then
                    Exit Do
                Else
                    For y As Integer = c To 9
                        i += 1
                        sb.AppendFormat("{0} {1} {2}
", neufa(a), neufa(b), neufa(c))
                    Next
                End If
            Loop

            Me.AddLiteral(i.ToString & "<hr />")
            Me.AddLiteral(sb.ToString)

anselmejour · Answer

je penseque mon code est correct mais le probleme est de supprimer des elements d'un tableau dans une boucle (en changer la taille)

cs_Galain · Answer

Je me suis permis de corriger en VB Net
Vérifie les 4 lignes avec les points d'interrogation car je ne les comprends pas

dim neufa as New StringCollection
For X as Integer = 1 to 9
      neufa.Add(x.ToString)
Next
Dim a,b,c as Integer
a=0
b=1
c=2

Dim sb as New StringBuilder
Do
     a+ = 1
     b+ = 1
     c+ =1
     if a = 7 then
          sb.Appendformat ("{0} {1} {2}
",neufa(a),neufa(b),neufa(c))          ??????
     exit do 
     For y  as Integer = c to 9
          sb.Appendformat ("{0} {1} {2} 
",neufa(a),neufa(b),neufa(y))          ???????
     Next
Loop

Me.AddLiteral(i.ToString  & "<hr />"           ????????
Me.AddLiteral(sb.ToString)             ????????????

GRENIER Alain[8D]

cs_Galain · Answer

Il manque un End If entre le Exit Do et la Boucle For Next
Excuse

GRENIER Alain[8D]

anselmejour · Answer

ton code : 

Dim neufa As New StringCollection
            For X As Integer = 1 To 9
                neufa.Add(X.ToString)
            Next
            Dim a, b, c As Integer
            a = 0
            b = 1
            c = 2

            Dim sb As New StringBuilder
            Dim i As Integer = 0

            Do
                a += 1
                b += 1
                c += 1
                If a = 7 Then
                    Exit Do
                Else
                    For y As Integer = c To 9
                        sb.AppendFormat("{0} {1} {2} 
", neufa(a), neufa(b), neufa(c))
                    Next
                End If
            Loop

            Me.AddLiteral(i.ToString & "<hr />")
            Me.AddLiteral(sb.ToString)

avec ca j'obtiens : 


2 3 4 
2 3 4 
2 3 4 
2 3 4 
2 3 4 
2 3 4 
2 3 4 
3 4 5 
3 4 5 
3 4 5 
3 4 5 
3 4 5 
3 4 5 
4 5 6 
4 5 6 
4 5 6 
4 5 6 
4 5 6 
5 6 7 
5 6 7 
5 6 7 
5 6 7 
6 7 8 
6 7 8 
6 7 8 
7 8 9 
7 8 9 

si je remplace



 sb.AppendFormat("{0} {1} {2} 
", neufa(a), neufa(b), neufa(c))
par





 sb.AppendFormat("{0} {1} {2} 
", neufa(a), neufa(b), neufa(y))

je plante out of range

appendformat est juste une construction de chaine (string) a partir des donnees en vb net

anselmejour · Answer

Index was out of range.  Must be non-negative and less than the size of the collection.
Parameter name: index






ma variable i sert juste de titre a compter le nombre de lignes obtenues
ton code ne marche pas

Dolphin Boy · Answer

Mille excuses, une erreur de copier coller :

à la place de :

            For a = 0 to 7
                For b = a + 1 to 8
                   For c = b + 1 to 9

met :
            For a = 0 to 6
                For b = a + 1 to 7
                   For c = b + 1 to 8

cs_Galain · Answer

Dim neufa As New StringCollection
For X As Integer = 1 To 9
   neufa.Add(X.ToString)
Next
Dim a, b, c As Integer
a = 0
b = 1
c = 2


Dim sb As New StringBuilder
Dim i As Integer = 0


Do
   a += 1
   b += 1
   c += 1
   If a = 7 Then
       sb.AppendFormat("{0} {1} {2} 
", neufa(a), neufa(b), neufa(c)) 
       i += 1
       Exit Do
   end if
   For y As Integer = c To 9
       sb.AppendFormat("{0} {1} {2} 
", neufa(a), neufa(b), neufa(y))
       i +=1
   Next
Loop


Me.AddLiteral(i.ToString & "<hr />")
Me.AddLiteral(sb.ToString)

GRENIER Alain[8D]

anselmejour · Answer

Dolphin ca marche nikel chrome

Alain non ca plante

merci a tous les 2

PCPT · Answer

un p'tit coup de "réponse acceptée" sur la ou les réponses qui t'ont aidé?
ouaip, çà peut être sympa... (habitude à prendre)

++
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp

anselmejour · Answer

voila en 2 reponses le resultat

merci a tous

Vb Lover · Answer

ces codes sont sûrement justes, mais il me semble en général qu'ils
font beaucoup d'opérations pour rien (par exemple les transformations
ascii-integer et vice-versa, ou les tests pour savoir si les nombres
sont différents). Je te propose donc le code suivant:

' *******************************************************
Private Sub Command1_Click()

dim i as Integer, j as Integer, k as Integer

    For i=1 To 7

        For j=i+1 To 8

            For k=j+1 To 9
               
List.AddItem CStr(i) & CStr(j) & CStr(k)
            Next

        Next

    Next

End Sub
' *******************************************************

je pense qu'on peut difficilement faire moins de boucles pour ce problème-là...


par contre, si qqn pouvait me dire comment insérer du code qui se fasse
interpréter dans les messages et qui soit donc mis en forme
automatiquement, je lui en serai très reconnaissant! Il y a quelques
année (), je me souviens qu'il y avait un
bouton exprès pour, mais là je n'arrive pas à le trouver... Pour ce
message, par exemple, j'ai mis en bleu manuellement quelques mots-clé
pour que ce soit plus lisible, mais il y a forcément mieux, non??

Vb Lover · Answer

Désolé, je n'avais vu que la page 1 de cette discussion, je n'imaginais
pas qu'il y avait autant de réponses!! c'est seulement quand je l'ai
posté que le site m'a renvoyé automatiquement à la dernière page...
mais donc je crois qu'on est d'accord sur l'algorithme à utiliser!


Toujours est-il que si qqn sait comment mettre du code dans les messages, je suis preneur!

3 nombres sur 9 dans tous les sens

42 réponses

Votre réponse

Discussions similaires