martedì 6 marzo 2012
Script per l8 La Tavola settenaria - Il lotto e ... i suoi ... testi Antichi
Script per l8 La Tavola settenaria - Il lotto e ... i suoi ... testi Antichi: 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
'via Blog this'
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
'via Blog this'
