Un ringraziamento ad Antonio per l'ottimo lavoro svolto...
E' stato lungo pero' alla fine l'ho finito, se qualcuno rileva qualche errore è pregato di comunicarlo
Ciauz
Sub main()
' 17/3/2011
'http://forum.lottoced.com/topic.asp?TOPIC_ID=130718&whichpage=1
Dim nu1(5),nu2(5),nu3(5),nu4(5),nu5(5),amb(10),ruota(2),ruote(1),ruot(1)
Dim posta(1),poste(2),post(5),pos1(1),pos2(1),poste3(3)
Dim posta1(6),posta2(7),posta3(8),posta4(9),posta5(10)
Dim prog(5,100)
prog(1,1)=10.50
prog(1,2)=12
prog(1,3)=13
prog(1,4)=14.50
prog(1,5)=16
prog(1,6)=17.50
prog(1,7)=19.50
prog(1,8)=21.50
prog(1,9)=23.50
prog(1,10)=26
prog(1,11)=29
prog(1,12)=32
prog(1,13)=35.50
prog(1,14)=39
prog(1,15)=43.50
prog(1,16)=50
prog(1,17)=57
prog(1,18)=65
posta(1)=1

oste(2)=1

oste3(3)=1
'post(2)=1.5

ost(3)=1.5

ost(4)=1.5
'post(2)=1.5

ost(3)=1.5

ost(4)=1.5

ost(5)=1.5
'posta1(6)=5

osta2(7)=5

osta3(8)=5

osta4(9)=5

osta5(10)=5
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",7850)'7850 inizio 2008
k=InputBox ("per quanti colpi?","colpi di gioco",18)
ini=ce
fin=EstrazioneFin
Scrivi "========================================LE 90 SPIE-di-Antonio-Vecchione",1
Scrivi "===================================================Listato DjNomade",1
Scrivi String(70,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
For es=ini To EstrazioneFin
If IndiceMensile(es+1)=1 Then
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione (es,1)
n1=Estratto(es,1,1)
casi=casi+1:Scrivi String(44,"=")&" LE 90 SPIE-di-Antonio-Vecchione",1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(1)& " - "&StringaEstratti(es,1)&" ] [ "&_
Format2(n1)&" ] in "&(1)&"^Posizione",1
If n1 =1 Then amb(1)=Fuori90(Estratto(es,5,2)+89):r1=10
If n1 =2 Then amb(1)=Fuori90(Estratto(es,1,1)+10):r1=8
If n1 =3 Then amb(1)=Fuori90(Estratto(es,7,4)+79):r1=8
If n1 =4 Then amb(1)=Fuori90(Estratto(es,1,1)+34):r1=6
If n1 =5 Then amb(1)=Fuori90(Estratto(es,6,4)+81):r1=7
If n1 =6 Then amb(1)=Fuori90(Estratto(es,5,2)+86):r1=7
If n1 =7 Then amb(1)=Fuori90(Estratto(es,6,1)+85):r1=5
If n1 =8 Then amb(1)=Fuori90(Estratto(es,1,4)+81):r1=6
If n1 =9 Then amb(1)=Fuori90(Estratto(es,9,5)+85):r1=3
If n1 =10 Then amb(1)=Fuori90(Estratto(es,8,5)+82):r1=6
If n1 =11 Then amb(1)=Fuori90(Estratto(es,1,4)+87):r1=6
If n1 =12 Then amb(1)=Fuori90(Estratto(es,3,5)+78):r1=1
If n1 =13 Then amb(1)=Fuori90(Estratto(es,2,3)+86):r1=8
If n1 =14 Then amb(1)=Fuori90(Estratto(es,5,3)+87):r1=3
If n1 =15 Then amb(1)=Fuori90(Estratto(es,1,2)+43):r1=6
If n1 =16 Then amb(1)=Fuori90(Estratto(es,5,1)+83):r1=3
If n1 =17 Then amb(1)=Fuori90(Estratto(es,3,2)+61):r1=7
If n1 =18 Then amb(1)=Fuori90(Estratto(es,10,2)+76):r1=6
If n1 =19 Then amb(1)=Fuori90(Estratto(es,5,4)+79):r1=6
If n1 =20 Then amb(1)=Fuori90(Estratto(es,5,3)+89):r1=7
If n1 =21 Then amb(1)=Fuori90(Estratto(es,6,4)+81):r1=10
If n1 =22 Then amb(1)=Fuori90(Estratto(es,1,5)+89):r1=8
If n1 =23 Then amb(1)=Fuori90(Estratto(es,7,5)+85):r1=10
If n1 =24 Then amb(1)=Fuori90(Estratto(es,3,1)+73):r1=7
If n1 =25 Then amb(1)=Fuori90(Estratto(es,8,1)+80):r1=1
If n1 =26 Then amb(1)=Fuori90(Estratto(es,1,1)+36):r1=8
If n1 =27 Then amb(1)=Fuori90(Estratto(es,7,4)+86):r1=9
If n1 =28 Then amb(1)=Fuori90(Estratto(es,8,3)+69):r1=6
If n1 =29 Then amb(1)=Fuori90(Estratto(es,10,5)+88):r1=1
If n1 =30 Then amb(1)=Fuori90(Estratto(es,5,5)+89):r1=1
If n1 =31 Then amb(1)=Fuori90(Estratto(es,5,4)+85):r1=8
If n1 =32 Then amb(1)=Fuori90(Estratto(es,7,2)+75):r1=9
If n1 =33 Then amb(1)=Fuori90(Estratto(es,9,3)+89):r1=10
If n1 =34 Then amb(1)=Fuori90(Estratto(es,10,2)+84):r1=7
If n1 =35 Then amb(1)=Fuori90(Estratto(es,1,2)+52):r1=3
If n1 =36 Then amb(1)=Fuori90(Estratto(es,8,3)+65):r1=10
If n1 =37 Then amb(1)=Fuori90(Estratto(es,10,1)+80):r1=1
If n1 =38 Then amb(1)=Fuori90(Estratto(es,9,5)+87):r1=7
If n1 =39 Then amb(1)=Fuori90(Estratto(es,1,2)+46):r1=3
If n1 =40 Then amb(1)=Fuori90(Estratto(es,1,3)+85):r1=3
If n1 =41 Then amb(1)=Fuori90(Estratto(es,10,5)+