| La tavola settenaria con numero uguale e ei codici per pramidarla
Sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim poste(5)
poste(2)=1
fin=EstrazioneFin
ini=fin-50
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
For p1=1 To 5
n1=Estratto(es,r1,p1)
For r2=r1+1 To 11
If r2=11 Then r2=12
For p3=1 To 5
x=Estratto(es,r2,p3)
If p3=p1 Then
If r1+1=r2 Or r2=DiametraleD(r1) Or r2<11 And r2=11-r1 Then
If x=n1 Then
a1=Fuori90(x*13)
k3=Abs(x-1):a2=Fuori90(78*x-k3)
a3=Fuori90(x*7)
a4=91-x
b1=Fuori90(a2+a1)
b2=Fuori90(a3+a4)
c1=Fuori90(b1+b2)
c2=Fuori90(a1+a3)
c3=Fuori90(a4+a2)
k1=Fuori90(c2+c3)
If k1=c1 Then
If p1=1 Then k2=645
If p1=2 Then k2=554
If p1=3 Then k2=463
If p1=4 Then k2=372
If p1=5 Then k2=281
If Len(k1)=1 Then k1=(0&k1)
k5=(k2&k1)
w1=Figura(Mid(k5,1,1)+(Mid(k5,2,1)))
w2=Figura(Mid(k5,2,1)+(Mid(k5,3,1)))
w3=Figura(Mid(k5,3,1)+(Mid(k5,4,1)))
w4=Figura(Mid(k5,4,1)+(Mid(k5,5,1)))
w5=Figura(w1+w2)
w6=Figura(w2+w3)
w7=Figura(w3+w4)
w8=Figura(w5+w6)
w9=Figura(w6+w7)
w10=Fuori90(w8&w9)
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > Numero uguale... < "&Format2(n1)&"."
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > Numero uguale... < "&Format2(x)&" Pos "&Format2(p1)&" Codice "&Format2(w4)&" ."
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruote(3)=r3: k=14:co=0:ruota(1)=11:co=0
nu1(1)=w10
nu1(2)=Diametrale(w10)
nu1(3)=b2
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=w10
nu1(2)=Diametrale(w10)
nu1(3)=c2
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=w10
nu1(2)=Diametrale(w10)
nu1(3)=c3
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu2(1)=w10
nu2(2)=Diametrale(w10)
nu2(3)=b2
nu2(4)=c2
nu2(5)=c3
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
End If
End If
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
|
