| Ecco il listato in L8
Sub main()
Dim nu2(10),nu1(10),nu3(10)
Dim ruote(10),ruota(10)
Dim poste(2)
poste(2)=1
fin=EstrazioneFin
ini=fin-100
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
n1=Fuori90(Estratto(es-2,r1,1)+Estratto(es-2,r1,2))
n2=Fuori90(Estratto(es-2,r1,1)+Estratto(es-2,r1,3))
n3=Fuori90(Estratto(es-2,r1,1)+Estratto(es-2,r1,4))
n4=Fuori90(Estratto(es-2,r1,1)+Estratto(es-2,r1,5))
n5=Fuori90(Estratto(es-2,r1,2)+Estratto(es-2,r1,3))
n6=Fuori90(Estratto(es-2,r1,2)+Estratto(es-2,r1,4))
n7=Fuori90(Estratto(es-2,r1,2)+Estratto(es-2,r1,5))
n8=Fuori90(Estratto(es-2,r1,3)+Estratto(es-2,r1,4))
n9=Fuori90(Estratto(es-2,r1,3)+Estratto(es-2,r1,5))
n10=Fuori90(Estratto(es-2,r1,4)+Estratto(es-2,r1,5))
For p1=1 To 5
nn=Estratto(es-3,r1,p1)
If nn=n1 Or nn=n2 Or nn=n3 Or nn=n4 Or nn=n5 Or nn=n6 Or nn=n7 Or nn=n8 Or nn=n9 Or nn=n10 Then
c1=0:c2=0:c3=0
If nn=n1 Then c1=nn :c2=Estratto(es-2,r1,1):c3=Estratto(es-2,r1,2)
If nn=n2 Then c1=nn :c2=Estratto(es-2,r1,1):c3=Estratto(es-2,r1,3)
If nn=n3 Then c1=nn :c2=Estratto(es-2,r1,1):c3=Estratto(es-2,r1,4)
If nn=n4 Then c1=nn :c2=Estratto(es-2,r1,1):c3=Estratto(es-2,r1,5)
If nn=n5 Then c1=nn :c2=Estratto(es-2,r1,2):c3=Estratto(es-2,r1,3)
If nn=n6 Then c1=nn :c2=Estratto(es-2,r1,2):c3=Estratto(es-2,r1,4)
If nn=n7 Then c1=nn :c2=Estratto(es-2,r1,2):c3=Estratto(es-2,r1,5)
If nn=n8 Then c1=nn :c2=Estratto(es-2,r1,3):c3=Estratto(es-2,r1,4)
If nn=n9 Then c1=nn :c2=Estratto(es-2,r1,3):c3=Estratto(es-2,r1,5)
If nn=n10 Then c1=nn :c2=Estratto(es-2,r1,4):c3=Estratto(es-2,r1,5)
a1=90-c1
a2=90-c2
a3=90-c3
For r2=1 To 2
xs=es-3+r2
For r3=1 To 10
If r3<>r1 Then
For p2=1 To 4
For p3=p2+1 To 5
b1=Estratto(xs,r3,p2)
b2=Estratto(xs,r3,p3)
If (b1=a1 And b2=a2 Or b1=a1 And b2=a3 Or b1=a2 And b2=a3)_
Or (b2=a1 And b1=a2 Or b2=a1 And b1=a3 Or b2=a2 And b1=a3) Then
If b1=a1 And b2=a2 Then w=a3
If b1=a1 And b2=a3 Then w=a2
If b1=a2 And b2=a3 Then w=a1
If b2=a1 And b1=a2 Then w=a3
If b2=a1 And b1=a3 Then w=a2
If b2=a2 And b1=a3 Then w=a1
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es-3,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es-3,r1)&_
" > Somma Triade < "&Format2(c2)&" + "&Format2(c3)&" = "&Format2(nn)&" . "
Scrivi "Numeri da cercare nelle estrzzioni Precedenti "&Format2(a1)&" . "&Format2(a2)&" . "&Format2(a3)&" . "
Scrivi DataEstrazione(xs,1)&" < "&siglaRuota(r3)& " "& StringaEstratti(xs,r3)&_
" > Trovati < "&Format2(b1)&" . "&Format2(b2)&"> Manca "&Format2(w)&" . "
Scrivi "Soluzione Trovata + "&Format2(r2)&" Estrazioni "
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:k=14:ruote(2)=r3:ruota(1)=11:co=0
If w+c1=90 Then kk=c1
If w+c2=90 Then kk=c2
If w+c3=90 Then kk=c3
nu1(1)=w
nu1(2)=kk
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu2(1)=w
nu2(2)=c1
nu2(3)=c2
nu2(4)=c3
nu2(5)=kk
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(1)=w
nu2(2)=b1
nu2(3)=b2
nu2(4)=c3
nu2(5)=kk
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu3(1)=w
nu3(2)=kk
nu3(3)=c1
nu3(4)=c2
nu3(5)=c3
nu3(6)=b1
nu3(7)=b2
co=co+1
ImpostaGiocata co,nu3,ruote,poste,k
Gioca xs
End If
Next
Next
End If
Next
Next
End If
Next
Next
Next
ScriviResoconto
End Sub
|
