Sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim poste(5)
poste(2)=1
fin=EstrazioneFin
ini=fin-100
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 11:If r1=11 Then r1=12
a1=Estratto(es,r1,1):a2=Estratto(es,r1,2):a3=Estratto(es,r1,3):a4=Estratto(es,r1,4):a5=Estratto(es,r1,5)
For r3=1 To 200
xs=es-r3
b1=Estratto(xs,r1,1):b2=Estratto(xs,r1,2):b3=Estratto(xs,r1,3):b4=Estratto(xs,r1,4):b5=Estratto(xs,r1,5)
k1=Fuori90(a1+a2+a3+a4+a5)
If k1<10 Then k1=k1+90
If k1=90 Then k1=99
k2=Fuori90(a2+a3+a4+a5+b1)
If k2<10 Then k2=k2+90
If k2=90 Then k2=99
k3=Fuori90(a3+a4+a5+b1+b2)
If k3<10 Then k3=k3+90
If k3=90 Then k3=99
k4=Fuori90(a4+a5+b1+b2+b3)
If k4<10 Then k4=k4+90
If k4=90 Then k4=99
k5=Fuori90(a5+b1+b2+b3+b4)
If k5<10 Then k5=k5+90
If k5=90 Then k5=99
k6=Fuori90(b1+b2+b3+b4+b5)
If k6<10 Then k6=k6+90
If k6=90 Then k6=99
j1=Fuori90((90+a1)-a2):j2=Fuori90((90+a2)-a3):j3=Fuori90((90+a3)-a4):j4=Fuori90((90+a4)-a5)
j5=Fuori90((90+a5)-b1):j6=Fuori90((90+b1)-b2)
w1=Fuori90((90+k1)-k2):w2=Fuori90((90+k2)-k3):w3=Fuori90((90+k3)-k4):w4=Fuori90((90+k4)-k5)
w5=Fuori90((90+k5)-k6)
k7=Fuori90(j1+j2+j3+j4+j5+j6+w1+w2+w3+w4+w5)
y1=Fuori90(k1+k2+k3+k4+k5+k6)
y2=Fuori90(y1+k7)' 1° Equazione a 90
If y2=90 Then
y3=Fuori90(k7+b1)
k8=Fuori90(b2+b3+b4+b5+y3)
If k8=90 Then k8=99
If k8<10 Then k8=k8+90
k9=Fuori90((90+k6)-k8)
vv=Minimo(a1,b2):cc=Massimo(a1,b1)
v1=Fuori90((90+vv)-cc)
c1=Minimo(k1,k6):c2=Massimo(k1,k6)
c3=Fuori90((90+c1)-c2)
c4=Fuori90(v1+c3)
c5=Fuori90(c4+k7)
If c5=90 Then
x1=Fuori90(a1+k8)
x2=Fuori90(x1+k7)
x3=Fuori90(x2+y1)
If x3=90 Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&"."
Scrivi DataEstrazione(xs,1)&" < "&siglARuota(r1)& " "& StringaEstratti(xs,r1)&"."
Scrivi String(65,"-")
Scrivi " a b c d e f g"
Scrivi " "&Format2(a1)&"."&Format2(a2)&"."&Format2(a3)&"."&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&_
"."&Format2(b2)&". H"
Scrivi " "&Format2(a2)&"."&Format2(a3)&"."&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&_
"."&Format2(b3)&". I"
Scrivi " "&Format2(a3)&"."&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&"."&Format2(b3)&_
"."&Format2(b4)&". L"
Scrivi " "&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&"."&Format2(b3)&"."&Format2(b4)&_
"."&Format2(b5)&". M"
Scrivi " "&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&"."&Format2(b3)&"."&Format2(b4)&"."_
&Format2(b5)&".("&Format2(y3)&"). N"
Scrivi String(20,"-")&" somme delle colonne a b c d e f g "
Scrivi " "&Format2(k1)&"."&Format2(k2)&"."&Format2(k3)&"."&Format2(k4)&"."&Format2(k5)&"."&Format2(k6)&"."&Format2(k8)&"."
Scrivi String(20,"-")&" Differenze Colonna H"
Scrivi " "&Format2(j1)&"."&Format2(j2)&"."&Format2(j3)&"."&Format2(j4)&"."&Format2(j5)&"."&Format2(j6)
Scrivi String(20,"-")&" Differenze Colonna O"
Scrivi " "&Format2(w1)&"."&Format2(w2)&"."&Format2(w3)&"."&Format2(w4)&"."&Format2(w5)&"."&Format2(k9)&"."
Scrivi String(20,"-")&" Somma delle Differenze "&Format2(k7)&" . "
Scrivi String(20,"-")&" 1° Equazione a 90 >"&Format2(k7)&" + "&Format2(y1)&" = "&Format2(y2)&" ."
Scrivi String(20,"-")&" 2° Equazione a 90 >"&Format2(k7)&" + "&Format2(c4)&" = "&Format2(c5)&" ."
Scrivi String(20,"-")&" 3° Equazione a 90 >"&Format2(x2)&" + "&Format2(y1)&" = "&Format2(x3)&" ."
ColoreTesto 2
Scrivi" Previsione Trovata Indietro "&Format2(r3)&" Estrazioni"
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruota(1)=11:k=13:co=0:ruote(2)=r2::ruote(3)=12
c1=Fuori90(k8+k6)
c2=90-c1
nu2(1)=y3
nu2(2)=c2
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
nu1(1)=y3
nu1(2)=c2
nu1(3)=c1
nu1(4)=90
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
Gioca es
End If
End If
End If
Next
Next
Next
ScriviResoconto
End Sub
