Loto Résolu

Question

Bonjour,
J'aimerais faire un programme qui calcule l'ensemble des combinaisons possible au loto, masi je ne sais pas ou commencer pourriez vous m'aider en me donnant une idée de lancement 

Merci d'avance

cs_ITALIA · Accepted Answer

et comme ça???

For i = 1 To 49
    For j = 1 To 49        If j i Then j j + 1
            For z = 1 To 49                If z i Then z z + 1                If z j Then z z + 1
                Combo1.AddItem i & " - " & j & " - " & z
            Next z
    Next j
Next i

It@li@

Tilois · Answer

C'est 7 boucles imbriqués
ex pour 2 nombres

dim combi() as string
dim nbr as integer
nbr=0
for i=1 to 49
for j=1 to 49
if i=j exit for
combi(nbr)=i & " - "  & j
nbr=nbr+1
next j
next i

capoueidiablo · Answer

a tu deja entendu parler des combinaisons en mathematique ?
c'est justement le faite de chercher les possibilitées possible d'un événement. fait quelque recherches la dessus se sera plus sure  :) 

sinon le nombre de combinaison possible au loto est de : 13 983 816
tu dois avoir 6 numèros sur 49
Possibilitée = (49 x 48 x 47 x 46 x 45 x 44) / (1 x 2 x 3 x 4 x 5 x 6)

Voili voilou ++
--Capoueidiablo--

cs_ITALIA · Answer

Dans l'exemple de Tilois il y a 49 boules différentes
sinon Tilois if i=j exit for...il manque un then avant le exit...et je ne vois pas l'utilité..

pour 3 boules ayant pour possible valeur de 1 à 49
-----------------------------------------------------------------------------------
For i = 1 To 49
    For j = 1 To 49
         For z = 1 to 49
                Combo1.AddItem i & " - " & j & " - " & z
         Next z
    Next j
Next i
-----------------------------------------------------------------------------------

Attention ca commence à durer un peu de temps !!!

It@li@

Tilois · Answer

Dexu boules ne peuvent pas avoir le meme num, on est au loto les gars!

cs_ITALIA · Answer

oups desolé j jou jamais.........

It@li@

Tilois · Answer

La c'est ok, sachant que ca tire 3 boules et qu'il en faut 7. Mais sinon le code est parfais

Vb Lover · Answer

Moi je ferais plutôt  :

for i=1 to 49
for j=i+1 to 49
for k=j+1 to 49
'...
next
next
next

on évite des boules, et c'est mieux

VB Lover

Vb Lover · Answer

par contre, pour 7 boules, je ne sais pas vous, mais moi je trouve nul d'avoir 7 next qui se suivent... J'utiliserais donc une version récursive. Remarquez au passage que ça donne le minimum de combinaisons, avec toutes les boules différentes.

VB Lover

palpelune · Answer

Merci les gars c'est vraiment sympas de me repondre ce week end je vais essayer j'espere ne pas faire planter mon ordinateur avec toutes ces combinaisons en tout cas merci encore.

cs_ITALIA · Answer

n'oublie pas de cocher une ou plusieurs reponses acceptées !!

It@li@

corbeau93 · Answer

J'ai un vieux programme qui calcul les stat, ecart, nombre sortie...
mais il est en quick basic, faudrai remettre a jour la base de donnee des tirages, si ca t'interesse....

cs_smat06 · Answer

moi je ferais plutot:

for i=1 to 47
for j=i+1 to 48
for k=j+1 to 49
'...
next
next
next

cs_korg · Answer

La réponse de smat06 est plus juste!

lexsty · Answer

Salut : voil&#224; un code qui g&#233;n&#232;re 6 n &#176; diff&#233;rents ( de 1 &#224; 49 )

S = Int(1 + Rnd * 49)                                      1er n&#176;


V = Int(1 + Rnd * 49)


While V = S


V = Int(1 + Rnd * 49)                                       2eme n&#176;


Wend


W = Int(1 + Rnd * 49)


While w S Or w V


W = Int(1 + Rnd * 49)                                       3eme n&#176;


Wend


X = Int(1 + Rnd * 49)


While X S Or X V Or X = w


X = Int(1 + Rnd * 49)                                         4eme n&#176;


Wend


Y = Int(1 + Rnd * 49)


While Y S Or Y V Or Y = w Or Y = X


Y = Int(1 + Rnd * 49)                                           5eme n&#176;


Wend


Z = Int(1 + Rnd * 49)


While Z S Or Z V Or Z = w Or Z = X Or Z = Y


Z = Int(1 + Rnd * 49)                                             6eme n&#176;


Wend

Loto

16 réponses

Discussions similaires