Je vais donc jouer 3 grilles qu'il m'a sorti, et je vous dis Lundi combien j'ai gagné!
Pour le tableau de variable j'ai volontairement dimensionné pour 6 numéros (0,1,2,3,4,5), parce qu'avec mon cerveau je comprend mieux quand le 2ème numéro s'appelle N(2) plutôt que N(1)
Code : Tout sélectionner
10 CLS: WAIT 50: PRINT "TIRAGE EUROMILLION"
15 BEEP 1,222,50: BEEP 1,141,120: BEEP 1,222,50: BEEP 1,141,320
20 N=0:DIM N(5):DIM E(2)
30 FOR I = 1TO 5
40 RANDOMIZE
50 N=RND50
60 IF I=1 THEN N(1)=N: NEXT I
70 IF I=2 AND N<>N(1) THEN N(2)=N : NEXT I
80 IF I=3 AND N<>N(1) AND N<>N(2)THEN N(3)=N : NEXT I
90 IF I=4 AND N<>N(1) AND N<>N(2)AND N<>N(3)THEN N(4)=N : NEXT I
100 IF I=5 AND N<>N(1) AND N<>N(2)AND N<>N(3)AND N<>N(4)THEN N(5)=N:GOTO 200
110 I=I-1: NEXT I
200 FOR X =1TO 2
210 RANDOMIZE
220 E=RND9
230 IF X=1 THEN E(1)=E : NEXT X
240 IFX=2 AND E<>E(1) THEN E(2)=E: GOTO 300
250 X=X-1: NEXT X
300 PRINT "Joue ces numéros: ", N(1), N(2), N(3), N(4) N(5)
310 PRINT "Et joue ces étoiles: ", E(1), E(2)
