Dolphin Boy
Messages postés630Date d'inscriptionvendredi 5 mai 2006StatutMembreDernière intervention17 février 2007 24 sept. 2006 à 17:40
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
anselmejour
Messages postés28Date d'inscriptionlundi 24 octobre 2005StatutMembreDernière intervention 9 octobre 2006 24 sept. 2006 à 15:32
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 & "<hr />")
Me.AddLiteral(sb.ToString)
End Sub
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
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+