Accueil > Forum > > > > 3 nombres sur 9 dans tous les sens
 3 nombres sur 9 dans tous les sens
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
|
|
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 ?
|
|
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 ....
|
|
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  |
|
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
|
|
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
|
|
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 ?
|
|
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]
|
|
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ée 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
 Livres en rapport
|
Derniers Blogs
 DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|