R
Roby
Guest
Aggiornato al 08/09/2006.
Ciao Dendro!
Siccome non trovo più il post di questo tuo metodo, lo ripropongo in tuo nome.
Faccio bene?
Ho anche rinfrescato il listato, secondo te come la giochiamo?:
Ciao Dendro!
Siccome non trovo più il post di questo tuo metodo, lo ripropongo in tuo nome.
Faccio bene?
Ho anche rinfrescato il listato, secondo te come la giochiamo?:
quote:
Sub main()
Dim r(10)
Dim n1(10)
Dim n2(10)
Dim n3(10)
Dim n4(10)
Dim p1(5)
Dim p2(5)
Dim p3(5)
Dim p4(5)
Dim p(5,100)
p(1,1)=2
p(1,2)=5
p(1,3)=10
p1(1)=2
p2(2)=1
p3(3)=1
p4(4)=1
c=3
k1=1
k2=2
k3=3
k4=4
r(1)=1
co=0
For n=7301 To EstrazioneFin
If IndiceMensile=2 Then
co=co+1
n1(1)=Fuori90(Estratto(n,1,3)+Fuori90(Estratto(n,8,4))+19)
n1(2)=Fuori90(Estratto(n,5,3)+Fuori90(Estratto(n,6,3))+38)
n1(3)=Fuori90(Estratto(n,5,3)+Fuori90(Estratto(n,6,4))+44)
n1(4)=Fuori90(Estratto(n,8,1)+Fuori90(Estratto(n,10,4))+17)
ImpostaGiocata 1,n1,r,p1,c,k1
ImpostaProgressione 1,p
n2(1)=Fuori90(Estratto(n,1,3)+Fuori90(Estratto(n,8,4))+19)
n2(2)=Fuori90(Estratto(n,5,3)+Fuori90(Estratto(n,6,3))+38)
n2(3)=Fuori90(Estratto(n,5,3)+Fuori90(Estratto(n,6,4))+44)
n2(4)=Fuori90(Estratto(n,8,1)+Fuori90(Estratto(n,10,4))+17)
ImpostaGiocata 2,n2,r,p2,c,k2
n3(1)=Fuori90(Estratto(n,1,3)+Fuori90(Estratto(n,8,4))+19)
n3(2)=Fuori90(Estratto(n,5,3)+Fuori90(Estratto(n,6,3))+38)
n3(3)=Fuori90(Estratto(n,5,3)+Fuori90(Estratto(n,6,4))+44)
n3(4)=Fuori90(Estratto(n,8,1)+Fuori90(Estratto(n,10,4))+17)
ImpostaGiocata 3,n3,r,p3,c,k3
n4(1)=Fuori90(Estratto(n,1,3)+Fuori90(Estratto(n,8,4))+19)
n4(2)=Fuori90(Estratto(n,5,3)+Fuori90(Estratto(n,6,3))+38)
n4(3)=Fuori90(Estratto(n,5,3)+Fuori90(Estratto(n,6,4))+44)
n4(4)=Fuori90(Estratto(n,8,1)+Fuori90(Estratto(n,10,4))+17)
ImpostaGiocata 4,n4,r,p4,c,k4
Gioca n
End If
Next
ColoreTesto 1
Scrivi : Scrivi
Scrivi "CASI TROVATI : "& co
ColoreTesto 0
ScriviResoconto
End Sub
Codice:
mer 07.01.2004 [7302]
G 1: M 61.22.39.03 Ba 2/3
M 22 su Ba 2° colpo [7304/14.01.2004]
I2
G 2: A 61.22.39.03 Ba 3/3
A 61.03 su Ba 3° colpo [7305/17.01.2004]
G 3: T 61.22.39.03 Ba 3/3
negativo
G 4: Q 61.22.39.03 Ba 3/3
negativo
sab 07.02.2004 [7311]
G 1: M 54.36.09.57 Ba 2/3
M 54.36 su Ba 2° colpo [7313/14.02.2004]
I2
G 2: A 54.36.09.57 Ba 2/3
A 54.36 su Ba 2° colpo [7313/14.02.2004]
I2
G 3: T 54.36.09.57 Ba 3/3
negativo
G 4: Q 54.36.09.57 Ba 3/3
negativo
sab 06.03.2004 [7319]
G 1: M 18.59.55.71 Ba 1/3
M 71.59.55 su Ba 1° colpo [7320/10.03.2004]
I1
G 2: A 18.59.55.71 Ba 1/3
A 71.59.55 su Ba 1° colpo [7320/10.03.2004]
I1
G 3: T 18.59.55.71 Ba 1/3
T 71.59.55 su Ba 1° colpo [7320/10.03.2004]
I1
G 4: Q 18.59.55.71 Ba 3/3
negativo
mer 07.04.2004 [7328]
G 1: M 57.27.41.50 Ba 3/3
M 50.57 su Ba 3° colpo [7331/17.04.2004]
G 2: A 57.27.41.50 Ba 3/3
A 50.57 su Ba 3° colpo [7331/17.04.2004]
G 3: T 57.27.41.50 Ba 3/3
negativo
G 4: Q 57.27.41.50 Ba 3/3
negativo
mer 05.05.2004 [7336]
G 1: M 48.61.84.85 Ba 1/3
M 61 su Ba 1° colpo [7337/08.05.2004]
I1
G 2: A 48.61.84.85 Ba 3/3
negativo
G 3: T 48.61.84.85 Ba 3/3
negativo
G 4: Q 48.61.84.85 Ba 3/3
negativo
sab 05.06.2004 [7345]
G 1: M 79.74.55.69 Ba