Pour gagner à Euro millions

rem Vous êtes en manque de chance en ce moment ? Essayer ce petit logiciel qui pourra changer votre vie

left 0,370
top 0,245
width 0,838
height 0,208
caption 0,"Tirage Euro Millions par F6DTL"
 
alpha 1
left 1,330
top 1,20
width 1,230
height 1,27

font_size 1,12
color 1,221,232,55

button 2
left 2,70
top 2,90
font_size 2,12
caption 2,"1er N°"

button 3
left 3,170
top 3,90
font_size 3,12
caption 3,"2eme N°"

button 4
left 4,270
top 4,90
font_size 4,12
caption 4,"3eme N°"

button 5
left 5,370
top 5,90
font_size 5,12
caption 5,"4eme N°"

button 6
left 6,470
top 6,90
font_size 6,12
caption 6,"5eme N°"

button 7
left 7,590
top 7,90
font_size 7,12
caption 7,"1ere *"

button 8
left 8,690
top 8,90
font_size 8,12
caption 8,"2eme *"


dim touche$,n,nr1,nr2,nr3,nr4,nr5,nr6,nr7
label start,hasard1,hasard2,hasard3,hasard4,hasard5,hasard6,hasard7
label test1,test2,test3,test4,test5,fin

rem -----------------Début du programme principal --------------------------
 start:
caption 1,"Appuyez sur une touche quelconque"
on_click 1,fin

hasard1:
color 0,66,115,154
touche$=""
nr1=0
while touche$=""
touche$=inkey$
n=n+1
if n>50
n=1
end_if
caption 2,n
end_while
nr1=n

hasard2:
color 0,66,115,90
touche$=""
nr2=0
while touche$=""
touche$=inkey$
n=n+1
if n>50
n=1
end_if
caption 3,n
end_while
nr2=n
gosub test1



hasard3:
color 0,127,58,93
touche$=""
nr3=0
while touche$=""
touche$=inkey$
n=n+1
if n>50
n=1
end_if
caption 4,n
end_while
nr3=n
gosub test2


hasard4:
color 0,157,134,93
touche$=""
nr4=0
while touche$=""
touche$=inkey$
n=n+1
if n>50
n=1
end_if
caption 5,n
end_while
nr4=n
gosub test3



hasard5:
color 0,119,156,52
touche$=""
nr5=0
while touche$=""
touche$=inkey$
n=n+1
if n>50
n=1
end_if
caption 6,n
end_while
nr5=n
gosub test4



hasard6:
color 0,119,156,165
touche$=""
nr6=0
while touche$=""
touche$=inkey$
n=n+1
if n>10
n=1
end_if
caption 7,n
end_while
nr6=n
gosub test5


hasard7:
color 0,119,96,165
touche$=""
nr7=0
while touche$=""
touche$=inkey$
n=n+1
if n>10
n=1
end_if
caption 8,n
end_while
nr7=n
gosub test5

caption 1,"Tirage terminé, Cliquez ici pour terminer"

touche$=""
while touche$=""
touche$=inkey$
if touche$="a"
goto fin
end_if
end_while
goto start

fin:
caption 1,"Cliquez sur X (haut à droite)"
end


rem -----------------------Fin du programme principal-------------------------

test1:
if (nr2=nr1)
goto hasard2
end_if
return

test2:
if (nr3=nr1) or (nr3=nr2)
goto hasard3
end_if
return

test3:
if (nr4=nr1) or (nr4=nr2) or (nr4=nr3)
goto hasard4
end_if
return

test4:
if (nr5=nr1) or (nr5=nr2) or (nr5=nr3) or (nr5=nr4)
goto hasard5
end_if
return

test5:
if (nr7=nr6)
goto hasard7
end_if
return