Ho fatto girare lo script ma vedo la giocata a Tutte e per quantoCiao 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
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à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
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 ?Questo è un metodo molto vecchio che non paga da anni....
ho solo inserito la giocata a TT eppure l'Output è positivo
Codice: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
Si calcola a ogni estrazione,li chiamo Day by Dayquesto 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
quindi lo si calcola ogni giorno di estrazione e lo si gioca per le 7 estrazioni successive ?Si calcola a ogni estrazione,li chiamo Day by Day
E daje!....questo era per Acquafresca solo per evidenziare che il gioco su TT qualcosa paga.Il metodo originario era su ruota secca dove si prende una previsione e la si porta a vanti fino al terminequindi 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
certo su tutte si hanno piu' chance di vincita anche se il rendimento e' /10 rispetto a quello su ruotaE daje!....questo era per Acquafresca solo per evidenziare che il gioco su TT qualcosa paga.Il metodo originario era su ruota secca dove si prende una previsione e la si porta a vanti fino al termine
Sai Marco che anche questo tuo metodo facendo una prova modicando i valori delle somme ,ha dato un ambo su Bari ieri, e anche lo script che ho postato io ,ha prodotto un ambo e cinque estratti , sono da studiarli ,infatti ero tentato a giocare ma ho preferito di testarlo ancora un pò ,prima di provarci per davvero. posto i risultati del tuo metodo modificato solo della ruota di BariQuesto è un metodo molto vecchio che non paga da anni....
ho solo inserito la giocata a TT eppure l'Output è positivo
Codice: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