programme de tirage pour l'euromillion. A optimiser...

[charognard]

En effet, rien n'est plus abscon qu'une ligne comme celle-ci
25 IF R>0 THEN 60 : ELSE 130

tu veux dire
25 GOTO 60+(R>0) *70

[Alexandre]

Me suis trompé à la recopie
Voilà la bonne maintenant

Code : Tout sélectionner

10 CLS:Z=7,X=42
20 Y=RND X:IF POINT Y=0 GCURSOR Y:GPRINT 1;:Z+Z-1
30 IF Z GOTO 20
40 Z=1:FOR Y=1 TO X:IF POINT Y LET @(Z)=Y,Z=Z+1
50 NEXT Y
60 FOR Y=1 TO 7:PRINT @(Y);:NEXT Y

et là pas de problème il n'y en aura pas deux identique, et la mémoire écran c'est pinuts

Je viens de rentrer ton code sur mon PC-1500, là au petit dej, et ça fonctionne plutôt bien, à part une erreur en fin de ligne 20: Z=Z-1
Sinon, comment fonctionne le "@"? Il sert à quoi?
Et puis aussi, les numéros tirés ne restent pas affichés à l'écran.

Moi, je l'aime bien ce programme pour un pocket qui n'a qu'une ligne d'affichage.

[jxano]

Sinon, comment fonctionne le "@"? Il sert à quoi?

Ça te permet d'utiliser les variables alphabétiques comme un tableau. Par exemple, la ligne 60 te donne les contenus des variables A à G.

[charognard]

Me suis trompé à la recopie
Voilà la bonne maintenant

Code : Tout sélectionner

10 CLS:Z=7,X=42
20 Y=RND X:IF POINT Y=0 GCURSOR Y:GPRINT 1;:Z+Z-1
30 IF Z GOTO 20
40 Z=1:FOR Y=1 TO X:IF POINT Y LET @(Z)=Y,Z=Z+1
50 NEXT Y
60 FOR Y=1 TO 7:PRINT @(Y);:NEXT Y

et là pas de problème il n'y en aura pas deux identique, et la mémoire écran c'est pinuts

Je viens de rentrer ton code sur mon PC-1500, là au petit dej, et ça fonctionne plutôt bien, à part une erreur en fin de ligne 20: Z=Z-1
Sinon, comment fonctionne le "@"? Il sert à quoi?
Et puis aussi, les numéros tirés ne restent pas affichés à l'écran.

Moi, je l'aime bien ce programme pour un pocket qui n'a qu'une ligne d'affichage.

Tu peux utiliser PAUSE au lieu de PRINT ou un WAIT 50 en LIGNE 5

[Alexandre]

Tu peux utiliser PAUSE au lieu de PRINT ou un WAIT 50 en LIGNE 5

He bien figure-toi que je l'avais mis, de mon propre chef. Tout s'affiche au rythme du "WAIT 50" et hop, à la fin tout s'efface.
Dingue non?

[Alexandre]

Sinon, comment fonctionne le "@"? Il sert à quoi?

Ça te permet d'utiliser les variables alphabétiques comme un tableau. Par exemple, la ligne 60 te donne les contenus des variables A à G.

Merci, pour cet éclairage!

[charognard]

Tu peux utiliser PAUSE au lieu de PRINT ou un WAIT 50 en LIGNE 5

He bien figure-toi que je l'avais mis, de mon propre chef. Tout s'affiche au rythme du "WAIT 50" et hop, à la fin tout s'efface.
Dingue non?

pour l'affichage persistant de la dernière ligne il faut mettre un WAIT 0 avant le dernier PRINT

[Alexandre]

Et si je tentais un truc avec des DATA et des READ?

Code : Tout sélectionner

10 DATA 3,8,12,37,41,6,10
20 READ A,B,C,D,E,F,G
30 PRINT A;B;C;D;E;"+";F;G

Hop
Pfff je fatigue là

Bravo Alexandre, le BASIC c'est sympa
G.E.

J'avais pas vu ton programme Gégé. Il est simple, limpide, clair. C'est le seul que j'ai compris d'un coup.

[Alexandre]

Alors voici un petit retour sur tout ça.
Tout d'abord, les numéros générés par mon code ne m'ont pas permis d'être millionnaire la semaine dernière.( 1 bon numéro et 2 étoiles)

Et je dois dire que je suis très déçu par Gilles.
Son code me donne deux numéros identiques dans un même tirage!

Je ne connais pas le PCE500 ni l'Euromillion mais ferai comme suit si on s'autorise (ce que permet en général le Basic) une sortie brutale de boucle FOR :

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 DIM N(5):DIM E(2)

25 RANDOMIZE

30 FOR I = 1 TO 5
50  N=RND50
55  FOR J=1 TO I : IF N=N(J) THEN GOTO 50 :  NEXT J
67  N(I)=N
75 NEXT I

80 E(1)=RND9 :
90 E(2)=RND9 : IF E(2)=E(1) GOTO 90

95 PRINT "Joue ces numéros: ", N(1), N(2), N(3), N(4) N(5)
97 PRINT "Et joue ces étoiles: ", E(1), E(2)

[/size]

[C.Ret]

Haie !

Je savais bien qu'il ne faut JAMAIS sortir d'une boucle FOR...TO...STEP/NEXT avec un GOTO !
C'est dangereux...
Je lui avait bien dit.

Surtout Alexandre, efface ce programme au plus vite, tu va abimer ton SHARP PC-E500.
Prends au moins la version de Gille59 qu'il a posté sans la sortie affame de boucle !


P.S.: Domage qu tu n'ais pas gagné cette fois.
J'aurais pu me faire 15.000.000€ car j'ai maintenant le bon programme :

Code : Tout sélectionner

10 PRINT "NOMBRES:";6;17;22;45;47
20 PRINT " ETOILE:";3;11
30 END

Malheureusement, je suis interdit de jeu à la FDJ ...

Mais au fait, 1 bon numéro et 2 étoiles cela fait 14,70€ de gains ! Bravo !

[Gilles59]

Haie !

Je savais bien qu'il ne faut JAMAIS sortir d'une boucle FOR...TO...STEP/NEXT avec un GOTO !
C'est dangereux...
Je lui avait bien dit.

Surtout Alexandre, efface ce programme au plus vite, tu va abimer ton SHARP PC-E500.
Prends au moins la version de Gille59 qu'il a posté sans la sortie affame de boucle !


P.S.: Domage qu tu n'ais pas gagné cette fois.
J'aurais pu me faire 15.000.000€ car j'ai maintenant le bon programme :

Code : Tout sélectionner

10 PRINT "NOMBRES:";6;17;22;45;47
20 PRINT " ETOILE:";3;11
30 END

Malheureusement, je suis interdit de jeu à la FDJ ...

Mais au fait, 1 bon numéro et 2 étoiles cela fait 14,70€ de gains ! Bravo !

Bon j'avais bien dit que c'était dangereux suivant la version du Basic

Sinon le résultat est curieux. et me surprend. Je me demande ce qui se passe et comment c'est possible.
Vais tester des sorties hérétique de boucles FOR sur CPC pour explorer.

CPC tested = même genres d'erreur

Vous me le copierez 100 fois !

Code : Tout sélectionner

For i=1 to 100
  PRINT "TU NE METTRAS JAMAIS DE GOTO POUR SORTIR D'UNE BOUCLE FOR NEXT EN BASIC" 
Next

A ne faire dans aucun basic donc :O

[Alexandre]

Oh làlàlàlàlàlà!! je viens de m'apercevoir d'un "détail" dans le programme de Charo!
Il n'est pas fait pour l'Euromillion. Les deux derniers chiffres ne sont pas tirés entre 1 et 11...

Petit film:

http://www.youtube.com/watch?v=YpYSGNZH5qE

[C.Ret]

ool, j'aume bien on a le temps de voir les p'tit pixels s'allumer. P
Puis le rithme d'affichage est sympa. Il faudrait juste que l'affichage finale s'arrête sur les 5 nombres et que je puisse recopier. Puis appuyer sur ENTER pour pour suivre par les étoiles.

@Gille59

J'ai moi aussi cherché à comprendre d'où venait le 'Bug'. Mais je suis sec. Je ne vois pas trop ce qui accroche, car même si les sortie de boucle sont dangereuses, je n'ai pas compris pourquoi un des nombre est répété !
As-tu trouvé une piste ?

[badaze]

ool, j'aume bien on a le temps de voir les p'tit pixels s'allumer. P
Puis le rithme d'affichage est sympa. Il faudrait juste que l'affichage finale s'arrête sur les 5 nombres et que je puisse recopier. Puis appuyer sur ENTER pour pour suivre par les étoiles.

@Gille59

J'ai moi aussi cherché à comprendre d'où venait le 'Bug'. Mais je suis sec. Je ne vois pas trop ce qui accroche, car même si les sortie de boucle sont dangereuses, je n'ai pas compris pourquoi un des nombre est répété !
As-tu trouvé une piste ?

Code : Tout sélectionner

30 FOR I = 1 TO 5
50  N=RND50
55  FOR J=1 TO I : IF N=N(J) THEN GOTO 50 :  NEXT J
67  N(I)=N
75 NEXT I

parce que le NEXT J est mal placé. En fait tel quel il n'est jamais exécuté.

[charognard]

Oh làlàlàlàlàlà!! je viens de m'apercevoir d'un "détail" dans le programme de Charo!
Il n'est pas fait pour l'Euromillion. Les deux derniers chiffres ne sont pas tirés entre 1 et 11...

Petit film:

http://www.youtube.com/watch?v=YpYSGNZH5qE

c'était le principe d'un tirage aléatoire trié pour l'adaptation à l'euromillion ce n'est pas bien compliqué.
Mais ne jouant pas à l'euromillon et ne voulant pas m'y interresser. Je suis resté que sur le principe