Ciclofacile 1

Sub main()
Dim nu1(10),nu4(10)
Dim ruote(10),ruota(10)
Dim poste(5)
poste(2)=1
fin=EstrazioneFin
ini=fin-200
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):ds1=Figura(n1)
If n1<45 Then
n2=Estratto(es,r1,p2):ds2=Figura(n2)
If n2>45 And ds1=ds2 Then
For r2=1 To 10
If r1+1=r2 Or 11-r1=r2 Or DiametraleD(r1)=r2 Or r1=5 And r2=10 Or r1=10 And r2=5 Then
For p3=1 To 5
n3=Estratto(es,r2,p3):ds3=Figura(n3)
If ds3=ds2 And r1<>r2 Then
a1=Fuori90(n2+n2)
a2=Fuori90(n1+n3)
If a1=a2 Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo in Figura < "&Format2(n1)&"."&Format2 (n2)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > Num. in Figura < "&Format2(n3)&". Figura "&Format2 (ds1)&" >"
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:k=9:co=0:ruota(1)=11:ruote(3)=12
a3=Fuori90(n2+n3)
a4=Abs(a3-n1)
a5=Diametrale(a4) ' Ambata
a6=Fuori90(a4+30)
a7=Fuori90(a6+30)
nu4(1)=a5:nu4(2)=a4
nu4(3)=a6:nu4(4)=a7
co=co+1
ImpostaGiocata co,nu4,ruote,poste,k
co=co+1
ImpostaGiocata co,nu4,ruota,poste,k
Gioca es
End If
End If
Next
End If
Next
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub