Per chi ci crede ....

[fillotto]

Nel senso che crede ancora che lo script possa ancora dare i frutti che ha dato finora .
Trattasi di giocare una cinquina su BA 87.61.06.31.34 per ambo e per Primo Estratto
E' chiaramente "pettinato" perchè l'ho desunto da un file excel che ho fatto ad hoc per vedere
quali sommativi erano più performanti per l'uscita come 1° estratto ...per il resto vedete voi
lo script è leggibilissimo

Option Explicit
Sub Main
'
   Dim N
   Dim Ruota(1),Numeri1(5),Posta(10)
   Ruota(1) = 1
  Posta(6) = 2
   Posta(2) = 1
     For N = 9775 To EstrazioneFin
      If IndiceMensile(N) = 1 Then
         Numeri1(1) = Fuori90(Estratto(N,10,1) + 77)
         Numeri1(2) = Fuori90(Estratto(N,10,2) + 55)
         Numeri1(3) = Fuori90(Estratto(N,10,3) + 42)
         Numeri1(4) = Fuori90(Estratto(N,10,4) + 70)
         Numeri1(5) = Fuori90(Estratto(N,10,5) + 49)
         ImpostaGiocata 1,Numeri1,Ruota,Posta,12,3
         Gioca N
      End If
   Next
   ScriviResoconto
End Sub

 

[e1990]

Grazie! Io ci provo

 

[fillotto]

al n° 1 abbiamo i 5 numeri sommativi di venezia questi sono quelli di napoli....
Option Explicit
Sub Main
Dim N
Dim Ruota(1),Numeri1(5),Posta(10)
Ruota(1) = 1
Posta(6) = 2
Posta(2) = 1
For N = 9775 To EstrazioneFin
If IndiceMensile(N) = 1 Then
Numeri1(1) = Fuori90(Estratto(N,6,1) + 78)
Numeri1(2) = Fuori90(Estratto(N,6,2) + 17)
Numeri1(3) = Fuori90(Estratto(N,6,3) + 62)
Numeri1(4) = Fuori90(Estratto(N,6,4) + 52)
Numeri1(5) = Fuori90(Estratto(N,6,5) + 31)
ImpostaGiocata 1,Numeri1,Ruota,Posta,12,3
Gioca N
End If
Next
ScriviResoconto
End Sub

Con questi 5 numeri sempre su BARI 10.48.71.44.80 per altre 10 estrazioni
leggermente meno produttiva ma siamo li

 

[e1990]

Grazie!

 

[fillotto]

Questo invece supera come rendimento i due precedenti si gioca sempre su BA da puntare come 2° estratto e ambo i numeri da giocare sono ; 14.80.38.46.09 per vedere come è andato nei 8 mesi trascorsi ecco lo script da far girare

Option Explicit
Sub Main

   Dim N
   Dim Ruota(1),Numeri1(5),Posta(10)
   Ruota(1) = 1
  Posta(7) = 2
   Posta(2) = 1
     For N = 9775 To EstrazioneFin
      If IndiceMensile(N) = 1 Then
         Numeri1(1) = Fuori90(Estratto(N,8,1) + 32) ' 1° RM
         Numeri1(2) = Fuori90(Estratto(N,9,1) + 55) '  1° TO
         Numeri1(3) = Fuori90(Estratto(N,12,5) + 39) ' 5° NZ
         Numeri1(4) = Fuori90(Estratto(N,5,4) + 42) ' 4° MI
         Numeri1(5) = Fuori90(Estratto(N,2,4) + 58) ' 4° CA
         ImpostaGiocata 1,Numeri1,Ruota,Posta,12,3
         Gioca N
      End If
   Next
   ScriviResoconto
End Sub

 

[Sakti]

Grazie, ottimo rendimento..

 

[fillotto]

Può capitare che nei 5 numeri ci siano dei ripetuti , specie se i sommatori sono presi da ruote diverse perciò bisogna mettere l'istruzione EliminaRipetuti .
Quindi lo script di cui al num. 5 fatelo girare così per vedere il vero rendimento che è ancora migliore ,RESTA COMUNQUE UN SOMMATIVO ....... :

Option Explicit
Sub Main
Dim N
Dim Ruota(1),Numeri1(5),Posta(10)
Ruota(1) = 1
Posta(7) = 2
Posta(2) = 1
For N = 9775 To EstrazioneFin
If IndiceMensile(N) = 1 Then
Numeri1(1) = Fuori90(Estratto(N,8,1) + 32) ' 1° RM
Numeri1(2) = Fuori90(Estratto(N,9,1) + 55) ' 1° TO
Numeri1(3) = Fuori90(Estratto(N,12,5) + 39) ' 5° NZ
Numeri1(4) = Fuori90(Estratto(N,5,4) + 42) ' 4° MI
Numeri1(5) = Fuori90(Estratto(N,2,4) + 58) ' 4° CA
EliminaRipetuti(Numeri1)
ImpostaGiocata 1,Numeri1,Ruota,Posta,12,3
Gioca N
End If
Next
ScriviResoconto
End Sub

 

[e1990]

Grazie! Ottimo..