tavola settenaria Listato x L8

[titta]

Ecco il listato Ciao Gianni

Sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim poste(5)
poste(2)=1
fin=EstrazioneFin
ini=fin-100
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):so=(n1+n2)
If so=91 Then
x=Abs(n1-n2)
For r2=1 To 10
If r2<>r1 Then
For p3=1 To 5
If p1=p3 Or p2=p3 Then
n3=Estratto(es,r2,p3)
If n1=n3 Or n2=n3 Then
x=Abs(n1-n2)
a1=Fuori90(x*7)
a2=Fuori90(x*13)
k1=Abs(x-1):a3=Fuori90(78*x-k1)
a4=91-x
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" Numeri Somma 91 "&Format2(n1)&" + "&Format2(n2)&" = "&Format2(so)&" . "
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > Numero Differenza "&Format2(x)&" Pos "&Format2(p3)&" . "
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1: k=14:co=0:ruote(2)=r2
nu2(1)=x
nu2(2)=a1
nu2(3)=a2
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
nu2(1)=x
nu2(2)=a1
nu2(3)=a3
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
nu2(1)=x
nu2(2)=a1
nu2(3)=a4
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
nu1(1)=x
nu1(2)=a1
nu1(3)=a2
nu1(4)=a3
nu1(5)=a4
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
Gioca es
End If
End If
Next
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub