R
Roby
Guest
a titolo indicativo.
Bari - 4 ambate in 7°C. ( 1° del mese )
4°E.FI + 45
4°E.GE + 26
1°E.NA + 03
3°E.PA + 25
1 saluto
DendroAspys
[?]
--------------------------------------
Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim poste(5)
Dim posta(5)
poste(1)=1
poste(2)=0
poste(3)=0
poste(4)=0
ruote(1)=1
For n=7174 To EstrazioneFin
If IndiceMensile=1 Then
numeri1(1)=Fuori90(Estratto(n,3,4)+45)
numeri1(2)=Fuori90(Estratto(n,4,4)+26)
numeri1(3)=Fuori90(Estratto(n,6,1)+03)
numeri1(4)=Fuori90(Estratto(n,7,3)+25)
ImpostaGiocata 1,numeri1,ruote,poste,7,1
Gioca n
End If
Next
ScriviResoconto
End Sub
--------------------------------------
sab 02.11.2002 [7174]
G 1: M 58.05.36.04 Ba D: 7
E: 04 su Ba 1° colpo [7175/06.11.2002]
I1
mar 03.12.2002 [7183]
G 1: M 55.82.37.39 Ba D: 7
E: 37 su Ba 3° colpo [7186/10.12.2002]
I3
gio 02.01.2003 [7196]
G 1: M 40.08.46.04 Ba D: 7
E: 04 su Ba 3° colpo [7199/11.01.2003]
I3
sab 01.02.2003 [7205]
G 1: M 88.44.03.53 Ba D: 7
E: 03 su Ba 4° colpo [7209/15.02.2003]
I4
sab 01.03.2003 [7213]
G 1: M 18.03.83.31 Ba D: 7
E: 83 su Ba 2° colpo [7215/08.03.2003]
I2
mer 02.04.2003 [7222]
G 1: M 63.68.30.83 Ba D: 7
E: 63 su Ba 1° colpo [7223/05.04.2003]
I1
sab 03.05.2003 [7231]
G 1: M 38.26.20.09 Ba D: 7
E: 38 su Ba 2° colpo [7233/10.05.2003]
I2
mer 04.06.2003 [7240]
G 1: M 53.20.01 Ba D: 7
E: 53 su Ba 1° colpo [7241/07.06.2003]
I1
mer 02.07.2003 [7248]
G 1: M 19.83.60.27 Ba D: 7
E: 83 su Ba 3° colpo [7251/12.07.2003]
I3
sab 02.08.2003 [7257]
G 1: M 11.07.80.75 Ba D: 7
E: 07 su Ba 5° colpo [7262/20.08.2003]
I5
mer 03.09.2003 [7266]
G 1: M 80.27.81.74 Ba D: 7
E: 81 su Ba 1° colpo [7267/06.09.2003]
I1
mer 01.10.2003 [7274]
G 1: M 29.20.69.17 Ba D: 7
E: 29 su Ba 2° colpo [7276/08.10.2003]
I2
lun 03.11.2003 [7283]
G 1: M 48.77.83.76 Ba D: 7
E: 77 su Ba 3° colpo [7286/12.11.2003]
I3
mer 03.12.2003 [7292]
G 1: M 31.08.84.42 Ba D: 7
E: 31 su Ba 2° colpo [7294/10.12.2003]
I2
sab 03.01.2004 [7301]
G 1: M 09.80.16 Ba D: 7
E: 80 su Ba 2° colpo [7303/10.01.2004]
I2
mer 04.02.2004 [7310]
G 1: M 71.86.54.02 Ba D: 7
E: 54 su Ba 3° colpo [7313/14.02.2004]
I3
mer 03.03.2004 [7318]
G 1: M 07.06.88.50 Ba D: 7
E: 50 su Ba 1° colpo [7319/06.03.2004]
I1
sab 03.04.2004 [7327]
G 1: M 22.45.90.52 Ba D: 7
E: 52 su Ba 1° colpo [7328/07.04.2004]
I1
lun 03.05.2004 [7335]
G 1: M 53.62.27.44 Ba D: 7
E: 44 su Ba 1° colpo [7336/05.05.2004]
I1
gio 03.06.2004 [7344]
G 1: M 84.32.81 Ba D: 7
E: 32 su Ba 2° colpo [7346/09.06.2004]
I2
sab 03.07.2004 [7353]
G 1: M 57.77.21.48 Ba D: 7
E: 48.57 su Ba 6° colpo [7359/24.07.2004]
I6
mer 04.08.2004 [7362]
G 1: M 29.26.30.01 Ba D: 7
E: 29.01 su Ba 3° colpo [7365/14.08.2004]
I3
mer 01.09.2004 [7370]
G 1: M 24.54.18.03 Ba D: 7
E: 03 su Ba 4° colpo [7374/15.09.2004]
I4
sab 02.10.2004 [7379]
G 1: M 24.61.82.49 Ba D: 7
E: 61.24 su Ba 7° colpo [7386/27.10.2004]
mer
Bari - 4 ambate in 7°C. ( 1° del mese )
4°E.FI + 45
4°E.GE + 26
1°E.NA + 03
3°E.PA + 25
1 saluto
DendroAspys
[?]
--------------------------------------
Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim poste(5)
Dim posta(5)
poste(1)=1
poste(2)=0
poste(3)=0
poste(4)=0
ruote(1)=1
For n=7174 To EstrazioneFin
If IndiceMensile=1 Then
numeri1(1)=Fuori90(Estratto(n,3,4)+45)
numeri1(2)=Fuori90(Estratto(n,4,4)+26)
numeri1(3)=Fuori90(Estratto(n,6,1)+03)
numeri1(4)=Fuori90(Estratto(n,7,3)+25)
ImpostaGiocata 1,numeri1,ruote,poste,7,1
Gioca n
End If
Next
ScriviResoconto
End Sub
--------------------------------------
sab 02.11.2002 [7174]
G 1: M 58.05.36.04 Ba D: 7
E: 04 su Ba 1° colpo [7175/06.11.2002]
I1
mar 03.12.2002 [7183]
G 1: M 55.82.37.39 Ba D: 7
E: 37 su Ba 3° colpo [7186/10.12.2002]
I3
gio 02.01.2003 [7196]
G 1: M 40.08.46.04 Ba D: 7
E: 04 su Ba 3° colpo [7199/11.01.2003]
I3
sab 01.02.2003 [7205]
G 1: M 88.44.03.53 Ba D: 7
E: 03 su Ba 4° colpo [7209/15.02.2003]
I4
sab 01.03.2003 [7213]
G 1: M 18.03.83.31 Ba D: 7
E: 83 su Ba 2° colpo [7215/08.03.2003]
I2
mer 02.04.2003 [7222]
G 1: M 63.68.30.83 Ba D: 7
E: 63 su Ba 1° colpo [7223/05.04.2003]
I1
sab 03.05.2003 [7231]
G 1: M 38.26.20.09 Ba D: 7
E: 38 su Ba 2° colpo [7233/10.05.2003]
I2
mer 04.06.2003 [7240]
G 1: M 53.20.01 Ba D: 7
E: 53 su Ba 1° colpo [7241/07.06.2003]
I1
mer 02.07.2003 [7248]
G 1: M 19.83.60.27 Ba D: 7
E: 83 su Ba 3° colpo [7251/12.07.2003]
I3
sab 02.08.2003 [7257]
G 1: M 11.07.80.75 Ba D: 7
E: 07 su Ba 5° colpo [7262/20.08.2003]
I5
mer 03.09.2003 [7266]
G 1: M 80.27.81.74 Ba D: 7
E: 81 su Ba 1° colpo [7267/06.09.2003]
I1
mer 01.10.2003 [7274]
G 1: M 29.20.69.17 Ba D: 7
E: 29 su Ba 2° colpo [7276/08.10.2003]
I2
lun 03.11.2003 [7283]
G 1: M 48.77.83.76 Ba D: 7
E: 77 su Ba 3° colpo [7286/12.11.2003]
I3
mer 03.12.2003 [7292]
G 1: M 31.08.84.42 Ba D: 7
E: 31 su Ba 2° colpo [7294/10.12.2003]
I2
sab 03.01.2004 [7301]
G 1: M 09.80.16 Ba D: 7
E: 80 su Ba 2° colpo [7303/10.01.2004]
I2
mer 04.02.2004 [7310]
G 1: M 71.86.54.02 Ba D: 7
E: 54 su Ba 3° colpo [7313/14.02.2004]
I3
mer 03.03.2004 [7318]
G 1: M 07.06.88.50 Ba D: 7
E: 50 su Ba 1° colpo [7319/06.03.2004]
I1
sab 03.04.2004 [7327]
G 1: M 22.45.90.52 Ba D: 7
E: 52 su Ba 1° colpo [7328/07.04.2004]
I1
lun 03.05.2004 [7335]
G 1: M 53.62.27.44 Ba D: 7
E: 44 su Ba 1° colpo [7336/05.05.2004]
I1
gio 03.06.2004 [7344]
G 1: M 84.32.81 Ba D: 7
E: 32 su Ba 2° colpo [7346/09.06.2004]
I2
sab 03.07.2004 [7353]
G 1: M 57.77.21.48 Ba D: 7
E: 48.57 su Ba 6° colpo [7359/24.07.2004]
I6
mer 04.08.2004 [7362]
G 1: M 29.26.30.01 Ba D: 7
E: 29.01 su Ba 3° colpo [7365/14.08.2004]
I3
mer 01.09.2004 [7370]
G 1: M 24.54.18.03 Ba D: 7
E: 03 su Ba 4° colpo [7374/15.09.2004]
I4
sab 02.10.2004 [7379]
G 1: M 24.61.82.49 Ba D: 7
E: 61.24 su Ba 7° colpo [7386/27.10.2004]
mer