| <b>Ottimo Metodo Ecco lo Script in L8 Ciao
Sub main()
Dim n2(10)
Dim ruote(10)
Dim posta(1),poste(2),post(3),pos(5)
posta(1)=1:poste(2)=1
post(2)=0.5:post(3)=1.5
pos(2)=3:pos(3)=0.8:pos(4)=0.2
fin=EstrazioneFin
ini=fin-200
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=12 To 12
For p1=1 To 5
n1=Estratto(es,r1,p1)
If n1 = 29 Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo ripetuto < "&Format2(n1)&"."&Format2 (n2)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo ripetuto < "&Format2(n3)&"."&Format2 (n4)&" >"
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=4 :ruote(2)=5:k=14:co=0
n2(1)=Fuori90(Estratto(es,12,2)+36)
n2(2)=Fuori90(Estratto(es,12,2)+77)
n2(3)=Fuori90(Estratto(es,12,2)+80)
co=co+1
ImpostaGiocata co,n2,ruote,poste,k
Gioca es
End If
Next:Next:Next
ScriviResoconto
End Sub
Ecco La Seaeistica
ambo ripetuto < 29. >
gio 17.04.2008 < Tu 00.14.18.88.23 > ambo ripetuto < 00.00 >
----------------------------------------------------------------- caso n° 1
gio 17.04.2008 [7896]
G 1: A 51.02.05 Ge Mi 14/14
A 05.51 su Ge 3° colpo [7899/24.04.2008]
===========================================================================
mar 20.05.2008 < Nz 49.29.50.83.78 > ambo ripetuto < 29. >
mar 20.05.2008 < Tu 00.03.48.84.30 > ambo ripetuto < 00.00 >
----------------------------------------------------------------- caso n° 2
mar 20.05.2008 [7910]
G 1: A 65.16.19 Ge Mi 14/14
A 19.16 su Ge 3° colpo [7913/27.05.2008]
===========================================================================
sab 30.08.2008 < Nz 29.44.61.47.74 > ambo ripetuto < 29. >
sab 30.08.2008 < Tu 00.74.36.46.02 > ambo ripetuto < 00.00 >
----------------------------------------------------------------- caso n° 3
sab 30.08.2008 [7954]
G 1: A 80.31.34 Ge Mi 14/14
A 31.34 su Mi 5° colpo [7959/11.09.2008]
===========================================================================
gio 06.11.2008 < Nz 29.76.12.83.18 > ambo ripetuto < 29. >
gio 06.11.2008 < Tu 176.89.08.78.57 > ambo ripetuto < 00.00 >
----------------------------------------------------------------- caso n° 4
gio 06.11.2008 [7983]
G 1: A 22.63.66 Ge Mi 14/14
A 22.66 su Ge 3° colpo [7986/13.11.2008]
===========================================================================
sab 29.11.2008 < Nz 68.62.30.50.29 > ambo ripetuto < 29. >
sab 29.11.2008 < Tu 112.49.58.70.74 > ambo ripetuto < 00.00 >
----------------------------------------------------------------- caso n° 5
sab 29.11.2008 [7993]
G 1: A 08.49.52 Ge Mi 14/14
A 49.08 su Mi 9° colpo [8002/20.12.2008]
===========================================================================
gio 19.02.2009 < Nz 17.82.33.40.29 > ambo ripetuto < 29. >
gio 19.02.2009 < Tu 00.14.24.49.69 > ambo ripetuto < 00.00 >
----------------------------------------------------------------- caso n° 6
gio 19.02.2009 [8028]
G 1: A 28.69.72 Ge Mi 14/14
A 69.28 su Mi 4° colpo [8032/28.02.2009]
===========================================================================
gio 26.02.2009 < Nz 56.20.29.40.88 > ambo ripetuto < 29. >
gio 26.02.2009 < Tu 128.66.02.23.26 > ambo ripetuto < 00.00 >
----------------------------------------------------------------- caso n° 7
gio 26.02.2009 [8031]
G 1: A 56.07.10 Ge Mi 14/14
A 10.07 su Ge 2° colpo [8033/03.03.2009]
===========================================================================
mar 28.04.2009 < Nz 36.19.29.11.63 > ambo ripetuto < 29. >
mar 28.04.2009 < Tu 96.88.67.46.62 > ambo ripetuto < 00.00 >
----------------------------------------------------------------- caso n° 8
mar 28.04.2009 [8057]
G 1: A 55.06.09 Ge Mi 14/14
A 09.55 su Ge 4° colpo [8061/07.05.2009]
===========================================================================
gio 18.06.2009 < Nz 46.42.84.61.29 > ambo ripetuto < 29. >
gio 18.06.2009 < Tu 32.74.54.82.66 > ambo ripetuto < 00.00 >
----------------------------------------------------------------- caso n° 9
gio 18.06.2009 [8079]
G 1: A 78.29.32 Ge Mi 2/14
in corso (2° su 14)
b>
|
