Novità

Script per un metodo trovato qui!

M

Mauro-emme

Member
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(n)
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
 
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(n)
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(n)

Scrivi NomeRuota(r) & ": " & StringaNumeri(n)
End If
Next
End Sub
 
Mauro-emme ha scritto:
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(n)
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(n)

Scrivi NomeRuota(r) & ": " & StringaNumeri(n)
End If
Next
End Sub
Clicca per espandere...
Scusa, non funziona, mi da errore. Puoi provare?
 
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
 
Ultima modifica:
margot ha scritto:
salve nello script cosa bisogna cambiare per vedere i risultati precedenti?
Clicca per espandere...

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

Call EliminaRipetuti(n)
ruote(1) = r

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

Spero sia Chiaro, Altrimenti chiedi cosa non va'

Buona Giornata
 
Pandit ha scritto:
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
Clicca per espandere...
Scusa Pandit ma con questa riduzione e' almeno garantito Terno ; Penso che sia solo per Gli Ambi ..

Buona Giornata
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 16 gennaio 2026
    Bari
    77
    44
    68
    87
    04
    Cagliari
    36
    32
    18
    51
    19
    Firenze
    55
    57
    43
    17
    49
    Genova
    61
    78
    31
    41
    50
    Milano
    17
    04
    29
    25
    03
    Napoli
    16
    31
    85
    20
    86
    Palermo
    36
    25
    66
    76
    03
    Roma
    65
    42
    41
    26
    15
    Torino
    86
    38
    67
    01
    17
    Venezia
    56
    84
    67
    60
    14
    Nazionale
    58
    56
    80
    77
    72
    Estrazione Simbolotto
    Bari
    35
    03
    19
    27
    36
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto