R
Roby
Guest
Salve a Tutti,
ripropongo volentieri questo metodo,
che a distanza di tempo mantiene ancora inalterata la sua validita'.
1 saluto
D.Aspys
[|)]
-----------------------------------
Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim poste(5)
Dim posta(5)
poste(1)=1
poste(2)=1
poste(3)=1
poste(4)=1
poste(5)=0
ruote(1)=1
For n=7088 To EstrazioneFin
If IndiceMensile=2 Then
numeri1(1)=Fuori90(Estratto(n,1,1)+10)
numeri1(2)=Fuori90(Estratto(n,4,2)+84)
numeri1(3)=Fuori90(Estratto(n,6,5)+41)
numeri1(4)=Fuori90(Estratto(n,8,3)+88)
numeri1(5)=Fuori90(Estratto(n,8,5)+70)
numeri1(6)=Fuori90(Estratto(n,9,1)+54)
numeri1(7)=Fuori90(Estratto(n,9,3)+12)
numeri1(8)=Fuori90(Estratto(n,10,1)+15)
ImpostaGiocata 1,numeri1,ruote,poste,10,4
Gioca n
End If
Next
ScriviResoconto
End Sub
----------------------------------------
sab 05.01.2002 [7088]
G 1: MATQ 06.19.90.58.59.13.73.79 Ba D: 10
E: 58 su Ba 3° colpo [7091/16.01.2002]
E: 79 su Ba 9° colpo [7097/06.02.2002]
mer 06.02.2002 [7097]
G 1: MATQ 89.58.72.69.16.64.57.66 Ba D: 10
E: 66 su Ba 3° colpo [7100/16.02.2002]
E: 64 su Ba 4° colpo [7101/20.02.2002]
E: 57.89 su Ba 10° colpo [7107/13.03.2002]
mer 06.03.2002 [7105]
G 1: MATQ 16.52.57.36.02.61.49.50 Ba D: 10
E: 02 su Ba 1° colpo [7106/09.03.2002]
E: 57 su Ba 2° colpo [7107/13.03.2002]
E: 50.61 su Ba 3° colpo [7108/16.03.2002]
E: 49 su Ba 4° colpo [7109/20.03.2002]
E: 50 su Ba 8° colpo [7113/03.04.2002]
E: 57.52 su Ba 10° colpo [7115/10.04.2002]
sab 06.04.2002 [7114]
G 1: MATQ 79.26.54.02.72.17.75 Ba D: 10
E: 79 su Ba 2° colpo [7116/13.04.2002]
E: 17 su Ba 5° colpo [7119/24.04.2002]
E: 02 su Ba 7° colpo [7121/02.05.2002]
E: 02 su Ba 8° colpo [7122/04.05.2002]
E: 17 su Ba 10° colpo [7124/11.05.2002]
sab 04.05.2002 [7122]
G 1: MATQ 70.10.11.56.83.07.41.18 Ba D: 10
E: 70 su Ba 1° colpo [7123/08.05.2002]
E: 18 su Ba 3° colpo [7125/15.05.2002]
E: 70 su Ba 8° colpo [7130/01.06.2002]
mer 05.06.2002 [7131]
G 1: MATQ 09.88.30.59.20.57.44.79 Ba D: 10
E: 44 su Ba 4° colpo [7135/19.06.2002]
E: 57 su Ba 8° colpo [7139/03.07.2002]
sab 06.07.2002 [7140]
G 1: MATQ 06.27.46.89.39.52.41.71 Ba D: 10
E: 71 su Ba 2° colpo [7142/13.07.2002]
E: 71 su Ba 4° colpo [7144/20.07.2002]
E: 39 su Ba 5° colpo [7145/24.07.2002]
E: 39 su Ba 6° colpo [7146/27.07.2002]
mer 07.08.2002 [7149]
G 1: MATQ 18.73.22.66.16.07.85.37 Ba D: 10
E: 07.18 su Ba 1° colpo [7150/10.08.2002]
E: 18 su Ba 2° colpo [7151/14.08.2002]
E: 22 su Ba 5° colpo [7154/24.08.2002]
E: 07 su Ba 6° colpo [7155/28.08.2002]
E: 85 su Ba 7° colpo [7156/31.08.2002]
E: 16 su Ba 10° colpo [7159/11.09.2002]
sab 07.09.2002 [7158]
G 1: MATQ 74.08.80.68.52.07.78 Ba D: 10
E: 78 su Ba 2° colpo [7160/14.09.2002]
E: 08.80 su Ba 10° colpo [7168/12.10.2002]
sab 05.10.2002 [7166]
G 1: MATQ 35.46.88.63.22.27.09 Ba D: 10
E: 22.63 su Ba 1° colpo [7167/09.10.2002]
E: 63 su Ba 5° colpo [7171/23.10.2002]
E: 88 su Ba 6° colpo
ripropongo volentieri questo metodo,
che a distanza di tempo mantiene ancora inalterata la sua validita'.
1 saluto
D.Aspys
[|)]
-----------------------------------
Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim poste(5)
Dim posta(5)
poste(1)=1
poste(2)=1
poste(3)=1
poste(4)=1
poste(5)=0
ruote(1)=1
For n=7088 To EstrazioneFin
If IndiceMensile=2 Then
numeri1(1)=Fuori90(Estratto(n,1,1)+10)
numeri1(2)=Fuori90(Estratto(n,4,2)+84)
numeri1(3)=Fuori90(Estratto(n,6,5)+41)
numeri1(4)=Fuori90(Estratto(n,8,3)+88)
numeri1(5)=Fuori90(Estratto(n,8,5)+70)
numeri1(6)=Fuori90(Estratto(n,9,1)+54)
numeri1(7)=Fuori90(Estratto(n,9,3)+12)
numeri1(8)=Fuori90(Estratto(n,10,1)+15)
ImpostaGiocata 1,numeri1,ruote,poste,10,4
Gioca n
End If
Next
ScriviResoconto
End Sub
----------------------------------------
sab 05.01.2002 [7088]
G 1: MATQ 06.19.90.58.59.13.73.79 Ba D: 10
E: 58 su Ba 3° colpo [7091/16.01.2002]
E: 79 su Ba 9° colpo [7097/06.02.2002]
mer 06.02.2002 [7097]
G 1: MATQ 89.58.72.69.16.64.57.66 Ba D: 10
E: 66 su Ba 3° colpo [7100/16.02.2002]
E: 64 su Ba 4° colpo [7101/20.02.2002]
E: 57.89 su Ba 10° colpo [7107/13.03.2002]
mer 06.03.2002 [7105]
G 1: MATQ 16.52.57.36.02.61.49.50 Ba D: 10
E: 02 su Ba 1° colpo [7106/09.03.2002]
E: 57 su Ba 2° colpo [7107/13.03.2002]
E: 50.61 su Ba 3° colpo [7108/16.03.2002]
E: 49 su Ba 4° colpo [7109/20.03.2002]
E: 50 su Ba 8° colpo [7113/03.04.2002]
E: 57.52 su Ba 10° colpo [7115/10.04.2002]
sab 06.04.2002 [7114]
G 1: MATQ 79.26.54.02.72.17.75 Ba D: 10
E: 79 su Ba 2° colpo [7116/13.04.2002]
E: 17 su Ba 5° colpo [7119/24.04.2002]
E: 02 su Ba 7° colpo [7121/02.05.2002]
E: 02 su Ba 8° colpo [7122/04.05.2002]
E: 17 su Ba 10° colpo [7124/11.05.2002]
sab 04.05.2002 [7122]
G 1: MATQ 70.10.11.56.83.07.41.18 Ba D: 10
E: 70 su Ba 1° colpo [7123/08.05.2002]
E: 18 su Ba 3° colpo [7125/15.05.2002]
E: 70 su Ba 8° colpo [7130/01.06.2002]
mer 05.06.2002 [7131]
G 1: MATQ 09.88.30.59.20.57.44.79 Ba D: 10
E: 44 su Ba 4° colpo [7135/19.06.2002]
E: 57 su Ba 8° colpo [7139/03.07.2002]
sab 06.07.2002 [7140]
G 1: MATQ 06.27.46.89.39.52.41.71 Ba D: 10
E: 71 su Ba 2° colpo [7142/13.07.2002]
E: 71 su Ba 4° colpo [7144/20.07.2002]
E: 39 su Ba 5° colpo [7145/24.07.2002]
E: 39 su Ba 6° colpo [7146/27.07.2002]
mer 07.08.2002 [7149]
G 1: MATQ 18.73.22.66.16.07.85.37 Ba D: 10
E: 07.18 su Ba 1° colpo [7150/10.08.2002]
E: 18 su Ba 2° colpo [7151/14.08.2002]
E: 22 su Ba 5° colpo [7154/24.08.2002]
E: 07 su Ba 6° colpo [7155/28.08.2002]
E: 85 su Ba 7° colpo [7156/31.08.2002]
E: 16 su Ba 10° colpo [7159/11.09.2002]
sab 07.09.2002 [7158]
G 1: MATQ 74.08.80.68.52.07.78 Ba D: 10
E: 78 su Ba 2° colpo [7160/14.09.2002]
E: 08.80 su Ba 10° colpo [7168/12.10.2002]
sab 05.10.2002 [7166]
G 1: MATQ 35.46.88.63.22.27.09 Ba D: 10
E: 22.63 su Ba 1° colpo [7167/09.10.2002]
E: 63 su Ba 5° colpo [7171/23.10.2002]
E: 88 su Ba 6° colpo