R
Roby
Guest
Ciao, avevo un pò di tempo ed ho fatto questa piccola ricerca per accontentare in parte
gli amici che spesso mi chiedono nuove ricerche per il lotto Italiano,
UNA AMBATA SECCA SU OGNI RUOTA
All'ultima° estrazione del mese per 13 colpi:
1° di Cagliari + 1° di Firenze + 63 su Bari
5° di Milano + 2° di Torino + 43 su Cagliari
1° di Bari + 2° di Cagliari + 73 su Firenze
4° di Bari + 3° di Venezia + 8 su Genova
4° di Bari + 1° di Firenze + 77 su Milano
5° di Bari + 1° di Firenze + 56 su Napoli
1° di Genova + 5° di Genova + 90 su Palermo
2° di Roma + 2° di Venezia + 43 su Roma
3° di Firenze + 5° di Torino + 86 su Torino
1° di Bari + 1° di Napoli + 55 su Venezia
Statistica dal 01-01-2005 ad oggi:
Casi esaminati: 190
Casi in corso_: 4
Casi finali___: 186
Casi positivi_: 183
Casi negativi_: 3
ecco il listato:
Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
Dim prog(5,100)
posta(1)=1
prog(1,1)=2
prog(1,2)=2
prog(1,3)=2
prog(1,4)=2
prog(1,5)=2
prog(1,6)=3
prog(1,7)=3
prog(1,8)=3
prog(1,9)=4
prog(1,10)=4
prog(1,11)=4
prog(1,12)=5
prog(1,13)=6
k=13
y=1
For n=7404 To EstrazioneFin
If IndiceMensile(n+1)=1 Then
ng=0
ruote(1)=1
numeri1(1)=Fuori90(Estratto(n,2,1)+Estratto(n,3,1)+63)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1)=2
numeri1(1)=Fuori90(Estratto(n,5,5)+Estratto(n,9,2)+43)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1)=3
numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,2,2)+73)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1)=4
numeri1(1)=Fuori90(Estratto(n,1,4)+Estratto(n,10,3)+8)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1)=5
numeri1(1)=Fuori90(Estratto(n,1,4)+Estratto(n,3,1)+77)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1)=6
numeri1(1)=Fuori90(Estratto(n,1,5)+Estratto(n,3,1)+56)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1)=7
numeri1(1)=Fuori90(Estratto(n,4,1)+Estratto(n,4,5)+90)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1)=8
numeri1(1)=Fuori90(Estratto(n,8,2)+Estratto(n,10,2)+43)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1)=9
numeri1(1)=Fuori90(Estratto(n,3,3)+Estratto(n,9,5)+86)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1)=10
numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,6,1)+55)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
Gioca n
End If
Next
ScriviResoconto
End Sub
Danilo by cs1
gli amici che spesso mi chiedono nuove ricerche per il lotto Italiano,
UNA AMBATA SECCA SU OGNI RUOTA
All'ultima° estrazione del mese per 13 colpi:
1° di Cagliari + 1° di Firenze + 63 su Bari
5° di Milano + 2° di Torino + 43 su Cagliari
1° di Bari + 2° di Cagliari + 73 su Firenze
4° di Bari + 3° di Venezia + 8 su Genova
4° di Bari + 1° di Firenze + 77 su Milano
5° di Bari + 1° di Firenze + 56 su Napoli
1° di Genova + 5° di Genova + 90 su Palermo
2° di Roma + 2° di Venezia + 43 su Roma
3° di Firenze + 5° di Torino + 86 su Torino
1° di Bari + 1° di Napoli + 55 su Venezia
Statistica dal 01-01-2005 ad oggi:
Casi esaminati: 190
Casi in corso_: 4
Casi finali___: 186
Casi positivi_: 183
Casi negativi_: 3
ecco il listato:
Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
Dim prog(5,100)
posta(1)=1
prog(1,1)=2
prog(1,2)=2
prog(1,3)=2
prog(1,4)=2
prog(1,5)=2
prog(1,6)=3
prog(1,7)=3
prog(1,8)=3
prog(1,9)=4
prog(1,10)=4
prog(1,11)=4
prog(1,12)=5
prog(1,13)=6
k=13
y=1
For n=7404 To EstrazioneFin
If IndiceMensile(n+1)=1 Then
ng=0
ruote(1)=1
numeri1(1)=Fuori90(Estratto(n,2,1)+Estratto(n,3,1)+63)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1)=2
numeri1(1)=Fuori90(Estratto(n,5,5)+Estratto(n,9,2)+43)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1)=3
numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,2,2)+73)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1)=4
numeri1(1)=Fuori90(Estratto(n,1,4)+Estratto(n,10,3)+8)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1)=5
numeri1(1)=Fuori90(Estratto(n,1,4)+Estratto(n,3,1)+77)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1)=6
numeri1(1)=Fuori90(Estratto(n,1,5)+Estratto(n,3,1)+56)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1)=7
numeri1(1)=Fuori90(Estratto(n,4,1)+Estratto(n,4,5)+90)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1)=8
numeri1(1)=Fuori90(Estratto(n,8,2)+Estratto(n,10,2)+43)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1)=9
numeri1(1)=Fuori90(Estratto(n,3,3)+Estratto(n,9,5)+86)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1)=10
numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,6,1)+55)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
Gioca n
End If
Next
ScriviResoconto
End Sub
Danilo by cs1