DDBid
Member
Allego metodo trovato sulla Rete di FABIO FELICI (che ringrazio)
Si rileva la condizione alla prima del mese su NA e si mettono in gioco 8 ambi e 2 ambate per estratto sempre sulla ruota partenopea (9 colpi)
![Napoli ambi Felici.jpg Napoli ambi Felici.jpg](https://forum.lottoced.com/data/attachments/2/2676-f0120bd7cdf36baf5eb15242b6c66f7d.jpg)
Lo script ne avvalla la validita'.. Negli ultimi 6 mesi il rendimento parla di un 275%
Siamo alla 4 estrazione, x chi vuole provare:
8-80 le ambate
10-40-50-70 gli abbinamenti (sempre fissi)
IN BOCCA AL LUPO!!![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
Si rileva la condizione alla prima del mese su NA e si mettono in gioco 8 ambi e 2 ambate per estratto sempre sulla ruota partenopea (9 colpi)
![Napoli ambi Felici.jpg Napoli ambi Felici.jpg](https://forum.lottoced.com/data/attachments/2/2676-f0120bd7cdf36baf5eb15242b6c66f7d.jpg)
Lo script ne avvalla la validita'.. Negli ultimi 6 mesi il rendimento parla di un 275%
Codice:
Sub Main()
Scrivi
ColoreTesto 2:Scrivi "METODO *** AMBI SU NA *** - STRUTTURA BY BLACKMORE, EDITED BY DDBID"
ColoreTesto 0:Scrivi:Scrivi:Scrivi
Dim ruota(1)
Dim ambata1(2),ambata2(1),Abbin(4)
Dim ambo1(3),ambo2(3),ambo3(3),ambo4(3),ambo5(3),ambo6(3),ambo7(3),ambo8(3)
Dim terzina(3)
Dim cinquina(5)
Dim posta(1)
Dim poste(5)
posta(1) = 1
'poste(1) = 1
poste(2) = 1
'poste(3) = 1
'poste(4) = 0.90
'poste(5) = 0.10
ruo = CInt(InputBox("RUOTA DI GIOCO?","By DDBID",6))
ab = InputBox("Quante estrazioni controllo a ritroso?","By DDBID",75)
k = CInt(InputBox("PER QUANTI COLPI?","By DDBID",9))
ini = EstrazioneFin - ab
fin = EstrazioneFin
co = 0
'ruota1 = 1
'ruota2 = 3
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 1 Then
casi = casi + 1
Scrivi String(90,"+") & " Caso n° " & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es) & " - Sommativo alla 1 Estrazione del mese su " & NomeRuota(ruo),1
ColoreTesto 0
Scrivi String(90,"+"),1
co = co + 1
ambata1(1) = Estratto(es,NA_,1)
ambata1(2) = Vert(Estratto(es,NA_,1))
'ambata1(2) = Vert(ambata2)
Abbin(1) = 10
Abbin(2) = 40
Abbin(3) = 50
Abbin(4) = 70
'-- ambo 1 --
ambo1(1) = ambata1(1)
ambo1(2) = Abbin(1)
'-- ambo 2 --
ambo2(1) = ambata1(1)
ambo2(2) = Abbin(2)
'-- ambo 3 --
ambo3(1) = ambata1(1)
ambo3(2) = Abbin(3)
'-- ambo 4 --
ambo4(1) = ambata1(1)
ambo4(2) = Abbin(4)
'-- ambo 5 --
ambo5(1) = ambata1(2)
ambo5(2) = Abbin(1)
'-- ambo 6 --
ambo6(1) = ambata1(2)
ambo6(2) = Abbin(2)
'-- ambo 7 --
ambo7(1) = ambata1(2)
ambo7(2) = Abbin(3)
'-- ambo 8 --
ambo8(1) = ambata1(2)
ambo8(2) = Abbin(4)
'-- Giocate --
ruota(1) = ruo
ImpostaGiocata 1,ambo1,ruota,poste,k,2
ImpostaGiocata 2,ambo2,ruota,poste,k,2
ImpostaGiocata 3,ambo3,ruota,poste,k,2
ImpostaGiocata 4,ambo4,ruota,poste,k,2
ImpostaGiocata 5,ambo5,ruota,poste,k,2
ImpostaGiocata 6,ambo6,ruota,poste,k,2
ImpostaGiocata 7,ambo7,ruota,poste,k,2
ImpostaGiocata 8,ambo8,ruota,poste,k,2
ImpostaGiocata 9,ambata1,ruota,posta,k,1
Gioca es
End If
Next
Scrivi
Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub
Siamo alla 4 estrazione, x chi vuole provare:
8-80 le ambate
10-40-50-70 gli abbinamenti (sempre fissi)
IN BOCCA AL LUPO!!