Sub main()
Dim nu2(10)
Dim ruote(10),ruota(10)
Dim poste(2)
poste(2)=1
fin=EstrazioneFin
ini=fin-180
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2):ds1=Distanza(n1,n2)
If ds1=45 Then
For r2=r1+1 To 11
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
n3=Estratto(es,r2,p3)
n4=Estratto(es,r2,p4):ds2=Distanza(n3,n4)
If ds2=45 And p1=p3 And p2=p4 Then
a1=Minimo(n1,n2)
a2=Minimo(n3,n4)
a3=Minimo(a1,a2)' Minimo
a4=Massimo(n1,n2)
a5=Massimo(n3,n4)
a6=Massimo(a4,a5)' Massimo
a7=Minimo(a4,5)
a8=Massimo(a1,a2)
b1=a6-a3
b2=90-b1
b3=Abs(b1-b2) ' Ambata
a=Fuori90(b3+a3)
b=Fuori90(b3+a6)
c=Fuori90(b3+a7)
d=Fuori90(b3+a8)
c1=Fuori90(a+b)
c2=Fuori90(c+d)
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza < "&Format2 (ds1)&" >"&Format2(n1)&"."&Format2 (n2)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo distanza < "&Format2 (ds2)&" >"&Format2(n3)&"."&Format2 (n4)&" >"
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:k=14:co=0:ruote(3)=12:ruota(4)=11
nu2(1)=b3
nu2(2)=c1
nu2(3)=Diametrale(c1)
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
Gioca es
End If
Next
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
