| Ecco il listato in l8
Sub main()
Dim ruote(10),posta(5),nu1(10),nu2(10),poste(5),ruota(3),nu3(10)
poste(1)=1
posta(2)=1
k=10
ce=50
ini=EstrazioneFin -ce
fin=EstrazioneFin
For es =ini To fin:Messaggio es
For r1=1 To 10
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2=r1+1 To 11:if r2=11 Then r2=12
If r1+1=r2 Then
For p2=1 To 5
b=Estratto(es,r2,p2):cc=Distanza(a,b)
If cc=45 And p1=p2 Then
aa=Fuori90(a+a)
bb=Fuori90(b+b)
If aa=bb Then
casi=casi+1:Scrivi String(65,"•"),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "& StringaEstratti(es,r1)&_
" ] "&format2(a)&" . "&(p1)&"^ pos. "
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "& StringaEstratti(es,r2)&_
" ] "&format2(b)&" . "&(p2)&"^ pos."
Scrivi String(52,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruote(3)=DiametraleD(r1):ruote(4)=DiametraleD(r2)
If r1=10 Then ruote(3)=5
If r1=5 Then ruote(3)=10
If r2=10 Then ruote(4)=5
If r2=5 Then ruote(4)=10
co=0
a1=Fuori90(aa+bb):a2=Vert(a1)
w1=Fuori90(a1+31)
w2=Fuori90((90+a1-31))
w3=Fuori90(a2+31)
w4=Fuori90((90+a2-31))
nu1(1)=a1
nu1(2)=a2
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
nu2(1)=a1
nu2(2)=w1
nu2(3)=w2
co=co+1
ImpostaGiocata co,nu2,ruote,posta,k
nu2(1)=a2
nu2(2)=w3
nu2(3)=w4
co=co+1
ImpostaGiocata co,nu2,ruote,posta,k
nu3(1)=a2
nu3(2)=w3
nu3(3)=w4
nu3(4)=a1
nu3(5)=w1
nu3(6)=w2
co=co+1
ImpostaGiocata co,nu3,ruote,posta,k
Gioca es
End If
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
Scrivi "distanza 45, Tavola del Cappuccino per drago29 (list by drago2940",1
End Sub
|
