Sub Main()
Dim num(10):Dim num1(10):Dim num2(10):Dim num3(10):Dim num4(10)
Dim ruote(10)
Dim poste(1):Dim post(2):Dim pos(4):poste(1)=1
post(2)=1:pos(2)=1:pos(3)=1:pos(4)=1
tmp=InputBox("Quante estrazioni controllo?",,50)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 12
If r=11 Then r=12
For p=1 To 4
p1=p+1
For pp=1 To 5
a=Estratto(es-1,r,p) :b=Estratto(es-1,r,p1):c=Estratto(es,r,pp)
If Distanza(a,b)=30 Or Distanza(a,c)=30 Or Distanza(b,c)=30 Then
If Cadenza(c)=Cadenza(a)And Cadenza(c)=Cadenza(b) Then
If Posizione(es,r,c)=Posizione(es-1,r,a)Or Posizione(es,r,c)=Posizione(es-1,r,b) Then
If Posizione(es,r,c)=Posizione(es-1,r,a) Then d=Estratto(es,r,pp+1)
If Posizione(es,r,c)=Posizione(es-1,r,b) Then d=Estratto(es,r,pp-1)
Scrivi Left(NomeRuota(r),3)&" "& StringaEstratti(es-1,r)&" ---> "&DataEstrazione(es-1),True
Scrivi Left(NomeRuota(r),3)&" "& StringaEstratti(es,r)&" ---> "&DataEstrazione(es),True
Scrivi Format2(a)&"-"&Format2(b)
Scrivi Format2(c)&"-"&Format2(d)
a1=Diametrale(d):a2=Fuori90(d+c):a3=Fuori90(a2+30):a4=Fuori90(a2+60)
Scrivi "Ambata ---> "&Format2(a1)
Scrivi "Abbinamento principale ---> "&Format2(a2)
Scrivi "Abbinamento secondari ---> "&Format2(a3)&"-"&Format2(a4)
ruote(1)=r:ruote(2)=r+5
If ruote(1)>5 Then ruote(2)=r-5
num(1)=a1
ImpostaGiocata 1,num,ruote,poste,10,1
num1(1)=a1:num1(2)=a2
ImpostaGiocata 2,num1,ruote,post,10,2
num2(1)=a1:num2(2)=a3
ImpostaGiocata 3,num2,ruote,post,10,2
num3(1)=a1:num3(2)=a4
ImpostaGiocata 4,num3,ruote,post,10,2
num4(1)=a1:num4(2)=a2:num4(3)=a3:num4(4)=a4
ImpostaGiocata 5,num4,ruote,pos,10,3
Gioca es
Scrivi"**********************************************"
End If
End If
End If
Next:Next:Next:Next
ScriviResoconto
End Sub