lotto facile 1

Sub main()
Dim nu1(10),nu2(10),ru(10)
Dim rt(3),rtt(1),pt(10)
Dim ptt(5)
ptt(2)=1
pt(1)=1
rtt(1)=11
clp=14
fin=EstrazioneFin
ini=fin-150
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 9
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2):k1=Fuori90(n1+n2)
For r2=r1+1 To 10
For p3=1 To 4
For p4=p3+1 To 5
n3=Estratto(es,r2,p3)
n4=Estratto(es,r2,p4):k2=Fuori90(n3+n4)
If k1=k2 And p1=p3 And p2=p4 Then
ru(1)=r1 : ru(2)=r2
a1=Abs(n1-n4)
a2=Abs(n3-n2)
b1=Abs(n3-n1)
b2=Abs(n2-n4)
If b1=b2 And a1=a2 Then
c1=Abs(a1-b1)
c2=Fuori90(c1+k1) ' Ambata
c3=90-k1
c4=Vert(c3)
casi=casi+1
Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r1)&" "& StringaEstratti(es,r1)&_
" > Numero < "& Format2(n1)&" + "& Format2(n2)&" = "& Format2(k1)&" . "
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r2)&" "& StringaEstratti(es,r2)&_
" > Numero < "& Format2(n3)&" + "& Format2(n4)&" = "& Format2(k2)&" . "
Scrivi String(65,"-")&" caso n° "&(casi)
rt(1)=r1: rt(2)=r2
co=0
nu1(1)=c2
pt(1)=1 : pt(p1+5)=1 : pt(p2+5)=1: pt(p3+5)=1 : pt(p4+5)=1
co=co+1
ImpostaGiocata co,nu1,rt,pt,clp
Erase pt
co=co+1
nu2(1)=c2: nu2(2)=c3:nu2(3)=c4
co=co+1
ImpostaGiocata co,nu2,rt,ptt,clp
co=co+1
ImpostaGiocata co,nu2,rtt,ptt,clp
Gioca es
End If
End If

Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub