3 nombres sur 9 dans tous les sens page 1 - Algorithme / Maths, Visual Basic, VB6, VB.NET, VB 2005, VB

Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 07 00:22:36

[CASTLE] DU NOUVEAU CHEZ CASTLE, LA NOUVELLE VERSION DE WINDSOR ET DYNAMICPROXY EST SORTIE. par tja

MICROSOFT VOUS PERMET DE TESTER ECMASCRIPT 5 (ES3.1) par FREMYCOMPANY

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

RE : FORMAT DE NOMBRE EN SQL par sadbibi

RE : LIRE LES FICHIER EXCEL à PARTIR D'UN DOSSIER par jack

RE : VBA EXCEL, PROGRAMMATION D'UN FILTRE AVANCé : OPéRATEUR ET/OU NE FONCTIONNE PAS par fngoagouni

COMMENT FAIRE L'IMPRESSION SUR UNE IMPRIMENTE MATRICIELLE par rckdeath

QUELQU'UN POURRAIT M'AIDER à TERMINER MON PROJET ? par steeventide

+ de logiciels à télécharger

1 465 594 membres
632 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 098 codes, 1 303 391 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Poser une question

Sujet : 3 nombres sur 9 dans tous les sens [ Algorithme / Maths ] (anselmejour)

Informations & options pour cette discussion

Vous êtes ici : Thèmes / VB.NET et VB 2005 / Algorithme / Maths / 3 nombres sur 9 dans tous les sens
Ce sujet vous interesse ? Cliquez ici pour être averti quand il y a une nouvelle réponse

dimanche 24 septembre 2006 à 13:34:19 | 3 nombres sur 9 dans tous les sens

anselmejour	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
	Rép. MP 22 msg 27 msg CS

dimanche 24 septembre 2006 à 13:39:06 | Re : 3 nombres sur 9 dans tous les sens

vercomax	une liste de 9 nombres ou 9 chiffres ?
	Rép. MP 510 msg 515 msg CS

dimanche 24 septembre 2006 à 13:48:09 | Re : 3 nombres sur 9 dans tous les sens

anselmejour	123 124 125 126 129 ... 234 245 ... il faut les marier par 3 mais une seule fois 123 mais pas 213, 321, 231 ....
	Rép. MP 22 msg 27 msg CS

dimanche 24 septembre 2006 à 14:31:38 | Re : 3 nombres sur 9 dans tous les sens

PCPT	salut, regarde dans les sources de loto ++ Prenez un instant pour répondre à ce sondage svp
	Rép. MP 9958 msg 10451 msg CS

dimanche 24 septembre 2006 à 15:03:55 | Re : 3 nombres sur 9 dans tous les sens

anselmejour	merci mais je ne trouve pas ce que je cherche
	Rép. MP 22 msg 27 msg CS

dimanche 24 septembre 2006 à 15:07:14 | Re : 3 nombres sur 9 dans tous les sens

anselmejour	je cherche juste une fonction simple pour me generer cette liste
	Rép. MP 22 msg 27 msg CS

dimanche 24 septembre 2006 à 15:21:38 | Re : 3 nombres sur 9 dans tous les sens

vercomax	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 ?
	Rép. MP 510 msg 515 msg CS

dimanche 24 septembre 2006 à 15:25:55 | Re : 3 nombres sur 9 dans tous les sens

Galain	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]
	Rép. MP 479 msg 490 msg CS

dimanche 24 septembre 2006 à 15:32:37 | Re : 3 nombres sur 9 dans tous les sens

anselmejour

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}<br />", 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

dimanche 24 septembre 2006 à 15:32:45 | Re : 3 nombres sur 9 dans tous les sens

PCPT

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

Prenez un instant pour répondre à ce sondage svp

Cette discussion est classé dans : liste, nombres, sens

Répondre à ce message

Sujets en rapport avec ce message

Comment mélanger aléatoirement une liste de nombres entiers ??? [ par JoVB ] Hello,J'ai un probleme : Comment pourrais-je "randomizer" une liste qui contient 100 nombres (toujours les même : en fait c'est 2 fois tout les entier Liste de nombres aléatoires [ par Supo ] Hello j'voudrais savoir comment on fait une liste de nombre aléatoire QUI NE RÉPÈTE JAMAIS 2 FOIS LE MÊME NOMBRE. Nombres premiers (optimisation) [ par Julien39 ] En faisant des programmes sur les nombres premiers et en voulant améliorer la vitesse d'execution on fait beaucoup de choses, vérifier que pour les no 6 nombres aléatoires parmis une liste prédéfinie [ par nichou ] Bonjour à tous,ma question est la suivante : comment faire pour choisir 6 nombres (il ne faut pas qu'il y ait 2 fois le même) dans une liste prédéfini Programme De Traitement D'une Liste De Nombres [ par Keuponrouge ] Salut à tous,je me suis mis dans la tête de réussir quelque chose mais pour cela il me faudrait un programme "sur-mesure", et n'ayant pas les connaiss macro excel [ par ethanolhunt ] Bonjour,au boulot on me demande une petite appli que je suis bien incapable de developper !voici l'idée :au départ il y a un document word avec : - un Liste Bases de données SQL Server [ par Le newbie ] Salut à tous, Je suis sous SQL Server 2005 Express et je cherche à faire la liste de toutes les bases de données contenu sur mon serveur. J'ai bien tr Comparaison de liste. Chercher la concordance la plus probable. [ par epablo ] Bonjour à tous et toutes,Je me suis lancé dans une opération que je croyais simple mais qui est en fait très complexe. (que je trouve cpx)J'ai des lis recuperer les differents adresse mails dans une liste ou String [ par skillipo ] recuperer les differents adresse mails dans une liste ou String bonjour, j'ai un programme qui envoi Jeu lotto [ par keevin69 ] Bonjour a tous! Je m'apelle Kevin et je suis en terminal. Je suis debutant en VB mais passionné d'imformatique. Je fais du vb depuis seulement 2 mois