Script per un metodo trovato qui!

[Mauro-emme]

Sub Main
Dim n(20), ruote(1)
Dim ini, fin, es, r, p1, p5, d1, d5, u5, somma, fgr
Dim k, i, cont, colpi, retestr, retsortita, retrit, retid
Dim spesa, Vincita, bilancio

colpi = 9
spesa = 0
Vincita = 0

ini = EstrazioneFin - 100
fin = EstrazioneFin

Scrivi "REPORT COMPLETO REDDITIVITA' 2026: AMBO, TERNO, QUATERNA, CINQUINA",1
Scrivi "Giocata: 4 Euro totali (1 Euro per sorte) su 18 numeri",1
Scrivi "------------------------------------------------------------"

For es = ini To fin
For r = 1 To 10
p1 = Estratto(es, r, 1)
p5 = Estratto(es, r, 5)

If p1 > 0 And p5 > 0 Then
d1 = Decina(p1)
d5 = Decina(p5)
u5 = p5 Mod 10
somma = d1 + d5 + u5
fgr = Figura(somma)

For k = 1 To 20 : n(k) = 0 : Next
cont = 1
For i = 0 To 8 : n(cont) = (i * 10) + fgr : cont = cont + 1 : Next
If fgr = 9 Then
For i = 1 To 9 : n(cont) = i : cont = cont + 1 : Next
Else
For i = 0 To 9 : n(cont) = (fgr * 10) + i : cont = cont + 1 : Next
End If
Call EliminaRipetuti
ruote(1) = r

' COSTO FISSO: 4 Euro (1 per Ambo, 1 Terno, 1 Quaterna, 1 Cinquina)
spesa = spesa + 4

' VERIFICA AMBO (Premio netto stimato: 1,60 Euro)
If VerificaEsito(n, ruote, es + 1, 2, colpi, , retsortita, retrit, retestr, retid) Then
vincita = vincita + 1.60
Scrivi DataEstrazione(es) & " " & NomeRuota(r) & " - AMBO al colpo " & retrit

' VERIFICA TERNO (Premio netto stimato: 50,00 Euro)
If VerificaEsito(n, ruote, es + 1, 3, colpi, , retsortita, retrit, retestr, retid) Then
vincita = vincita + 50.00
Scrivi "*** TERNO CORRERE AL COLPO " & retrit & " ***",1,0,vbBlue
End If

' VERIFICA QUATERNA (Premio netto stimato: 180,00 Euro)
If VerificaEsito(n, ruote, es + 1, 4, colpi, , retsortita, retrit, retestr, retid) Then
vincita = vincita + 180.00
Scrivi "!!! QUATERNA AL COLPO " & retrit & " !!!",1,0,vbRed
End If

' VERIFICA CINQUINA (Premio netto stimato: 640,00 Euro)
If VerificaEsito(n, ruote, es + 1, 5, colpi, , retsortita, retrit, retestr, retid) Then
vincita = vincita + 640.00
Scrivi "!!!!! CINQUINA STORICA AL COLPO " & retrit & " !!!!!",1,1,vbYellow, vbBlack
End If
End If
End If
Next
If ScriptInterrotto Then Exit For
Next

bilancio = vincita - spesa
Scrivi "------------------------------------------------------------",1
Scrivi "BILANCIO FINALE GENNAIO 2026",1
Scrivi "Spesa Totale: " & Round(spesa, 2) & " €"
Scrivi "Vincita Totale: " & Round(vincita, 2) & " €"
Scrivi "Utile Netto: " & Round(bilancio, 2) & " €",1
If spesa > 0 Then Scrivi "ROI Metodo: " & Round((vincita/spesa)*100, 2) & "%"
End Sub

 

[Mauro-emme]

Modificato con spiegazione metodo:

Sub Main
Dim n(20), ruote(1)
Dim ini, fin, es, r, p1, p5, d1, d5, u5, somma, fgr
Dim k, i, cont, colpi, retestr, retsortita, retrit, retid
Dim spesa, Vincita, bilancio

colpi = 9
spesa = 0
Vincita = 0

ini = EstrazioneFin - 100
fin = EstrazioneFin

' --- INIZIO SEZIONE SPIEGAZIONE METODO ---
Scrivi "LOGICA DI CALCOLO DEL METODO 2026",1,0,vbYellow,vbBlack
Scrivi ""
Scrivi "1. Rilevamento: Si prendono il 1° e il 5° estratto di ogni ruota."
Scrivi "2. Calcolo Somma: Si somma la Decina del 1°, la Decina del 5° e l'Unità del 5°."
Scrivi "3. Determinazione Figura: Si calcola la 'Figura' del risultato (somma delle cifre fino a 1-9)."
Scrivi "4. Generazione Lunghetta: Si uniscono due serie numeriche:"
Scrivi " - La Cadenza della Figura (es. se Figura è 4: 4, 14, 24, 34, 44, 54, 64, 74, 84)"
Scrivi " - La Decina della Figura (es. se Figura è 4: 40, 41, 42, 43, 44, 45, 46, 47, 48, 49)"
Scrivi "5. Risultato: Una lunghetta filtrata dai duplicati per la giocata di Ambo e superiori."
Scrivi "------------------------------------------------------------"
' --- FINE SEZIONE SPIEGAZIONE METODO ---

Scrivi "REPORT COMPLETO REDDITIVITA' 2026",1
Scrivi "Giocata: 4 Euro totali su 18/19 numeri per 9 colpi"
Scrivi "------------------------------------------------------------"

For es = ini To fin
For r = 1 To 10
p1 = Estratto(es, r, 1)
p5 = Estratto(es, r, 5)

If p1 > 0 And p5 > 0 Then
d1 = Decina(p1)
d5 = Decina(p5)
u5 = p5 Mod 10
somma = d1 + d5 + u5
fgr = Figura(somma)

For k = 1 To 20 : n(k) = 0 : Next
cont = 1
' Inserimento Cadenza
For i = 0 To 8 : n(cont) = (i * 10) + fgr : cont = cont + 1 : Next
' Inserimento Decina
If fgr = 9 Then
For i = 1 To 9 : n(cont) = i : cont = cont + 1 : Next
Else
For i = 0 To 9 : n(cont) = (fgr * 10) + i : cont = cont + 1 : Next
End If
Call EliminaRipetuti
ruote(1) = r

spesa = spesa + 4

' Verifica Esiti (Ambo = 1.60€, Terno = 50€, Quaterna = 180€, Cinquina = 640€)
If VerificaEsito(n, ruote, es + 1, 2, colpi, , retsortita, retrit, retestr, retid) Then
Vincita = Vincita + 1.60
If VerificaEsito(n, ruote, es + 1, 3, colpi, , retsortita, retrit, retestr, retid) Then Vincita = Vincita + 50.00
If VerificaEsito(n, ruote, es + 1, 4, colpi, , retsortita, retrit, retestr, retid) Then Vincita = Vincita + 180.00
If VerificaEsito(n, ruote, es + 1, 5, colpi, , retsortita, retrit, retestr, retid) Then Vincita = Vincita + 640.00
End If
End If
Next
If ScriptInterrotto Then Exit For
Next

bilancio = Vincita - spesa
Scrivi "BILANCIO FINALE AGGIORNATO AL 13 GENNAIO 2026",1
Scrivi "Spesa: " & Round(spesa, 2) & " € | Vincita: " & Round(Vincita, 2) & " €"
Scrivi "Utile Netto: " & Round(bilancio, 2) & " €",1,,vbGreen

Scrivi ""
Scrivi "PROSSIME GIOCATE (Valide dal 13/01/2026):",1,,vbBlue,vbWhite
Scrivi "PROSSIMA GIOCATA CONSIGLIATA (Basata su estrazione del 10/01/2026)",1,,vbBlue,vbWhite
For r = 1 To 10
p1 = Estratto(fin, r, 1)
p5 = Estratto(fin, r, 5)
If p1 > 0 And p5 > 0 Then
d1 = Decina(p1)
d5 = Decina(p5)
u5 = p5 Mod 10
somma = d1 + d5 + u5
fgr = Figura(somma)

' Calcolo numeri della serie
For k = 1 To 20 : n(k) = 0 : Next
cont = 1
For i = 0 To 8 : n(cont) = (i * 10) + fgr : cont = cont + 1 : Next
If fgr = 9 Then
For i = 1 To 9 : n(cont) = i : cont = cont + 1 : Next
Else
For i = 0 To 9 : n(cont) = (fgr * 10) + i : cont = cont + 1 : Next
End If
Call EliminaRipetuti

Scrivi NomeRuota(r) & ": " & StringaNumeri
End If
Next
End Sub

 

[cavaleri]

Modificato con spiegazione metodo:

Sub Main
Dim n(20), ruote(1)
Dim ini, fin, es, r, p1, p5, d1, d5, u5, somma, fgr
Dim k, i, cont, colpi, retestr, retsortita, retrit, retid
Dim spesa, Vincita, bilancio

colpi = 9
spesa = 0
Vincita = 0

ini = EstrazioneFin - 100
fin = EstrazioneFin

' --- INIZIO SEZIONE SPIEGAZIONE METODO ---
Scrivi "LOGICA DI CALCOLO DEL METODO 2026",1,0,vbYellow,vbBlack
Scrivi ""
Scrivi "1. Rilevamento: Si prendono il 1° e il 5° estratto di ogni ruota."
Scrivi "2. Calcolo Somma: Si somma la Decina del 1°, la Decina del 5° e l'Unità del 5°."
Scrivi "3. Determinazione Figura: Si calcola la 'Figura' del risultato (somma delle cifre fino a 1-9)."
Scrivi "4. Generazione Lunghetta: Si uniscono due serie numeriche:"
Scrivi " - La Cadenza della Figura (es. se Figura è 4: 4, 14, 24, 34, 44, 54, 64, 74, 84)"
Scrivi " - La Decina della Figura (es. se Figura è 4: 40, 41, 42, 43, 44, 45, 46, 47, 48, 49)"
Scrivi "5. Risultato: Una lunghetta filtrata dai duplicati per la giocata di Ambo e superiori."
Scrivi "------------------------------------------------------------"
' --- FINE SEZIONE SPIEGAZIONE METODO ---

Scrivi "REPORT COMPLETO REDDITIVITA' 2026",1
Scrivi "Giocata: 4 Euro totali su 18/19 numeri per 9 colpi"
Scrivi "------------------------------------------------------------"

For es = ini To fin
For r = 1 To 10
p1 = Estratto(es, r, 1)
p5 = Estratto(es, r, 5)

If p1 > 0 And p5 > 0 Then
d1 = Decina(p1)
d5 = Decina(p5)
u5 = p5 Mod 10
somma = d1 + d5 + u5
fgr = Figura(somma)

For k = 1 To 20 : n(k) = 0 : Next
cont = 1
' Inserimento Cadenza
For i = 0 To 8 : n(cont) = (i * 10) + fgr : cont = cont + 1 : Next
' Inserimento Decina
If fgr = 9 Then
For i = 1 To 9 : n(cont) = i : cont = cont + 1 : Next
Else
For i = 0 To 9 : n(cont) = (fgr * 10) + i : cont = cont + 1 : Next
End If
Call EliminaRipetuti
ruote(1) = r

spesa = spesa + 4

' Verifica Esiti (Ambo = 1.60€, Terno = 50€, Quaterna = 180€, Cinquina = 640€)
If VerificaEsito(n, ruote, es + 1, 2, colpi, , retsortita, retrit, retestr, retid) Then
Vincita = Vincita + 1.60
If VerificaEsito(n, ruote, es + 1, 3, colpi, , retsortita, retrit, retestr, retid) Then Vincita = Vincita + 50.00
If VerificaEsito(n, ruote, es + 1, 4, colpi, , retsortita, retrit, retestr, retid) Then Vincita = Vincita + 180.00
If VerificaEsito(n, ruote, es + 1, 5, colpi, , retsortita, retrit, retestr, retid) Then Vincita = Vincita + 640.00
End If
End If
Next
If ScriptInterrotto Then Exit For
Next

bilancio = Vincita - spesa
Scrivi "BILANCIO FINALE AGGIORNATO AL 13 GENNAIO 2026",1
Scrivi "Spesa: " & Round(spesa, 2) & " € | Vincita: " & Round(Vincita, 2) & " €"
Scrivi "Utile Netto: " & Round(bilancio, 2) & " €",1,,vbGreen

Scrivi ""
Scrivi "PROSSIME GIOCATE (Valide dal 13/01/2026):",1,,vbBlue,vbWhite
Scrivi "PROSSIMA GIOCATA CONSIGLIATA (Basata su estrazione del 10/01/2026)",1,,vbBlue,vbWhite
For r = 1 To 10
p1 = Estratto(fin, r, 1)
p5 = Estratto(fin, r, 5)
If p1 > 0 And p5 > 0 Then
d1 = Decina(p1)
d5 = Decina(p5)
u5 = p5 Mod 10
somma = d1 + d5 + u5
fgr = Figura(somma)

' Calcolo numeri della serie
For k = 1 To 20 : n(k) = 0 : Next
cont = 1
For i = 0 To 8 : n(cont) = (i * 10) + fgr : cont = cont + 1 : Next
If fgr = 9 Then
For i = 1 To 9 : n(cont) = i : cont = cont + 1 : Next
Else
For i = 0 To 9 : n(cont) = (fgr * 10) + i : cont = cont + 1 : Next
End If
Call EliminaRipetuti

Scrivi NomeRuota(r) & ": " & StringaNumeri
End If
Next
End Sub

Scusa, non funziona, mi da errore. Puoi provare?

 

[Pandit]

l'ho provato, e funziona, questa volta da anche le previsioni...fatto molto bene ..

 

[azzarola]

Si ma 18 numeri come li giochi?

 

[Pandit]

18 numeri 8 cinquine...
1) --> 1-2-3-4-5
2) --> 1-6-7-8-9
3) --> 1-10-11-12-13
4) --> 1-14-15-16-17
5) --> 2-6-10-14-18
6) --> 3-7-11-15-18
7) --> 4-8-12-16-18
8) --> 5-9-13-17-18

 

[margot]

salve nello script cosa bisogna cambiare per vedere i risultati precedenti?

 

[LoneWolf]

salve nello script cosa bisogna cambiare per vedere i risultati precedenti?

Salve Margot , io penso che Tu vuoi vedere i pronostici corrispondenti ?
segui la modifica : Seleziona la riga: Call EliminaRipetuti

Call EliminaRipetuti
ruote(1) = r

' ------------------------------------------------------------------------ Inizio inserimento
' test per Scrivere il pronostico
Scrivi " Ruota" & r
Scrivi NomeRuota(r) & ": " & StringaNumeri
' ------------------------------------------------------------------------ Fine Inserimento

Spero sia Chiaro, Altrimenti chiedi cosa non va'

Buona Giornata

 

[LoneWolf]

18 numeri 8 cinquine...
1) --> 1-2-3-4-5
2) --> 1-6-7-8-9
3) --> 1-10-11-12-13
4) --> 1-14-15-16-17
5) --> 2-6-10-14-18
6) --> 3-7-11-15-18
7) --> 4-8-12-16-18
8) --> 5-9-13-17-18

Scusa Pandit ma con questa riduzione e' almeno garantito Terno ; Penso che sia solo per Gli Ambi ..

Buona Giornata

 

[margot]

Salve Margot , io penso che Tu vuoi vedere i pronostici corrispondenti ?
segui la modifica : Seleziona la riga: Call EliminaRipetuti

Call EliminaRipetuti
ruote(1) = r

' ------------------------------------------------------------------------ Inizio inserimento
' test per Scrivere il pronostico
Scrivi " Ruota" & r
Scrivi NomeRuota(r) & ": " & StringaNumeri
' ------------------------------------------------------------------------ Fine Inserimento

Spero sia Chiaro, Altrimenti chiedi cosa non va'

Buona Giornata

purtroppo sono scarsa ho sostituito e non mi funziona, mi potresti mettere lo script completo? grazie per la pazienza....

 

[Pandit]

Combinazioni Ridotte:

1) --> 1-2-3-4-5-6
2) --> 1-2-7-8-9-10
3) --> 1-2-11-12-13-14
4) --> 1-2-15-16-17-18
5) --> 3-4-7-8-11-12
6) --> 3-4-9-10-13-14
7) --> 3-5-7-9-15-16
8) --> 3-5-8-10-17-18
9) --> 3-6-11-13-15-17
10) --> 3-6-12-14-16-18
11) --> 4-5-11-13-16-18
12) --> 4-5-12-14-15-17
13) --> 4-6-7-9-17-18
14) --> 4-6-8-10-15-16
15) --> 5-6-7-8-13-14
16) --> 5-6-9-10-11-12
17) --> 7-10-11-14-15-18
18) --> 7-10-12-13-16-17
19) --> 8-9-11-14-16-17
20) --> 8-9-12-13-15-18

Numero combinazioni ridotte: 20
Numero combinazioni integrale: 18564

 

[LoneWolf]

Salve Margot , io penso che Tu vuoi vedere i pronostici corrispondenti ?
segui la modifica : Seleziona la riga: Call EliminaRipetuti

Call EliminaRipetuti
ruote(1) = r

' ------------------------------------------------------------------------ Inizio inserimento
' test per Scrivere il pronostico
Scrivi " Ruota" & r
Scrivi NomeRuota(r) & ": " & StringaNumeri
' ------------------------------------------------------------------------ Fine Inserimento

Spero sia Chiaro, Altrimenti chiedi cosa non va'

Buona Giornata

Ciao Margot, Ho tutti e Due gli Script, non so quale non ti funziona, incomincia ad eseguire Questo ( Secondo con Spiegazione )
L' ho nominato: Trovato_da_MauroEmme.ls

'
' https://forum.lottoced.com/threads/script-per-un-metodo-trovato-qui.2226220/#post-2787433
'
' Script: Trovato_da_MauroEmme.ls
'
Option Explicit
Sub Main
Dim n(20), ruote(1)
Dim ini, fin, es, r, p1, p5, d1, d5, u5, somma, fgr
Dim k, i, cont, colpi, retestr, retsortita, retrit, retid
Dim spesa, Vincita, bilancio

colpi = 9
spesa = 0
Vincita = 0

ini = EstrazioneFin - 100
fin = EstrazioneFin

' --- INIZIO SEZIONE SPIEGAZIONE METODO ---
Scrivi "LOGICA DI CALCOLO DEL METODO 2026",1,0,vbYellow,vbBlack
Scrivi ""
Scrivi "1. Rilevamento: Si prendono il 1° e il 5° estratto di ogni ruota."
Scrivi "2. Calcolo Somma: Si somma la Decina del 1°, la Decina del 5° e l'Unità del 5°."
Scrivi "3. Determinazione Figura: Si calcola la 'Figura' del risultato (somma delle cifre fino a 1-9)."
Scrivi "4. Generazione Lunghetta: Si uniscono due serie numeriche:"
Scrivi " - La Cadenza della Figura (es. se Figura è 4: 4, 14, 24, 34, 44, 54, 64, 74, 84)"
Scrivi " - La Decina della Figura (es. se Figura è 4: 40, 41, 42, 43, 44, 45, 46, 47, 48, 49)"
Scrivi "5. Risultato: Una lunghetta filtrata dai duplicati per la giocata di Ambo e superiori."
Scrivi "------------------------------------------------------------"
' --- FINE SEZIONE SPIEGAZIONE METODO ---

Scrivi "REPORT COMPLETO REDDITIVITA' 2026",1
Scrivi "Giocata: 4 Euro totali su 18/19 numeri per 9 colpi"
Scrivi "------------------------------------------------------------"

For es = ini To fin
For r = 1 To 10
p1 = Estratto(es, r, 1)
p5 = Estratto(es, r, 5)

If p1 > 0 And p5 > 0 Then
d1 = Decina(p1)
d5 = Decina(p5)
u5 = p5 Mod 10
somma = d1 + d5 + u5
fgr = Figura(somma)

For k = 1 To 20 : n(k) = 0 : Next
cont = 1
' Inserimento Cadenza
For i = 0 To 8 : n(cont) = (i * 10) + fgr : cont = cont + 1 : Next
' Inserimento Decina
If fgr = 9 Then
For i = 1 To 9 : n(cont) = i : cont = cont + 1 : Next
Else
For i = 0 To 9 : n(cont) = (fgr * 10) + i : cont = cont + 1 : Next
End If
Call EliminaRipetuti
ruote(1) = r

' ------------------------------------------------------------------------ Inizio inserimento
' test per Scrivere il pronostico
Scrivi " Ruota" & r
Scrivi NomeRuota(r) & ": " & StringaNumeri
' ------------------------------------------------------------------------ Fine Inserimento

spesa = spesa + 4

' Verifica Esiti (Ambo = 1.60€, Terno = 50€, Quaterna = 180€, Cinquina = 640€)
If VerificaEsito(n, ruote, es + 1, 2, colpi, , retsortita, retrit, retestr, retid) Then
Vincita = Vincita + 1.60
If VerificaEsito(n, ruote, es + 1, 3, colpi, , retsortita, retrit, retestr, retid) Then Vincita = Vincita + 50.00
If VerificaEsito(n, ruote, es + 1, 4, colpi, , retsortita, retrit, retestr, retid) Then Vincita = Vincita + 180.00
If VerificaEsito(n, ruote, es + 1, 5, colpi, , retsortita, retrit, retestr, retid) Then Vincita = Vincita + 640.00
End If
End If
Next
If ScriptInterrotto Then Exit For
Next

bilancio = Vincita - spesa
Scrivi "BILANCIO FINALE AGGIORNATO AL 13 GENNAIO 2026",1
Scrivi "Spesa: " & Round(spesa, 2) & " € | Vincita: " & Round(Vincita, 2) & " €"
Scrivi "Utile Netto: " & Round(bilancio, 2) & " €",1,,vbGreen

Scrivi ""
Scrivi "PROSSIME GIOCATE (Valide dal 13/01/2026):",1,,vbBlue,vbWhite
Scrivi "PROSSIMA GIOCATA CONSIGLIATA (Basata su estrazione del 10/01/2026)",1,,vbBlue,vbWhite
For r = 1 To 10
p1 = Estratto(fin, r, 1)
p5 = Estratto(fin, r, 5)
If p1 > 0 And p5 > 0 Then
d1 = Decina(p1)
d5 = Decina(p5)
u5 = p5 Mod 10
somma = d1 + d5 + u5
fgr = Figura(somma)

' Calcolo numeri della serie
For k = 1 To 20 : n(k) = 0 : Next
cont = 1
For i = 0 To 8 : n(cont) = (i * 10) + fgr : cont = cont + 1 : Next
If fgr = 9 Then
For i = 1 To 9 : n(cont) = i : cont = cont + 1 : Next
Else
For i = 0 To 9 : n(cont) = (fgr * 10) + i : cont = cont + 1 : Next
End If
Call EliminaRipetuti

Scrivi NomeRuota(r) & ": " & StringaNumeri
End If
Next
End Sub
'

________________________________________________________________ Il Secondo Script : Doppio_terni.ls


'
' Script: Doppio_terni.ls Data: 17 Gennaio 2026
'
Option Explicit
Sub Main
Dim n(20),ruote(1)
Dim ini,fin,es,r,p1,p5,d1,d5,u5,somma,fgr
Dim k,i,cont,colpi,retestr,retsortita,retrit,retid
Dim spesa,Vincita,bilancio

colpi = 9
spesa = 0
Vincita = 0

ini = EstrazioneFin - 10
fin = EstrazioneFin

Scrivi "REPORT COMPLETO REDDITIVITA' 2026: AMBO, TERNO, QUATERNA, CINQUINA",1
Scrivi "Giocata: 4 Euro totali (1 Euro per sorte) su 18 numeri",1
Scrivi "------------------------------------------------------------"

For es = ini To fin
For r = 1 To 10
p1 = Estratto(es,r,1)
p5 = Estratto(es,r,5)

If p1 > 0 And p5 > 0 Then
d1 = Decina(p1)
d5 = Decina(p5)
u5 = p5 Mod 10
somma = d1 + d5 + u5
fgr = Figura(somma)

For k = 1 To 20 : n(k) = 0 : Next
cont = 1
For i = 0 To 8 : n(cont) =(i * 10) + fgr : cont = cont + 1 : Next
If fgr = 9 Then
For i = 1 To 9 : n(cont) = i : cont = cont + 1 : Next
Else
For i = 0 To 9 : n(cont) =(fgr * 10) + i : cont = cont + 1 : Next
End If
Call EliminaRipetuti
ruote(1) = r

' test per Scrivere il pronostico
Scrivi "Ruota Num: " & r
Scrivi NomeRuota(r) & ": " & StringaNumeri

' COSTO FISSO: 4 Euro (1 per Ambo, 1 Terno, 1 Quaterna, 1 Cinquina)
spesa = spesa + 4

' VERIFICA AMBO (Premio netto stimato: 1,60 Euro)
If VerificaEsito(n,ruote,es + 1,2,colpi,,retsortita,retrit,retestr,retid) Then
Vincita = Vincita + 1.60
Scrivi " Vincita " & Vincita,1,1,vbYellow
Scrivi DataEstrazione(es) & " " & NomeRuota(r) & " - AMBO al colpo " & retrit

' VERIFICA TERNO (Premio netto stimato: 50,00 Euro)
If VerificaEsito(n,ruote,es + 1,3,colpi,,retsortita,retrit,retestr,retid) Then
Vincita = Vincita + 50.00
Scrivi " Vincita " & Vincita,1,1,vbYellow
Scrivi "*** TERNO AL COLPO " & retrit & " ***",1,0,vbRed ' vbBlue
End If

' VERIFICA QUATERNA (Premio netto stimato: 180,00 Euro)
If VerificaEsito(n,ruote,es + 1,4,colpi,,retsortita,retrit,retestr,retid) Then
Vincita = Vincita + 180.00
Scrivi " Vincita " & Vincita,1,1,vbYellow
Scrivi "!!! QUATERNA AL COLPO " & retrit & " !!!",1,0,vbRed
End If

' VERIFICA CINQUINA (Premio netto stimato: 640,00 Euro)
If VerificaEsito(n,ruote,es + 1,5,colpi,,retsortita,retrit,retestr,retid) Then
Vincita = Vincita + 640.00
Scrivi " Vincita " & Vincita,1,1,vbYellow
Scrivi "!!!!! CINQUINA STORICA AL COLPO " & retrit & " !!!!!",1,1,vbYellow,vbBlack
End If
End If
End If
Next
If ScriptInterrotto Then Exit For
Next

bilancio = Vincita - spesa
Scrivi "------------------------------------------------------------",1
Scrivi "BILANCIO FINALE GENNAIO 2026",1
Scrivi "Spesa Totale: " & Round(spesa,2) & " €"
Scrivi "Vincita Totale: " & Round(Vincita,2) & " €"
Scrivi "Utile Netto: " & Round(bilancio,2) & " €",1
If spesa > 0 Then Scrivi "ROI Metodo: " & Round((Vincita/spesa)*100,2) & "%"
End Sub

Non fare Confusione, c'e' anche sul secondo: Doppio_Terni.ls una variante per il colore delle Print

Buon Lavoro e Buona Domenica !

 

[LoneWolf]

salve nello script cosa bisogna cambiare per vedere i risultati precedenti?

La Prima Modifica l'ho inserita nello script, nominando Script: MauroEmme.ls

' ------------------------------------------------------------------------ Inizio inserimento
' test per Scrivere il pronostico
Scrivi " Ruota" & r
Scrivi NomeRuota(r) & ": " & StringaNumeri
' ------------------------------------------------------------------------ Fine Inserimento

Listato Completo:

'
' https://forum.lottoced.com/threads/script-per-un-metodo-trovato-qui.2226220/#post-2787433
'
' Script: MauroEmme.ls
'
Option Explicit
Sub Main
Dim n(20), ruote(1)
Dim ini, fin, es, r, p1, p5, d1, d5, u5, somma, fgr
Dim k, i, cont, colpi, retestr, retsortita, retrit, retid
Dim spesa, Vincita, bilancio

colpi = 9
spesa = 0
Vincita = 0

ini = EstrazioneFin - 100
fin = EstrazioneFin

Scrivi "REPORT COMPLETO REDDITIVITA' 2026: AMBO, TERNO, QUATERNA, CINQUINA",1
Scrivi "Giocata: 4 Euro totali (1 Euro per sorte) su 18 numeri",1
Scrivi "------------------------------------------------------------"

For es = ini To fin
For r = 1 To 10
p1 = Estratto(es, r, 1)
p5 = Estratto(es, r, 5)

If p1 > 0 And p5 > 0 Then
d1 = Decina(p1)
d5 = Decina(p5)
u5 = p5 Mod 10
somma = d1 + d5 + u5
fgr = Figura(somma)

For k = 1 To 20 : n(k) = 0 : Next
cont = 1
For i = 0 To 8 : n(cont) = (i * 10) + fgr : cont = cont + 1 : Next
If fgr = 9 Then
For i = 1 To 9 : n(cont) = i : cont = cont + 1 : Next
Else
For i = 0 To 9 : n(cont) = (fgr * 10) + i : cont = cont + 1 : Next
End If
Call EliminaRipetuti
ruote(1) = r

' ------------------------------------------------------------------------ Inizio inserimento
' test per Scrivere il pronostico
Scrivi " Ruota" & r
Scrivi NomeRuota(r) & ": " & StringaNumeri
' ------------------------------------------------------------------------ Fine Inserimento

' COSTO FISSO: 4 Euro (1 per Ambo, 1 Terno, 1 Quaterna, 1 Cinquina)
spesa = spesa + 4

' VERIFICA AMBO (Premio netto stimato: 1,60 Euro)
If VerificaEsito(n, ruote, es + 1, 2, colpi, , retsortita, retrit, retestr, retid) Then
Vincita = Vincita + 1.60
Scrivi DataEstrazione(es) & " " & NomeRuota(r) & " - AMBO al colpo " & retrit

' VERIFICA TERNO (Premio netto stimato: 50,00 Euro)
If VerificaEsito(n, ruote, es + 1, 3, colpi, , retsortita, retrit, retestr, retid) Then
Vincita = Vincita + 50.00
Scrivi "*** TERNO CORRERE AL COLPO " & retrit & " ***",1,0,vbBlue
End If

' VERIFICA QUATERNA (Premio netto stimato: 180,00 Euro)
If VerificaEsito(n, ruote, es + 1, 4, colpi, , retsortita, retrit, retestr, retid) Then
Vincita = Vincita + 180.00
Scrivi "!!! QUATERNA AL COLPO " & retrit & " !!!",1,0,vbRed
End If

' VERIFICA CINQUINA (Premio netto stimato: 640,00 Euro)
If VerificaEsito(n, ruote, es + 1, 5, colpi, , retsortita, retrit, retestr, retid) Then
Vincita = Vincita + 640.00
Scrivi "!!!!! CINQUINA STORICA AL COLPO " & retrit & " !!!!!",1,1,vbYellow, vbBlack
End If
End If
End If
Next
If ScriptInterrotto Then Exit For
Next

bilancio = Vincita - spesa
Scrivi "------------------------------------------------------------",1
Scrivi "BILANCIO FINALE GENNAIO 2026",1
Scrivi "Spesa Totale: " & Round(spesa, 2) & " €"
Scrivi "Vincita Totale: " & Round(Vincita, 2) & " €"
Scrivi "Utile Netto: " & Round(bilancio, 2) & " €",1
If spesa > 0 Then Scrivi "ROI Metodo: " & Round((Vincita/spesa)*100, 2) & "%"
End Sub
'
Spero possa fare girare anche questo !

Un mio parere : Questo programmino ha una funzione Dimostrativa, penso; la piu ridotta esecuzione del Sistema ( abbiamo i vari esempi
nei Post di Pandit seguenti )
devono essere non renumerativi o meglio coprono poco le possibilita' per Ambi, figurarsi Terni e Quaterne !
Buona Giornata

 

[Mauro-emme]

' Script: Trovato_da_MauroEmme.ls
'
Option Explicit
Sub Main
Dim n(20), ruote(1)
Dim ini, fin, es, r, p1, p5, d1, d5, u5, somma, fgr
Dim k, i, cont, colpi, retestr, retsortita, retrit, retid
Dim spesa, Vincita, bilancio

colpi = 9
spesa = 0
Vincita = 0

ini = EstrazioneFin - 100
fin = EstrazioneFin

' --- INIZIO SEZIONE SPIEGAZIONE METODO ---
Scrivi "LOGICA DI CALCOLO DEL METODO 2026",1,0,vbYellow,vbBlack
Scrivi ""
Scrivi "1. Rilevamento: Si prendono il 1° e il 5° estratto di ogni ruota."
Scrivi "2. Calcolo Somma: Si somma la Decina del 1°, la Decina del 5° e l'Unità del 5°."
Scrivi "3. Determinazione Figura: Si calcola la 'Figura' del risultato (somma delle cifre fino a 1-9)."
Scrivi "4. Generazione Lunghetta: Si uniscono due serie numeriche:"
Scrivi " - La Cadenza della Figura (es. se Figura è 4: 4, 14, 24, 34, 44, 54, 64, 74, 84)"
Scrivi " - La Decina della Figura (es. se Figura è 4: 40, 41, 42, 43, 44, 45, 46, 47, 48, 49)"
Scrivi "5. Risultato: Una lunghetta filtrata dai duplicati per la giocata di Ambo e superiori."
Scrivi "------------------------------------------------------------"
' --- FINE SEZIONE SPIEGAZIONE METODO ---

Scrivi "REPORT COMPLETO REDDITIVITA' 2026",1
Scrivi "Giocata: 4 Euro totali su 18/19 numeri per 9 colpi"
Scrivi "------------------------------------------------------------"

For es = ini To fin
For r = 1 To 10
p1 = Estratto(es, r, 1)
p5 = Estratto(es, r, 5)

If p1 > 0 And p5 > 0 Then
d1 = Decina(p1)
d5 = Decina(p5)
u5 = p5 Mod 10
somma = d1 + d5 + u5
fgr = Figura(somma)

For k = 1 To 20 : n(k) = 0 : Next
cont = 1
' Inserimento Cadenza
For i = 0 To 8 : n(cont) = (i * 10) + fgr : cont = cont + 1 : Next
' Inserimento Decina
If fgr = 9 Then
For i = 1 To 9 : n(cont) = i : cont = cont + 1 : Next
Else
For i = 0 To 9 : n(cont) = (fgr * 10) + i : cont = cont + 1 : Next
End If
Call EliminaRipetuti
ruote(1) = r

' ------------------------------------------------------------------------ Inizio inserimento
' test per Scrivere il pronostico
Scrivi " Ruota" & r
Scrivi NomeRuota(r) & ": " & StringaNumeri
' ------------------------------------------------------------------------ Fine Inserimento

spesa = spesa + 4

' Verifica Esiti (Ambo = 1.60€, Terno = 50€, Quaterna = 180€, Cinquina = 640€)
If VerificaEsito(n, ruote, es + 1, 2, colpi, , retsortita, retrit, retestr, retid) Then
Vincita = Vincita + 1.60
If VerificaEsito(n, ruote, es + 1, 3, colpi, , retsortita, retrit, retestr, retid) Then Vincita = Vincita + 50.00
If VerificaEsito(n, ruote, es + 1, 4, colpi, , retsortita, retrit, retestr, retid) Then Vincita = Vincita + 180.00
If VerificaEsito(n, ruote, es + 1, 5, colpi, , retsortita, retrit, retestr, retid) Then Vincita = Vincita + 640.00
End If
End If
Next
If ScriptInterrotto Then Exit For
Next

bilancio = Vincita - spesa
Scrivi "BILANCIO FINALE AGGIORNATO AL 13 GENNAIO 2026",1
Scrivi "Spesa: " & Round(spesa, 2) & " € | Vincita: " & Round(Vincita, 2) & " €"
Scrivi "Utile Netto: " & Round(bilancio, 2) & " €",1,,vbGreen

Scrivi ""
Scrivi "PROSSIME GIOCATE (Valide dal 13/01/2026):",1,,vbBlue,vbWhite
Scrivi "PROSSIMA GIOCATA CONSIGLIATA (Basata su estrazione del 10/01/2026)",1,,vbBlue,vbWhite
For r = 1 To 10
p1 = Estratto(fin, r, 1)
p5 = Estratto(fin, r, 5)
If p1 > 0 And p5 > 0 Then
d1 = Decina(p1)
d5 = Decina(p5)
u5 = p5 Mod 10
somma = d1 + d5 + u5
fgr = Figura(somma)

' Calcolo numeri della serie
For k = 1 To 20 : n(k) = 0 : Next
cont = 1
For i = 0 To 8 : n(cont) = (i * 10) + fgr : cont = cont + 1 : Next
If fgr = 9 Then
For i = 1 To 9 : n(cont) = i : cont = cont + 1 : Next
Else
For i = 0 To 9 : n(cont) = (fgr * 10) + i : cont = cont + 1 : Next
End If
Call EliminaRipetuti

Scrivi NomeRuota(r) & ": " & StringaNumeri
End If
Next
End Sub

Option Explicit
Sub Main
Dim n, ruote(1)
Dim ini, fin, es, r, p1, p5, d1, d5, u5, somma, fgr
Dim k, i, cont, colpi, retestr, retsortita, retrit, retid
Dim spesa, Vincita, bilancio

colpi = 9
spesa = 0
Vincita = 0

ini = EstrazioneFin - 100
fin = EstrazioneFin

' --- INIZIO SEZIONE SPIEGAZIONE METODO ---
Scrivi "LOGICA DI CALCOLO DEL METODO 2026",1,0,vbYellow,vbBlack
Scrivi ""
Scrivi "1. Rilevamento: Si prendono il 1° e il 5° estratto di ogni ruota."
Scrivi "2. Calcolo Somma: Si somma la Decina del 1°, la Decina del 5° e l'Unità del 5°."
Scrivi "3. Determinazione Figura: Si calcola la 'Figura' del risultato."
Scrivi "------------------------------------------------------------"

For es = ini To fin
For r = 1 To 10
p1 = Estratto(es, r, 1)
p5 = Estratto(es, r, 5)

If p1 > 0 And p5 > 0 Then
d1 = Decina(p1)
d5 = Decina(p5)
u5 = p5 Mod 10
somma = d1 + d5 + u5
fgr = Figura(somma)

ReDim n(0) ' Reset array dinamico
cont = 0

' Inserimento Cadenza
For i = 0 To 8
cont = cont + 1
ReDim Preserve n(cont)
n(cont) = (i * 10) + fgr
Next

' Inserimento Decina
If fgr = 9 Then
For i = 1 To 9
cont = cont + 1
ReDim Preserve n(cont)
n(cont) = i
Next
Else
For i = 0 To 9
cont = cont + 1
ReDim Preserve n(cont)
n(cont) = (fgr * 10) + i
Next
End If

Call EliminaRipetuti
ruote(1) = r

spesa = spesa + 4

' Verifica Esiti
If VerificaEsito(n, ruote, es + 1, 2, colpi, , retsortita, retrit, retestr, retid) Then
Vincita = Vincita + 1.60
If VerificaEsito(n, ruote, es + 1, 3, colpi, , retsortita, retrit, retestr, retid) Then Vincita = Vincita + 50.00
If VerificaEsito(n, ruote, es + 1, 4, colpi, , retsortita, retrit, retestr, retid) Then Vincita = Vincita + 180.00
If VerificaEsito(n, ruote, es + 1, 5, colpi, , retsortita, retrit, retestr, retid) Then Vincita = Vincita + 640.00
End If
End If
Next
If ScriptInterrotto Then Exit For
Next

bilancio = Vincita - spesa
Scrivi "BILANCIO FINALE AGGIORNATO AL 18 GENNAIO 2026",1
Scrivi "Spesa: " & Round(spesa, 2) & " € | Vincita: " & Round(Vincita, 2) & " €"
Scrivi "Utile Netto: " & Round(bilancio, 2) & " €",1,,vbGreen

Scrivi ""
Scrivi "PROSSIME GIOCATE (Valide dal 18/01/2026):",1,,vbBlue,vbWhite
For r = 1 To 10
p1 = Estratto(fin, r, 1)
p5 = Estratto(fin, r, 5)
If p1 > 0 And p5 > 0 Then
d1 = Decina(p1)
d5 = Decina(p5)
u5 = p5 Mod 10
somma = d1 + d5 + u5
fgr = Figura(somma)

ReDim n(0)
cont = 0
For i = 0 To 8
cont = cont + 1
ReDim Preserve n(cont)
n(cont) = (i * 10) + fgr
Next
If fgr = 9 Then
For i = 1 To 9
cont = cont + 1
ReDim Preserve n(cont)
n(cont) = i
Next
Else
For i = 0 To 9
cont = cont + 1
ReDim Preserve n(cont)
n(cont) = (fgr * 10) + i
Next
End If
Call EliminaRipetuti
Scrivi NomeRuota(r) & ": " & StringaNumeri
End If
Next
End Sub

-----------

• StringaNumeri: Adesso include l'array n come argomento. Senza questo, il software non sa quali numeri deve trasformare in testo.
• EliminaRipetuti: Anche qui è stato aggiunto il riferimento all'array.
• ReDim n: Ho trasformato l'array in dinamico. Questo permette di gestire meglio il numero variabile di elementi (18 o 19 a seconda della figura) dopo la rimozione dei duplicati.

 

[Mauro-emme]

Option Explicit
Sub Main
Dim n(20), ruote(1)
Dim ini, fin, es, r, p1, p5, d1, d5, u5, somma, fgr
Dim k, i, cont, colpi, retestr, retsortita, retrit, retid
Dim spesa, Vincita, bilancio

colpi = 9
spesa = 0
Vincita = 0

ini = EstrazioneFin - 100
fin = EstrazioneFin

Scrivi "REPORT COMPLETO REDDITIVITA' 2026: AMBO, TERNO, QUATERNA, CINQUINA",1
Scrivi "Giocata: 4 Euro totali (1 Euro per sorte) su 18 numeri",1
Scrivi "------------------------------------------------------------"

For es = ini To fin
For r = 1 To 10
p1 = Estratto(es, r, 1)
p5 = Estratto(es, r, 5)

If p1 > 0 And p5 > 0 Then
d1 = Decina(p1)
d5 = Decina(p5)
u5 = p5 Mod 10
somma = d1 + d5 + u5
fgr = Figura(somma)

For k = 1 To 20 : n(k) = 0 : Next
cont = 1
For i = 0 To 8 : n(cont) = (i * 10) + fgr : cont = cont + 1 : Next
If fgr = 9 Then
For i = 1 To 9 : n(cont) = i : cont = cont + 1 : Next
Else
For i = 0 To 9 : n(cont) = (fgr * 10) + i : cont = cont + 1 : Next
End If
Call EliminaRipetuti
ruote(1) = r

' ------------------------------------------------------------------------ Inizio inserimento
' test per Scrivere il pronostico
Scrivi " Ruota" & r
Scrivi NomeRuota(r) & ": " & StringaNumeri
' ------------------------------------------------------------------------ Fine Inserimento

' COSTO FISSO: 4 Euro (1 per Ambo, 1 Terno, 1 Quaterna, 1 Cinquina)
spesa = spesa + 4

' VERIFICA AMBO (Premio netto stimato: 1,60 Euro)
If VerificaEsito(n, ruote, es + 1, 2, colpi, , retsortita, retrit, retestr, retid) Then
Vincita = Vincita + 1.60
Scrivi DataEstrazione(es) & " " & NomeRuota(r) & " - AMBO al colpo " & retrit

' VERIFICA TERNO (Premio netto stimato: 50,00 Euro)
If VerificaEsito(n, ruote, es + 1, 3, colpi, , retsortita, retrit, retestr, retid) Then
Vincita = Vincita + 50.00
Scrivi "*** TERNO CORRERE AL COLPO " & retrit & " ***",1,0,vbBlue
End If

' VERIFICA QUATERNA (Premio netto stimato: 180,00 Euro)
If VerificaEsito(n, ruote, es + 1, 4, colpi, , retsortita, retrit, retestr, retid) Then
Vincita = Vincita + 180.00
Scrivi "!!! QUATERNA AL COLPO " & retrit & " !!!",1,0,vbRed
End If

' VERIFICA CINQUINA (Premio netto stimato: 640,00 Euro)
If VerificaEsito(n, ruote, es + 1, 5, colpi, , retsortita, retrit, retestr, retid) Then
Vincita = Vincita + 640.00
Scrivi "!!!!! CINQUINA STORICA AL COLPO " & retrit & " !!!!!",1,1,vbYellow, vbBlack
End If
End If
End If
Next
If ScriptInterrotto Then Exit For
Next

bilancio = Vincita - spesa
Scrivi "------------------------------------------------------------",1
Scrivi "BILANCIO FINALE GENNAIO 2026",1
Scrivi "Spesa Totale: " & Round(spesa, 2) & " €"
Scrivi "Vincita Totale: " & Round(Vincita, 2) & " €"
Scrivi "Utile Netto: " & Round(bilancio, 2) & " €",1
If spesa > 0 Then Scrivi "ROI Metodo: " & Round((Vincita/spesa)*100, 2) & "%"
End Sub

Option Explicit
Sub Main
Dim n, ruote(1)
Dim ini, fin, es, r, p1, p5, d1, d5, u5, somma, fgr
Dim k, i, cont, colpi, retestr, retsortita, retrit, retid
Dim spesa, Vincita, bilancio

colpi = 9
spesa = 0
Vincita = 0

ini = EstrazioneFin - 100
fin = EstrazioneFin

Scrivi "REPORT COMPLETO REDDITIVITA' 2026: AMBO, TERNO, QUATERNA, CINQUINA",1
Scrivi "Giocata: 4 Euro totali (1 Euro per sorte) su 18/19 numeri",1
Scrivi "------------------------------------------------------------"

For es = ini To fin
For r = 1 To 10
p1 = Estratto(es, r, 1)
p5 = Estratto(es, r, 5)

If p1 > 0 And p5 > 0 Then
d1 = Decina(p1)
d5 = Decina(p5)
u5 = p5 Mod 10
somma = d1 + d5 + u5
fgr = Figura(somma)

' Inizializzazione array dinamico
ReDim n(0)
cont = 0

' Inserimento Cadenza
For i = 0 To 8
cont = cont + 1
ReDim Preserve n(cont)
n(cont) = (i * 10) + fgr
Next

' Inserimento Decina
If fgr = 9 Then
For i = 1 To 9
cont = cont + 1
ReDim Preserve n(cont)
n(cont) = i
Next
Else
For i = 0 To 9
cont = cont + 1
ReDim Preserve n(cont)
n(cont) = (fgr * 10) + i
Next
End If

Call EliminaRipetuti ' <--- CORRETTO: aggiunto
ruote(1) = r

' Scrive il pronostico calcolato
' Scrivi NomeRuota(r) & ": " & StringaNumeri ' <--- CORRETTO: aggiunto

spesa = spesa + 4

' VERIFICA AMBO
If VerificaEsito(n, ruote, es + 1, 2, colpi, , retsortita, retrit, retestr, retid) Then
Vincita = Vincita + 1.60
Scrivi DataEstrazione(es) & " " & NomeRuota(r) & " - AMBO al colpo " & retrit

' VERIFICA TERNO
If VerificaEsito(n, ruote, es + 1, 3, colpi, , retsortita, retrit, retestr, retid) Then
Vincita = Vincita + 50.00
Scrivi "*** TERNO AL COLPO " & retrit & " ***",1,0,vbBlue
End If

' VERIFICA QUATERNA
If VerificaEsito(n, ruote, es + 1, 4, colpi, , retsortita, retrit, retestr, retid) Then
Vincita = Vincita + 180.00
Scrivi "!!! QUATERNA AL COLPO " & retrit & " !!!",1,0,vbRed
End If

' VERIFICA CINQUINA
If VerificaEsito(n, ruote, es + 1, 5, colpi, , retsortita, retrit, retestr, retid) Then
Vincita = Vincita + 640.00
Scrivi "!!!!! CINQUINA AL COLPO " & retrit & " !!!!!",1,1,vbYellow, vbBlack
End If
End If
End If
Next
If ScriptInterrotto Then Exit For
Next

bilancio = Vincita - spesa
Scrivi "------------------------------------------------------------",1
Scrivi "BILANCIO FINALE AGGIORNATO AL 18 GENNAIO 2026",1
Scrivi "Spesa Totale: " & Round(spesa, 2) & " €"
Scrivi "Vincita Totale: " & Round(Vincita, 2) & " €"
Scrivi "Utile Netto: " & Round(bilancio, 2) & " €",1
If spesa > 0 Then Scrivi "ROI Metodo: " & Round((Vincita/spesa)*100, 2) & "%"
End Sub

• Call EliminaRipetuti: Deve essere Call EliminaRipetuti.
• StringaNumeri: Deve essere StringaNumeri.
• n(20): Hai dichiarato un array fisso di 20 elementi, ma quando usi EliminaRipetuti, il software preferisce array dinamici per gestire correttamente la riduzione dei numeri.