Un peu de basic

Question

Le ch'tit bout de prog qui suit sert &#224; calculer le nombre de combinaisons 
de 3 N&#176; parmis 7 couvrant toutes les combinaisons de 2.
Il fonctionne tr&#232;s bien pour 7 N&#176; et trouve bien les 7 combinaisons n&#233;cessaires 
Vous pouvez modifier le code pour 9 N&#176;, il ne fonctionne plus.
Pour 9 N&#176;, on devrait trouver 12 combinaisons qui existent r&#233;ellement.
Je sais que vous serez nombreux &#224; relever le d&#233;fit pour trouver le programme 
qui fonctionne pour toutes les combinaisons de N&#176; Pris NxN et couvrant toutes les combinaisons de M<N.
Le but de la manip est de cr&#233;er des syst&#232;mes r&#233;ducteur pour les jeux genre 
Loto, Euro patate, tierc&#233; et autres.

CLS
a$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"


FOR a = 1 TO 5           3 boucles pour les combinaisons de 7 x 3
FOR b = a + 1 TO 6
FOR c = b + 1 TO 7
N3$ = MID$(a$, a, 1) + MID$(a$, b, 1) + MID$(a$, c, 1)
FOR d = 1 TO 2           2 boucles pour les combinaisons de 3 x 2
FOR e = d + 1 TO 3
n2$ = MID$(N3$, d, 1) + MID$(N3$, e, 1)
r = INSTR(ret$, n2$)     Test si la combinaison de 2 est d&#233;j&#224; couverte.
IF r = 0 THEN
nb = nb + 1                     + 1 si elle n'est pas couverte.
re$ = re$ + n2$ + " "
END IF
NEXT e
NEXT d
IF nb = 3 THEN             Si 3 combinaisons de 2 non couvertes, comb OK
ret$ = ret$ + re$             Mise en m&#233;moire des 3x2 pour comparaison.
Nbc = Nbc + 1               Nombre de bonnes comb de 3 + 1.
PRINT Nbc; " "; N3$      Affichege
END IF
nb = 0                             Remise &#224; 0
re$ = ""
NEXT c
NEXT b
NEXT a

[/ ]

22max · Answer

J'ai fait un programme qui est en rpport sur le jeu euromillion, tu peut le trouver sur le site &#224; http://www.vbfrance.fr/code.aspx?id=29270.
Voila.
max


Le 22 juin 2004, un grand monsieur du monde de l'informatique nous a quitt&#233;. L'am&#233;ricain Bob Bemer, qui est l'inventeur du code ASCII cr&#233;&#233; en 1961 est d&#233;c&#233;d&#233; &#224; l'&#226;ge de 84 ans des suites d'un cancer

cs_ATitus · Answer

ATitus_

Bonsoir .

Interressant une macro qui permettrait de faire des "systemes reducteurs ", cela au choix de l'utilisateur.

Deplus le faire tourner sur un classuer Excel, faciliterai le controle sur une base de loterie au Choix ( loto / euromilion / keno ect ...).

Je debute en VBA, mais je regarderai de plus pres ton code.

@+

Un peu de basic

2 réponses

Discussions similaires