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