INDICE SETTIMANALE

[Marco-elle]

Doppio metodo BA-CA e TO aggiornato a Sabato

 

[Marco-elle]

Ciao Marco , non so e lo hai già visionato lo script che ho postato mi sembra in altro tred forse (Milano) ,ma mi sembra invece che ha storia è lunga in positivo provate a vedere io ho fatto delle ricerche partendo da 5000 estrazioni indietro e non mi sembra di aver visto script con dei risultati simili, poi correggetemi se sbaglio. posto il codice :
Codice :

Sub Main
' Script modificato da Acquafresca per estrarre delle Quartine, molto valido su studio sommativo effettuato su tutti i numeri possibili da sommare e gli unici
'due numeri con guadagno risultano il (7) ed il (9), da cambiare a piacimento dell'utente.
'Se si vuole effettuare la ricerca per singola ruota e non tutte ,basta mettere la spunta ( ' ) davanti alla (Ruotadigioco) che non si vuole considerare

Dim Ambate(4),Ruotadigioco(12),Poste(4)
Ruotadigioco(1) = BA_
'Ruotadigioco(2) = CA_
'Ruotadigioco(3) = FI_
'Ruotadigioco(4) = GE_
'Ruotadigioco(5) = MI_
'Ruotadigioco(6) = NA_
'Ruotadigioco(7) = PA_
'Ruotadigioco(8) = RO_
'Ruotadigioco(9) = TO_
'Ruotadigioco(10) = VE_
Ruotadigioco(11) = NZ_
Ruotadigioco(12) = TT_
Poste(1) = 1
Poste(2) = 1
Poste(3) = 1
Poste(4) = 1


For Es = EstrazioneFin -500 To EstrazioneFin 'calcolo effetuato da 1000 estrazioni indietro
Et = Es -20 'qui mettere per quanti colpi si vuole considerare
If IndiceMensile(et) = 1 Then 'Prima del Mese
K = K + 1 : Scrivi String(105,"=") & " " & K,1
c = 7 'In (c) è possibile cambiare il numero da sommare per lo sviluppo a piacere vostro ,ma gli unici validi sono il 7 (molto valido) e anche il 9
Ambate(1) = Fuori90(Estratto(Et + 1,5,1) + c)
Ambate(2) = Fuori90(Estratto(Et + 1,6,3) + c)
Ambate(3) = Fuori90(Estratto(Et + 1,5,4) + c)
Ambate(4) = Fuori90(Estratto(Et + 1,6,4) + c)


ImpostaGiocata 1,Ambate,Ruotadigioco,Poste,20,4 'Anche qui va cambiati i colpi es:invece del 20 mettere 18
Gioca Es,1
End If
Next
ScriviResoconto
End Sub

Ho fatto girare lo script ma vedo la giocata a Tutte e per quanto
possa in qualche modo essere fruttuoso,questi metodi sono
elaborati per l'esito a ruota

 

[Acquafresca]

Ho fatto girare lo script ma vedo la giocata a Tutte e per quanto
possa in qualche modo essere fruttuoso,questi metodi sono
elaborati per l'esito a ruota

Si infatti come ho fatto presente sia Ba che Nz danno esiti positvi con somma 7 e invece Roma con somma9 ,ho trascorso non poche ore per valutarlo e mi sembra niente male ,ovvio che son tentato pure di provarci oggi ti faro sapere come andrà

 

[Marco-elle]

Questo è un metodo molto vecchio che non paga da anni....
ho solo inserito la giocata a TT eppure l'Output è positivo

Sub Main() ColoreTesto 1
   Scrivi
   Scrivi " 4 TERNI DAY BY DAY",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(11)
   Dim posta(4):Dim t1(3):Dim t2(3):Dim t3(3):Dim t4(3)
   posta(2) = 1
   posta(3) = 1
   klp = 7
   ini = 10285
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      ruote(1) = 11
      casi = casi + 1
      co = co + 1
      ColoreTesto 1:Scrivi String(100,"°") & " Caso n° " & casi,1
      ColoreTesto 2:Scrivi DataEstrazione(es) & "---> " & IndiceMensile(es) & "° Estrazione Mensile"
      ColoreTesto 1:Scrivi String(100,"°")
      ColoreTesto 0
      t1(1) = Fuori90(90 +(Estratto(es,4,2)) - Estratto(es,9,1) + 5)
      t1(2) = Fuori90(90 +(Estratto(es,7,3)) + Estratto(es,10,1) + 1)
      t1(3) = Fuori90(90 +(Estratto(es,8,1)) - Estratto(es,5,5) + 22)
      ImpostaGiocata 1,t1,ruote,posta,klp
      t2(1) = Fuori90(90 +(Estratto(es,4,2)) - Estratto(es,9,1) + 5)
      t2(2) = Fuori90(90 +(Estratto(es,7,3)) + Estratto(es,10,1) + 1)
      t2(3) = Fuori90(90 +(Estratto(es,1,3)) * Estratto(es,7,1) + 33)
      ImpostaGiocata 2,t2,ruote,posta,klp
      t3(1) = Fuori90(90 +(Estratto(es,4,2)) - Estratto(es,9,1) + 5)
      t3(2) = Fuori90(90 +(Estratto(es,1,5)) + Estratto(es,7,4) + 1)
      t3(3) = Fuori90(90 +(Estratto(es,8,1)) - Estratto(es,5,5) + 22)
      ImpostaGiocata 3,t3,ruote,posta,klp
      t4(1) = Fuori90(90 +(Estratto(es,4,2)) - Estratto(es,9,1) + 5)
      t4(2) = Fuori90(90 +(Estratto(es,1,5)) + Estratto(es,7,4) + 1)
      t4(3) = Fuori90(90 +(Estratto(es,1,3)) * Estratto(es,7,1) + 33)
      ImpostaGiocata 4,t4,ruote,posta,klp
      Gioca es,1
      'End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub

 

[mavtop]

Questo è un metodo molto vecchio che non paga da anni....
ho solo inserito la giocata a TT eppure l'Output è positivo

Sub Main() ColoreTesto 1
   Scrivi
   Scrivi " 4 TERNI DAY BY DAY",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(11)
   Dim posta(4):Dim t1(3):Dim t2(3):Dim t3(3):Dim t4(3)
   posta(2) = 1
   posta(3) = 1
   klp = 7
   ini = 10285
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      ruote(1) = 11
      casi = casi + 1
      co = co + 1
      ColoreTesto 1:Scrivi String(100,"°") & " Caso n° " & casi,1
      ColoreTesto 2:Scrivi DataEstrazione(es) & "---> " & IndiceMensile(es) & "° Estrazione Mensile"
      ColoreTesto 1:Scrivi String(100,"°")
      ColoreTesto 0
      t1(1) = Fuori90(90 +(Estratto(es,4,2)) - Estratto(es,9,1) + 5)
      t1(2) = Fuori90(90 +(Estratto(es,7,3)) + Estratto(es,10,1) + 1)
      t1(3) = Fuori90(90 +(Estratto(es,8,1)) - Estratto(es,5,5) + 22)
      ImpostaGiocata 1,t1,ruote,posta,klp
      t2(1) = Fuori90(90 +(Estratto(es,4,2)) - Estratto(es,9,1) + 5)
      t2(2) = Fuori90(90 +(Estratto(es,7,3)) + Estratto(es,10,1) + 1)
      t2(3) = Fuori90(90 +(Estratto(es,1,3)) * Estratto(es,7,1) + 33)
      ImpostaGiocata 2,t2,ruote,posta,klp
      t3(1) = Fuori90(90 +(Estratto(es,4,2)) - Estratto(es,9,1) + 5)
      t3(2) = Fuori90(90 +(Estratto(es,1,5)) + Estratto(es,7,4) + 1)
      t3(3) = Fuori90(90 +(Estratto(es,8,1)) - Estratto(es,5,5) + 22)
      ImpostaGiocata 3,t3,ruote,posta,klp
      t4(1) = Fuori90(90 +(Estratto(es,4,2)) - Estratto(es,9,1) + 5)
      t4(2) = Fuori90(90 +(Estratto(es,1,5)) + Estratto(es,7,4) + 1)
      t4(3) = Fuori90(90 +(Estratto(es,1,3)) * Estratto(es,7,1) + 33)
      ImpostaGiocata 4,t4,ruote,posta,klp
      Gioca es,1
      'End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub

questo quando lo si calcola ?

vedo 4 terni con 3 numeri non conosco questo software ma posso replicare la ricerca, vedo che parte dall'estrazione 10285 (devo verificare a quale corrisponde)

klp sono i colpi ? 7 colpi in tutto ma ripeto non capisco quando calcola i terni

 

[Marco-elle]

questo quando lo si calcola ?

vedo 4 terni con 3 numeri non conosco questo software ma posso replicare la ricerca, vedo che parte dall'estrazione 10285 (devo verificare a quale corrisponde)

klp sono i colpi ? 7 colpi in tutto ma ripeto non capisco quando calcola i terni

questo quando lo si calcola ?

vedo 4 terni con 3 numeri non conosco questo software ma posso replicare la ricerca, vedo che parte dall'estrazione 10285 (devo verificare a quale corrisponde)

klp sono i colpi ? 7 colpi in tutto ma ripeto non capisco quando calcola i terni

Si calcola a ogni estrazione,li chiamo Day by Day

 

[mavtop]

Si calcola a ogni estrazione,li chiamo Day by Day

quindi lo si calcola ogni giorno di estrazione e lo si gioca per le 7 estrazioni successive ?

a regime sono 16 terni per 4 volte a settimana = 64 euro a settimana minimi