Quelques explications :
Ligne 30 à 70 : initialisation
Après le dimensionnement du tableau A(), on saisit au clavier le nombre de chiffres que l’on veut obtenir (6 pour les grilles simples, 7 à 10 pour les multiples)
La ligne 70 refuse toutes autres valeurs.
Ligne 100 à 140 : tirage
Elle remplissent le tableau A() avec des chiffres 1 pour les cases qui viennent d’être tirées au hasard.
La ligne 120 vérifie le contenu de A() pour s’assurer que le nombre n’a pas déjà été tiré.
Ligne 200 à 320 : résultat
Après le dessin du cadre (ligne 210), on affiche avec deux boucles FOR/NEXT imbriquées les 49 chiffres du loto.
Les chiffres qui ont été choisis sont barrés comme sur un bulletin normal.
Liste des variables :
A nombre aléatoireA() liste des chiffres choisis
I indice de boucle FOR/NEXT
J indice de boucle FOR/NEXT
N nombre de chiffres à tirer
X Y coordonnées sur l’écran du chiffre affiché
20 REM —————————————————
30 DIM A(49)
40 MODE 1:INK 0,2:INK 1,25:BORDER 2
50 RANDOMIZE TIME
60 INPUT “NOMBRE DE CHIFFRES A TIRER”;N
70 IF N<6 OR N>10 THEN 40
80 REM ————————————————-
90 REM TIRAGE
100 FOR I=1 TO N
110 A=INT(RND(1)*49) 1
120 IF A(A)=1 THEN 110
130 A(A)=1
140 NEXT I
180 REM ———————————————-
190 REM RESULTAT
200 MODE 1:TAG:MOVE 270,399:PRINT “LOTO”;
210 MOVE 194,20:DRAW 400,20:draw 400,374:DRAW 194,374:DRAW 194,20
220 FOR I=0 TO 9
230 FOR J=0 TO 40 STEP 10
240 IF I J=0 THEN 290
250 X=200 J/10*40:Y=340-I*35
260 MOVE X 2,Y 20:PRINT USING”##”;I J;
270 MOVE X,Y:DRAW X 35,Y:DRAW X 35,Y 30:DRAW X,Y 30:DRAW X,Y
280 IF A(I J)=1 THEN MOVE X,Y:DRAW X 35,Y 30:MOVE X,Y 30:DRAW X 35,Y
290 NEXT J
300 NEXT I
310 IF INKEY$<>CHR$(13) THEN 310
320 RUN
J'ai beaucoup aimé Macadam Bumper, même si, effectivement, les trajectoires de balles étaient un peu étranges parfois. Le fait de…
Merci noël et bravo pout tout ce que tu fait !
Tchin Tchin les crocos et les crocottes! Que cette année vous apporte la tendresse, la santé et tout le bonheur…
Merci, ça a été un gros travail de recherche et de mise en page, mais ça prouve bien qu'il y…
Merci pour ce résumé qui nous rappelle que bien des choses bougent et évoluent sur la scène Amstrad CPC ...…