| Ciao Forum Spero siano Graditi questi due listati in L8 della Formula 15/30/45
Il 1°
Sub main()
Dim nu1(10),nu2(10),nu3(10)
Dim ruote(10),ruota(10)
Dim posta(10),poste(2),post(3)
poste(2)=1 : poste(2)=0.5 : post(3)=1.5
k=14
ruota(1)=11
fin=EstrazioneFin
ini=fin-300
For es=ini To fin
Messaggio es
For r1=1 To 11
If r1=11 Then r1=12
ruote(1)=r1
For p1=1 To 4
n1=Estratto(es,r1,p1)
For p2=p1+1 To 5
n2=Estratto(es,r1,p2) : ds1=Distanza(n1,n2)
If ds1=30 Then
For r2=1 To 11
If r2=11 Then r2=12
ruote(2)=r2
For p3=1 To 5
n3=Estratto(es,r2,p3)
If p1=p3 Or p2=p3 Then
If Distanza (n1,n3)=45 Or Distanza (n2,n3)=45 Then
casi=casi+1
Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza 30 < "&Format2(n1)&"."&Format2 (n2)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo distanza 45 < "&Format2(n3)
Scrivi String(65,"-")&" caso n° "&(casi)
co=0
If Distanza(n1,n3)=45 Then a1=n1+n3:a2=Abs(a1-44):If a2>90 Then a2=a2-90
If Distanza(n2,n3)=45 Then a1=n2+n3:a2=Abs(a1-44):If a2>90 Then a2=a2-90
nu3(1)=a2
posta(1)=1 : posta(p1+5)=1 : posta(p2+5)=1
co=co+1
ImpostaGiocata co,nu3,ruote,posta,k
Erase posta
nu2(1)=a2
nu2(2)=n1
nu2(3)=n2
nu2(4)=n3
nu2(5)=Vert(a2)
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
End If
Next
Next
End If
Next
Next
Next:Next
ScriviResoconto
End Sub
Il 2°
Sub main()
Dim nu1(10),nu2(10),nu3(10)
Dim ruote(10),ruota(10)
Dim posta(10),poste(2),post(3)
poste(2)=1 : poste(2)=0.5 : post(3)=1.5
k=14
ruota(1)=11
fin=EstrazioneFin
ini=fin-300
For es=ini To fin
Messaggio es
For r1=1 To 11
If r1=11 Then r1=12
ruote(1)=r1
For p1=1 To 4
n1=Estratto(es,r1,p1)
For p2=p1+1 To 5
n2=Estratto(es,r1,p2) : ds1=Distanza(n1,n2)
If ds1=45 Then
For r2=1 To 11
If r2=11 Then r2=12
ruote(2)=r2
For p3=1 To 5
n3=Estratto(es,r2,p3)
If p1=p3 Or p2=p3 Then
If Distanza (n1,n3)=15 And n1<n2 Or Distanza (n2,n3)=15 And n2<n1 Then
casi=casi+1
Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza 45 < "&Format2(n1)&"."&Format2 (n2)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo distanza 30 < "&Format2(n3)
Scrivi String(65,"-")&" caso n° "&(casi)
co=0
a1=n1+n2:a2=Abs(a1-44):If a2>90 Then a2=Fuori90(a2)
nu3(1)=a2
posta(1)=1 : posta(p1+5)=1 : posta(p2+5)=1
co=co+1
ImpostaGiocata co,nu3,ruote,posta,k
Erase posta
nu2(1)=a2
nu2(2)=n1
nu2(3)=n2
nu2(4)=n3
nu2(5)=Vert(a2)
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
End If
Next
Next
End If
Next
Next
Next:Next
ScriviResoconto
End Sub
Ciao Gianni
|
