Pour devenir riche !!!

left 0,221
top 0,200
width 0,719
height 0,234
caption 0,"Euro Millions"

picture 20
file_load 20,"FondEuro.bmp"
width 20,710
height 20,200

edit 1
left 1,60
top 1,50
width 1,55
height 1,41
font_size 1,20

edit 2
left 2,130
top 2,50
width 2,55
height 2,41
font_size 2,20

edit 3
left 3,200
top 3,50
width 3,55
height 3,41
font_size 3,20

edit 4
left 4,270
top 4,50
width 4,55
height 4,41
font_size 4,20

edit 5
left 5,340
top 5,51
width 5,55
height 5,41
font_size 5,20

edit 6
left 6,430
top 6,50
width 6,55
height 6,41
font_size 6,20

edit 7
left 7,500
top 7,50
width 7,55
height 7,41
font_size 7,20

button 8
left 8,620
top 8,50
width 8,55
height 8,41
caption 8,"GO"


edit 9
left 9,200
top 9,110
width 9,126

edit 10
left 10,340
top 10,110
width 10,55

dim N%(6)
dim E%(3)
dim x,compt,n$,e$,instrument
label debut,tir1,tir2,tir3,tir4,tir5,tir6,tir7,midi
on_click 8,debut

end
rem ----------------------------------------------------------------------------

debut:
hide 9
hide 10
instrument=13

' Jeux couleurs
for compt=1 to 7
color compt,0,255,255-(compt*20)
text compt,""
gosub midi
next compt

for compt=1 to 7
color compt,255,255-(compt*20),0
next compt

' Mise à zéro du tableau des numéros et étoiles
for compt=1 to 5
n%(compt)=0
next compt
for compt=1 to 2
e%(compt)=0
next compt

' Début des tirages
tir1:
n%(1)=int(rnd(51))
if n%(1)=0 then goto tir1
text 1,"  "+str$(n%(1))
color 1,n%(1)*4,255-(n%(1)),n%(1)*4
instrument=n%(1)
gosub midi

tir2:
n%(2)=int(rnd(51))
if n%(2)=0 or n%(2)=n%(1) then goto tir2
text 2,"  "+str$(n%(2))
color 2,n%(2)*4,255-(n%(2)),n%(2)*4
instrument=n%(2)
gosub midi

tir3:
n%(3)=int(rnd(51))
if n%(3)=0 or n%(3)=n%(1) or n%(3)=n%(2) then goto tir3
text 3,"  "+str$(n%(3))
color 3,n%(3)*4,255-(n%(3)),n%(3)*4
instrument=n%(3)
gosub midi

tir4:
n%(4)=int(rnd(51))
if n%(4)=0 or n%(4)=n%(1) or n%(4)=n%(2) or n%(4)=n%(3) then goto tir4
text 4,"  "+str$(n%(4))
color 4,n%(4)*4,255-(n%(4)),n%(4)*4
instrument=n%(4)
gosub midi

tir5:
n%(5)=int(rnd(51))
if n%(5)=0 or n%(5)=n%(1) or n%(5)=n%(2) or n%(5)=n%(3) or n%(5)=n%(4) then goto tir5
text 5,"  "+str$(n%(5))
color 5,n%(5)*4,255-(n%(5)),n%(5)*4
instrument=n%(5)
gosub midi

tir6:
E%(1)=int(rnd(12))
if e%(1)=0 then goto tir6
text 6," "+str$(E%(1))+"*"
instrument=(E%(1))+20
gosub midi

tir7:
E%(2)=int(rnd(12))
if e%(2)=0 or e%(2)=e%(1) then goto tir7
text 7," "+str$(E%(2))+"*"
instrument=(E%(2))+20
gosub midi

' Affichage date et heure
show 9
show 10
text 9,"          "+date$
text 10," "+time$


end

midi:
midi_on
midi_instrument instrument
midi_play 60,11
midi_off
return

left 0,221
top 0,200
width 0,719
height 0,234
caption 0,"Euro Millions"

picture 20
file_load 20,"FondEuro.bmp"
width 20,710
height 20,200

edit 1
left 1,60
top 1,50
width 1,55
height 1,41
font_size 1,20

edit 2
left 2,130
top 2,50
width 2,55
height 2,41
font_size 2,20

edit 3
left 3,200
top 3,50
width 3,55
height 3,41
font_size 3,20

edit 4
left 4,270
top 4,50
width 4,55
height 4,41
font_size 4,20

edit 5
left 5,340
top 5,51
width 5,55
height 5,41
font_size 5,20

edit 6
left 6,430
top 6,50
width 6,55
height 6,41
font_size 6,20

edit 7
left 7,500
top 7,50
width 7,55
height 7,41
font_size 7,20

button 8
left 8,620
top 8,50
width 8,55
height 8,41
caption 8,"GO"


edit 9
left 9,200
top 9,110
width 9,126

edit 10
left 10,340
top 10,110
width 10,55

dim N%(6)
dim E%(3)
dim x,compt,n$,e$,instrument
label debut,tir1,tir2,tir3,tir4,tir5,tir6,tir7,midi
on_click 8,debut

end
rem ----------------------------------------------------------------------------

debut:
hide 9
hide 10
instrument=13

' Jeux couleurs
for compt=1 to 7
color compt,0,255,255-(compt*20)
text compt,""
gosub midi
next compt

for compt=1 to 7
color compt,255,255-(compt*20),0
next compt

' Mise à zéro du tableau des numéros et étoiles
for compt=1 to 5
n%(compt)=0
next compt
for compt=1 to 2
e%(compt)=0
next compt

' Début des tirages
tir1:
n%(1)=int(rnd(51))
if n%(1)=0 then goto tir1
text 1,"  "+str$(n%(1))
color 1,n%(1)*4,255-(n%(1)),n%(1)*4
instrument=n%(1)
gosub midi

tir2:
n%(2)=int(rnd(51))
if n%(2)=0 or n%(2)=n%(1) then goto tir2
text 2,"  "+str$(n%(2))
color 2,n%(2)*4,255-(n%(2)),n%(2)*4
instrument=n%(2)
gosub midi

tir3:
n%(3)=int(rnd(51))
if n%(3)=0 or n%(3)=n%(1) or n%(3)=n%(2) then goto tir3
text 3,"  "+str$(n%(3))
color 3,n%(3)*4,255-(n%(3)),n%(3)*4
instrument=n%(3)
gosub midi

tir4:
n%(4)=int(rnd(51))
if n%(4)=0 or n%(4)=n%(1) or n%(4)=n%(2) or n%(4)=n%(3) then goto tir4
text 4,"  "+str$(n%(4))
color 4,n%(4)*4,255-(n%(4)),n%(4)*4
instrument=n%(4)
gosub midi

tir5:
n%(5)=int(rnd(51))
if n%(5)=0 or n%(5)=n%(1) or n%(5)=n%(2) or n%(5)=n%(3) or n%(5)=n%(4) then goto tir5
text 5,"  "+str$(n%(5))
color 5,n%(5)*4,255-(n%(5)),n%(5)*4
instrument=n%(5)
gosub midi

tir6:
E%(1)=int(rnd(12))
if e%(1)=0 then goto tir6
text 6," "+str$(E%(1))+"*"
instrument=(E%(1))+20
gosub midi

tir7:
E%(2)=int(rnd(12))
if e%(2)=0 or e%(2)=e%(1) then goto tir7
text 7," "+str$(E%(2))+"*"
instrument=(E%(2))+20
gosub midi

' Affichage date et heure
show 9
show 10
text 9,"          "+date$
text 10," "+time$


end

midi:
midi_on
midi_instrument instrument
midi_play 60,11
midi_off
return