ore e ore e ore di programmazione

Aperto da Magicolotto, 13 Giugno, 2026, 13:14:52

Discussione precedente - Discussione successiva

0 Utenti e 1 Visitatore stanno visualizzando questa discussione.

Stampa
Vai giù Pagine1
Azioni

Magicolotto

13 Giugno, 2026, 13:14:52
ho inserito tutte le funzioni immaginabili quindi è  diventato ineguagliabile, non se ne  puo creare uno simile
IL SOFTWARE DI LISTATI  PIU COMPLETO AL MONDO
LAVORA ANCHE SUGLI ARCHIVI
10ELOTTOSERALE
SUPERENALOTTO
VINCICASA
EUROJACKPOT
MILLIONDAY

VI REGALO QUESTO SCRIPT  REALIZZATO CON MAGICOLOTTO PRO
PRIMA DAL MODULO RICERCA DEI SOMMATIVI ,  POI CON UN CLICK LO TRASFORMA  IN LISTATO PER MAGICOSCRIPT
Codice Seleziona
Option Explicit

' LISTATO GENERATO DA REPORT SOMMATIVA TOKEN
' Helper comuni richiamati da Include. Richiede: ..\Include\helper_crea_listati.txt

Includi "..\Include\helper_crea_listati.txt"

Sub Main()

    Dim qCicli, indiceMensile, colpi, sorteMin, sorteDettaglio, usaLunghetta
    Dim meseFiltro, usaUltimaMensile
    Dim aRuote, aRuoteEff, aRuoteCicli, usaRuoteCiclo
    Dim aCicli, qTrovati
    Dim aFormazioni
    Dim modoRange, interrotto, visualizzaAltri, sDettaglio

    PreparaFormazioni aFormazioni
    ScriviIntestazioneReportOriginale
    PreparaRuoteCicliReport aRuoteCicli
    usaRuoteCiclo = False
    meseFiltro = 0
    usaUltimaMensile = False
    indiceMensile = 3

    colpi = CLng(InputVal("Colpi di verifica?", "8"))
    ' La sorte minima di copertura resta fissa dal report.
    ' Non va cambiata a mano: per visualizzare gli esiti bassi usa sorteDettaglio.
    sorteMin = EuroJackpotRankCompat(5, 0)
    sDettaglio = InputVal("Esiti da visualizzare da quale risultato? 12=5+2, 11=5+1, 10=5+0, 9=4+2, 8=4+1, 7=3+2, 6=4+0, 5=2+2, 4=3+1, 3=3+0, 2=1+2, 1=2+1", "1")
    If Len(Trim(CStr(sDettaglio))) = 0 Then sDettaglio = "1"
    If Not IsNumeric(sDettaglio) Then sDettaglio = "1"
    sorteDettaglio = CLng(sDettaglio)
    If CLng(sorteDettaglio) < 1 Or CLng(sorteDettaglio) > 12 Then sorteDettaglio = "1"
    If CLng(sorteDettaglio) < CLng(sorteMin) Then
        visualizzaAltri = "SI"
    Else
        visualizzaAltri = "NO"
    End If
    usaLunghetta = UCase(InputVal("Lunghetta report? SI/NO", "NO"))

    If colpi <= 0 Then colpi = 8
    If InStr(1, NomeArchivio(), "EuroJackpot", vbTextCompare) > 0 Then
        ' EuroJackpot: sorteDettaglio è già stata scelta con input specifico 1..12.
    ElseIf InStr(1, NomeArchivio(), "10eLotto", vbTextCompare) > 0 Then
        sDettaglio = InputVal("Esiti da visualizzare da quale risultato? 10=DIECI, 9=NOVE, 8=OTTO, 7=SETTE, 6=SEI, 5=CINQUE, 4=QUATTRO, 3=TRE, 2=DUE", "2")
        If Len(Trim(CStr(sDettaglio))) = 0 Then sDettaglio = "2"
        sorteDettaglio = CLng(sDettaglio)
        If CLng(sorteDettaglio) < 2 Or CLng(sorteDettaglio) > 10 Then sorteDettaglio = 2
    Else
        sDettaglio = InputVal("Esiti da visualizzare da quale risultato? 6=SEI, 5=CINQUE/CINQUINA, 4=QUATTRO/QUATERNA, 3=TRE/TERNO, 2=DUE/AMBO", CStr(sorteMin))
        If Len(Trim(CStr(sDettaglio))) = 0 Then sDettaglio = CStr(sorteMin)
        sorteDettaglio = CLng(sDettaglio)
        If CLng(sorteDettaglio) < 2 Then sorteDettaglio = sorteMin
        If CLng(sorteDettaglio) > MaxSorteRiepilogoCompat() Then sorteDettaglio = sorteMin
    End If

    qCicli = 7
    modoRange = UCase(InputVal("Cicli da usare: R=esatti del report, S=personalizza range/date/mese/indice/cicli", "R"))
    If Len(Trim(CStr(modoRange))) = 0 Then modoRange = "R"
    PreparaCicliReport aCicli, qTrovati
    If modoRange = "R" And qTrovati > 0 Then
        qCicli = qTrovati
    Else
        usaRuoteCiclo = False
        ' In modalita S il range è libero: 0 = usa tutti i cicli trovati nel range.
        qCicli = 0
        RigeneraCicliDaParametri aCicli, qTrovati, qCicli, indiceMensile, meseFiltro, usaUltimaMensile, colpi, 0
    End If

    If qCicli <= 0 Then qCicli = qTrovati
    If indiceMensile < 0 Then indiceMensile = 0

    If CBool(usaRuoteCiclo) Then
        If UBound(aRuoteCicli) >= 1 Then
            aRuote = RuoteCicloToArray(aRuoteCicli(1))
        Else
            aRuote = ScegliRuoteConDefault("EJ")
            usaRuoteCiclo = False
        End If
    Else
        aRuote = ScegliRuoteConDefault("EJ")
    End If
    interrotto = False

    Scrivi "---------------------------------------------------"
    Scrivi "Nota: gli esiti vincenti vengono scritti con ScriviConColori se supportato dal motore."
    Scrivi "PARAMETRI EFFETTIVI LISTATO GENERATO:"
    Scrivi "Archivio: " & NomeArchivio() & " - " & EstrazioneIni() & " / " & EstrazioneFin()
    Scrivi "Cicli da report/effettivi: " & qTrovati
    If qTrovati > 0 Then Scrivi "Range effettivo: " & SoloData(aCicli(1)) & " / " & SoloData(aCicli(qTrovati))
    If CBool(usaUltimaMensile) Then
        Scrivi "Alla estrazione mensile: ultima"
    Else
        Scrivi "Alla estrazione mensile: " & indiceMensile
    End If
    If CLng(meseFiltro) > 0 Then Scrivi "Mese filtro cicli: " & meseFiltro
    Scrivi "Colpi: " & colpi
    If InStr(1, NomeArchivio(), "EuroJackpot", vbTextCompare) > 0 Then
        Scrivi "Tipo risultato minimo: " & NomeEuroJackpotRankCompat(sorteMin)
    Else
        Scrivi "Tipo risultato minimo: " & NomeSorteCompat(sorteMin)
    End If
    If InStr(1, NomeArchivio(), "EuroJackpot", vbTextCompare) > 0 Then
        Scrivi "Visualizza altri risultati: " & visualizzaAltri
        Scrivi "Esiti visualizzati da: " & NomeEuroJackpotRankCompat(sorteDettaglio)
    Else
        Scrivi "Esiti visualizzati da: " & NomeSorteCompat(sorteDettaglio)
    End If
    If CBool(usaRuoteCiclo) Then
        Scrivi "Ruote Gioco: ruota di rilevamento del ciclo/trigger"
    Else
        Scrivi "Ruote Gioco: " & RuoteToString(aRuote)
    End If
    Scrivi "Lunghetta report: " & usaLunghetta
    Scrivi "Regola token: da 1 a 10 formazioni, da 1 a 10 token per formazione"
    Scrivi "Gestione doppioni token: se due token producono lo stesso numero, il doppione viene scartato"
    Scrivi "---------------------------------------------------"

    If qTrovati = 0 Then
        Scrivi "Nessun ciclo disponibile con i parametri scelti."
        Exit Sub
    End If

    If qTrovati > 0 Then
        AvanzamentoElab 1, qTrovati * UBound(aFormazioni), 0
    End If
    DoEventsEx
    Scrivi "CICLI SELEZIONATI:"
    Dim c, listaCompatta
    listaCompatta = False
    If qTrovati > 60 Then
        listaCompatta = True
        Scrivi "Nota: lista cicli lunga (" & qTrovati & "); vengono stampati solo i primi 25 e gli ultimi 10 per non rallentare l'avvio."
    End If
    For c = 1 To qTrovati
        If (Not CBool(listaCompatta)) Or c <= 25 Or c > qTrovati - 10 Then
            If CBool(usaRuoteCiclo) And c <= UBound(aRuoteCicli) Then
                Scrivi "  " & c & ") " & SoloData(aCicli(c)) & "  id=" & aCicli(c) & "  ruota=" & aRuoteCicli(c)
            Else
                Scrivi "  " & c & ") " & SoloData(aCicli(c)) & "  id=" & aCicli(c)
            End If
        ElseIf c = 26 Then
            Scrivi "  ... cicli intermedi omessi nell'output ..."
        End If
    Next

    Dim copertiTotali, cicliCopertiTxt, maxPuntiReport
    copertiTotali = 0 : cicliCopertiTxt = Empty
    maxPuntiReport = MaxSorteRiepilogoCompat()
    ReDim copertiForm(UBound(aFormazioni))
    ReDim dueForm(UBound(aFormazioni))
    ReDim treForm(UBound(aFormazioni))
    ReDim quattroForm(UBound(aFormazioni))
    ReDim cinqueForm(UBound(aFormazioni))
    ReDim seiForm(UBound(aFormazioni))
    ReDim setteForm(UBound(aFormazioni))
    ReDim ottoForm(UBound(aFormazioni))
    ReDim noveForm(UBound(aFormazioni))
    ReDim dieciForm(UBound(aFormazioni))
    Dim totDue, totTre, totQuattro, totCinque, totSei, totSette, totOtto, totNove, totDieci
    totDue = 0 : totTre = 0 : totQuattro = 0 : totCinque = 0 : totSei = 0
    totSette = 0 : totOtto = 0 : totNove = 0 : totDieci = 0
    ReDim ejForm(UBound(aFormazioni), 12)
    ReDim ejTot(12)
    Dim progTot, progCur
    progTot = CLng(qTrovati) * CLng(UBound(aFormazioni))
    If progTot <= 0 Then progTot = 1
    progCur = 0
    AvanzamentoElab 1, progTot, 0
    DoEventsEx

    Scrivi ""
    Scrivi "DETTAGLIO ESITI " & "(ciclo per ciclo):"

    For c = 1 To qTrovati
        Dim idBase
        idBase = aCicli(c)
        If CBool(usaRuoteCiclo) And c <= UBound(aRuoteCicli) Then
            aRuoteEff = RuoteCicloToArray(aRuoteCicli(c))
        Else
            aRuoteEff = aRuote
        End If
        Scrivi ""
        If CBool(usaRuoteCiclo) And c <= UBound(aRuoteCicli) Then
            Scrivi "---- CICLO " & c & "  " & aRuoteCicli(c) & " (" & SoloData(idBase) & ") ----"
        Else
            Scrivi "---- CICLO " & c & "  (" & SoloData(idBase) & ") ----"
        End If

        Dim cicloCoperto
        cicloCoperto = False

        Dim f
        For f = 1 To UBound(aFormazioni)
            Dim nums
            nums = CalcolaFormazione(aFormazioni(f), idBase)
            Scrivi "Formazione " & f & ":  " & ArrayNumeriStr(nums)
            progCur = CLng((CLng(c) - 1) * CLng(UBound(aFormazioni)) + CLng(f))
            AvanzamentoElab 1, progTot, progCur
            DoEventsEx
            If ScriptInterrotto() Then
                interrotto = True
                Exit For
            End If

            Dim esiti, qEsiti
            qEsiti = VerificaNumeri(idBase, nums, aRuoteEff, colpi, sorteDettaglio, False, esiti)

            If qEsiti = 0 Then
                Scrivi "  Esito: nessuna uscita nei " & colpi & " colpi."
            Else
                Dim k, puntiEsito, formCoperta
                formCoperta = False
                For k = 1 To qEsiti
                    ScriviEsitoColorato "  Esito: " & esiti(k)
                    puntiEsito = PuntiDaNomeSorteCompat(esiti(k))
                    If InStr(1, NomeArchivio(), "EuroJackpot", vbTextCompare) > 0 Then
                        AggiornaConteggiEuroJackpot esiti(k), ejForm, f, ejTot
                    Else
                        AggiornaConteggiCompat10 esiti(k), dueForm(f), treForm(f), quattroForm(f), cinqueForm(f), seiForm(f), setteForm(f), ottoForm(f), noveForm(f), dieciForm(f), totDue, totTre, totQuattro, totCinque, totSei, totSette, totOtto, totNove, totDieci
                    End If
                    If CLng(puntiEsito) >= CLng(sorteMin) Then formCoperta = True
                Next
                If CBool(formCoperta) Then
                    cicloCoperto = True
                    copertiForm(f) = CLng(copertiForm(f)) + 1
                End If
            End If
            DoEventsEx
        Next
        If interrotto Then Exit For

        If usaLunghetta = "SI" Or usaLunghetta = "S" Then
            Dim lung
            lung = CreaLunghettaCiclo(aFormazioni, idBase)
            Scrivi "Lunghetta ciclo:  " & ArrayNumeriStr(lung)

            Dim esitiL, qEsitiL
            qEsitiL = VerificaNumeri(idBase, lung, aRuoteEff, colpi, sorteDettaglio, True, esitiL)
            If qEsitiL = 0 Then
                Scrivi "  Esito lunghetta: nessuna uscita nei " & colpi & " colpi."
            Else
                cicloCoperto = True
                Dim kl, puntiEsitoL
                For kl = 1 To qEsitiL
                    ScriviEsitoColorato "  Esito lunghetta: " & esitiL(kl)
                    puntiEsitoL = PuntiDaNomeSorteCompat(esitiL(kl))
                    If InStr(1, NomeArchivio(), "EuroJackpot", vbTextCompare) > 0 Then
                        AggiornaConteggiEuroJackpot esitiL(kl), ejForm, 0, ejTot
                    Else
                        AggiornaConteggiCompat10 esitiL(kl), 0, 0, 0, 0, 0, 0, 0, 0, 0, totDue, totTre, totQuattro, totCinque, totSei, totSette, totOtto, totNove, totDieci
                    End If
                Next
            End If
        End If

        If cicloCoperto Then
            copertiTotali = CLng(copertiTotali) + 1
            If cicliCopertiTxt <> "" Then cicliCopertiTxt = cicliCopertiTxt & ", "
            cicliCopertiTxt = cicliCopertiTxt & CStr(c)
        End If
        DoEventsEx
        If ScriptInterrotto() Then
            interrotto = True
            Exit For
        End If
    Next

    If interrotto Then
        Scrivi "---------------------------------------------------"
        Scrivi "REPORT PARZIALE / ANALISI INTERROTTA"
        Scrivi "Motivo: Analisi interrotta dall'utente."
        Scrivi "Sono stati mantenuti i risultati già calcolati prima dell'interruzione."
        Scrivi "---------------------------------------------------"
    End If

    Scrivi ""
    Scrivi "---------------------------------------------------"
    Scrivi "RIASSUNTO COPERTURA FORMAZIONI " & "(cicli coperti / totali):"
    For f = 1 To UBound(aFormazioni)
        Scrivi "Formazione " & f & ": " & Replace(aFormazioni(f), "|", " ; ")
        Scrivi "  Copertura: " & NzNum(copertiForm(f)) & " su " & qTrovati & " cicli " & "(" & PercentualeStr(NzNum(copertiForm(f)), qTrovati) & " %)"
        If InStr(1, NomeArchivio(), "EuroJackpot", vbTextCompare) > 0 Then
            Scrivi "  " & NomeEuroJackpotRankCompat(12) & ": " & NzNum(ejForm(f, 12))
            Scrivi "  " & NomeEuroJackpotRankCompat(11) & ": " & NzNum(ejForm(f, 11))
            Scrivi "  " & NomeEuroJackpotRankCompat(10) & ": " & NzNum(ejForm(f, 10))
            Scrivi "  " & NomeEuroJackpotRankCompat(9) & ": " & NzNum(ejForm(f, 9))
            Scrivi "  " & NomeEuroJackpotRankCompat(8) & ": " & NzNum(ejForm(f, 8))
            Scrivi "  " & NomeEuroJackpotRankCompat(7) & ": " & NzNum(ejForm(f, 7))
            Scrivi "  " & NomeEuroJackpotRankCompat(6) & ": " & NzNum(ejForm(f, 6))
            Scrivi "  " & NomeEuroJackpotRankCompat(5) & ": " & NzNum(ejForm(f, 5))
            Scrivi "  " & NomeEuroJackpotRankCompat(4) & ": " & NzNum(ejForm(f, 4))
            Scrivi "  " & NomeEuroJackpotRankCompat(3) & ": " & NzNum(ejForm(f, 3))
            Scrivi "  " & NomeEuroJackpotRankCompat(2) & ": " & NzNum(ejForm(f, 2))
            Scrivi "  " & NomeEuroJackpotRankCompat(1) & ": " & NzNum(ejForm(f, 1))
        Else
            If maxPuntiReport >= 2 Then Scrivi "  " & NomeTotalePuntiCompat(2) & ": " & NzNum(dueForm(f))
            If maxPuntiReport >= 3 Then Scrivi "  " & NomeTotalePuntiCompat(3) & ": " & NzNum(treForm(f))
            If maxPuntiReport >= 4 Then Scrivi "  " & NomeTotalePuntiCompat(4) & ": " & NzNum(quattroForm(f))
            If maxPuntiReport >= 5 Then Scrivi "  " & NomeTotalePuntiCompat(5) & ": " & NzNum(cinqueForm(f))
            If maxPuntiReport >= 6 Then Scrivi "  " & NomeTotalePuntiCompat(6) & ": " & NzNum(seiForm(f))
            If maxPuntiReport >= 7 Then Scrivi "  " & NomeTotalePuntiCompat(7) & ": " & NzNum(setteForm(f))
            If maxPuntiReport >= 8 Then Scrivi "  " & NomeTotalePuntiCompat(8) & ": " & NzNum(ottoForm(f))
            If maxPuntiReport >= 9 Then Scrivi "  " & NomeTotalePuntiCompat(9) & ": " & NzNum(noveForm(f))
            If maxPuntiReport >= 10 Then Scrivi "  " & NomeTotalePuntiCompat(10) & ": " & NzNum(dieciForm(f))
        End If
        Scrivi "_________________________________________"
        Scrivi ""
    Next

    Scrivi "Copertura complessiva cicli: " & NzNum(copertiTotali) & " su " & qTrovati & " cicli " & "(" & PercentualeStr(NzNum(copertiTotali), qTrovati) & " %)"
    If Len(CStr(cicliCopertiTxt)) = 0 Then cicliCopertiTxt = "nessuno"
    Scrivi "Cicli coperti: " & cicliCopertiTxt
    If InStr(1, NomeArchivio(), "EuroJackpot", vbTextCompare) > 0 Then
        Scrivi "Totale " & NomeEuroJackpotRankCompat(12) & ": " & NzNum(ejTot(12))
        Scrivi "Totale " & NomeEuroJackpotRankCompat(11) & ": " & NzNum(ejTot(11))
        Scrivi "Totale " & NomeEuroJackpotRankCompat(10) & ": " & NzNum(ejTot(10))
        Scrivi "Totale " & NomeEuroJackpotRankCompat(9) & ": " & NzNum(ejTot(9))
        Scrivi "Totale " & NomeEuroJackpotRankCompat(8) & ": " & NzNum(ejTot(8))
        Scrivi "Totale " & NomeEuroJackpotRankCompat(7) & ": " & NzNum(ejTot(7))
        Scrivi "Totale " & NomeEuroJackpotRankCompat(6) & ": " & NzNum(ejTot(6))
        Scrivi "Totale " & NomeEuroJackpotRankCompat(5) & ": " & NzNum(ejTot(5))
        Scrivi "Totale " & NomeEuroJackpotRankCompat(4) & ": " & NzNum(ejTot(4))
        Scrivi "Totale " & NomeEuroJackpotRankCompat(3) & ": " & NzNum(ejTot(3))
        Scrivi "Totale " & NomeEuroJackpotRankCompat(2) & ": " & NzNum(ejTot(2))
        Scrivi "Totale " & NomeEuroJackpotRankCompat(1) & ": " & NzNum(ejTot(1))
    Else
        If maxPuntiReport >= 2 Then Scrivi NomeTotalePuntiMaiuscCompat(2) & ": " & NzNum(totDue)
        If maxPuntiReport >= 3 Then Scrivi NomeTotalePuntiMaiuscCompat(3) & ": " & NzNum(totTre)
        If maxPuntiReport >= 4 Then Scrivi NomeTotalePuntiMaiuscCompat(4) & ": " & NzNum(totQuattro)
        If maxPuntiReport >= 5 Then Scrivi NomeTotalePuntiMaiuscCompat(5) & ": " & NzNum(totCinque)
        If maxPuntiReport >= 6 Then Scrivi NomeTotalePuntiMaiuscCompat(6) & ": " & NzNum(totSei)
        If maxPuntiReport >= 7 Then Scrivi NomeTotalePuntiMaiuscCompat(7) & ": " & NzNum(totSette)
        If maxPuntiReport >= 8 Then Scrivi NomeTotalePuntiMaiuscCompat(8) & ": " & NzNum(totOtto)
        If maxPuntiReport >= 9 Then Scrivi NomeTotalePuntiMaiuscCompat(9) & ": " & NzNum(totNove)
        If maxPuntiReport >= 10 Then Scrivi NomeTotalePuntiMaiuscCompat(10) & ": " & NzNum(totDieci)
    End If
    AvanzamentoElab 1, progTot, progTot
    DoEventsEx
    Scrivi "================== FINE REPORT =================="
End Sub

Sub PreparaFormazioni(ByRef aFormazioni)
    ReDim aFormazioni(4)
    aFormazioni(1) = "4_4_EJ_+_Est|1_44_EJ_+_Fig|1_43_EJ_+_Fig|1_21_EJ_*_Fig|2_32_EJ_*_Fig|6_12_EJ_*_Est|7_20_EJ_*_Est"
    aFormazioni(2) = "3_45_EJ_+_Dec|3_5_EJ_*_Dec|5_37_EJ_*_Cad|5_39_EJ_*_Cad|4_43_EJ_*_Dec|7_12_EJ_*_Est|6_15_EJ_*_Est"
    aFormazioni(3) = "1_23_EJ_-_Cad|2_18_EJ_*_Fig|4_35_EJ_*_Fig|3_13_EJ_-_Dec|4_2_EJ_*_Est|7_12_EJ_*_Est|6_15_EJ_*_Est"
    aFormazioni(4) = "1_10_EJ_+_Fig|1_14_EJ_+_Cad|5_16_EJ_*_Cad|1_29_EJ_*_Cad|4_33_EJ_*_Fig|6_12_EJ_*_Est|7_20_EJ_*_Est"
End Sub

Sub PreparaCicliReport(ByRef aCicli, ByRef qTrovati)
    qTrovati = 0
    ReDim aCicli(0)
    AddCicloDaData aCicli, qTrovati, 9, 12, 2025
    AddCicloDaData aCicli, qTrovati, 9, 1, 2026
    AddCicloDaData aCicli, qTrovati, 10, 2, 2026
    AddCicloDaData aCicli, qTrovati, 10, 3, 2026
    AddCicloDaData aCicli, qTrovati, 10, 4, 2026
    AddCicloDaData aCicli, qTrovati, 8, 5, 2026
    AddCicloDaData aCicli, qTrovati, 9, 6, 2026
End Sub

Sub PreparaRuoteCicliReport(ByRef aRuoteCicli)
    ReDim aRuoteCicli(12)
    aRuoteCicli(1) = ""
    aRuoteCicli(2) = ""
    aRuoteCicli(3) = ""
    aRuoteCicli(4) = ""
    aRuoteCicli(5) = ""
    aRuoteCicli(6) = ""
    aRuoteCicli(7) = ""
    aRuoteCicli(8) = ""
    aRuoteCicli(9) = ""
    aRuoteCicli(10) = ""
    aRuoteCicli(11) = ""
    aRuoteCicli(12) = ""
End Sub


Sub ScriviIntestazioneReportOriginale()
    Scrivi "RISULTATI DELLE FORMAZIONI RILEVATE (token):"
    Scrivi "  - 4_4_EJ_+_Est ; 1_44_EJ_+_Fig ; 1_43_EJ_+_Fig ; 1_21_EJ_*_Fig ; 2_32_EJ_*_Fig ; 6_12_EJ_*_Est ; 7_20_EJ_*_Est"
    Scrivi "  - 3_45_EJ_+_Dec ; 3_5_EJ_*_Dec ; 5_37_EJ_*_Cad ; 5_39_EJ_*_Cad ; 4_43_EJ_*_Dec ; 7_12_EJ_*_Est ; 6_15_EJ_*_Est"
    Scrivi "  - 1_23_EJ_-_Cad ; 2_18_EJ_*_Fig ; 4_35_EJ_*_Fig ; 3_13_EJ_-_Dec ; 4_2_EJ_*_Est ; 7_12_EJ_*_Est ; 6_15_EJ_*_Est"
    Scrivi "  - 1_10_EJ_+_Fig ; 1_14_EJ_+_Cad ; 5_16_EJ_*_Cad ; 1_29_EJ_*_Cad ; 4_33_EJ_*_Fig ; 6_12_EJ_*_Est ; 7_20_EJ_*_Est"
    Scrivi ""
    Scrivi "Formazioni token: 4"
End Sub


RISULTATO OUTPUT
Codice Seleziona
===== AVVIO SCRIPT =====

RISULTATI DELLE FORMAZIONI RILEVATE(token):
  - 4_4_EJ_+_Est ; 1_44_EJ_+_Fig ; 1_43_EJ_+_Fig ; 1_21_EJ_*_Fig ; 2_32_EJ_*_Fig ; 6_12_EJ_*_Est ; 7_20_EJ_*_Est
  - 3_45_EJ_+_Dec ; 3_5_EJ_*_Dec ; 5_37_EJ_*_Cad ; 5_39_EJ_*_Cad ; 4_43_EJ_*_Dec ; 7_12_EJ_*_Est ; 6_15_EJ_*_Est
  - 1_23_EJ_-_Cad ; 2_18_EJ_*_Fig ; 4_35_EJ_*_Fig ; 3_13_EJ_-_Dec ; 4_2_EJ_*_Est ; 7_12_EJ_*_Est ; 6_15_EJ_*_Est
  - 1_10_EJ_+_Fig ; 1_14_EJ_+_Cad ; 5_16_EJ_*_Cad ; 1_29_EJ_*_Cad ; 4_33_EJ_*_Fig ; 6_12_EJ_*_Est ; 7_20_EJ_*_Est

Formazioni token: 4
---------------------------------------------------
Nota: gli esiti vincenti vengono scritti con ScriviConColori se supportato dal motore.
PARAMETRI EFFETTIVI LISTATO GENERATO:
Archivio: EuroJackpot - 1 / 962
Cicli da report/effettivi: 7
Range effettivo: 09/12/2025 / 09/06/2026
Alla estrazione mensile: 3
Colpi: 8
Tipo risultato minimo: PUNTI 5 + 0
Visualizza altri risultati: SI
Esiti visualizzati da: PUNTI 2 + 1
Ruote Gioco: EuroJackpot (ruota unica)
Lunghetta report: NO
Regola token: da 1 a 10 formazioni, da 1 a 10 token per formazione
Gestione doppioni token: se due token producono lo stesso numero, il doppione viene scartato
---------------------------------------------------
CICLI SELEZIONATI:
  1) 09/12/2025  id=909
  2) 09/01/2026  id=918
  3) 10/02/2026  id=927
  4) 10/03/2026  id=935
  5) 10/04/2026  id=944
  6) 08/05/2026  id=952
  7) 09/06/2026  id=961

DETTAGLIO ESITI (ciclo per ciclo):

---- CICLO 1  (09/12/2025) ----
Formazione 1:  41, 46, 45, 42, 10, E12, E4
  Esito: 26/12/2025 EuroJackpot - PUNTI 1 + 2 42-E12-E4 - 5 colpo
Formazione 2:  49, 20, 21, 40, 22, E12, E3
  Esito: nessuna uscita nei 8 colpi.
Formazione 3:  29, 40, 35, 41, 24, E12, E3
  Esito: 23/12/2025 EuroJackpot - PUNTI 5 + 0 29-40-35-41-24 - 4 colpo
Formazione 4:  12, 16, 10, 8, 33, E12, E4
  Esito: nessuna uscita nei 8 colpi.

---- CICLO 2  (09/01/2026) ----
Formazione 1:  29, 45, 44, 21, 32, E12, E1
  Esito: nessuna uscita nei 8 colpi.
Formazione 2:  47, 10, 37, 39, 29, E12, E6
  Esito: 13/01/2026 EuroJackpot - PUNTI 1 + 2 47-E12-E6 - 1 colpo
Formazione 3:  36, 18, 45, 39, 50, E12, E6
  Esito: 23/01/2026 EuroJackpot - PUNTI 5 + 1 36-18-45-39-50-E6 - 4 colpo
Formazione 4:  11, 23, 16, 12, 31, E12, E1
  Esito: nessuna uscita nei 8 colpi.

---- CICLO 3  (10/02/2026) ----
Formazione 1:  1, 45, 44, 21, 46, E12, E4
  Esito: 13/02/2026 EuroJackpot - PUNTI 5 + 0 01-45-44-21-46 - 1 colpo
Formazione 2:  47, 10, 48, 6, 15, E12, E1
  Esito: nessuna uscita nei 8 colpi.
Formazione 3:  36, 4, 20, 39, 44, E12, E1
  Esito: nessuna uscita nei 8 colpi.
Formazione 4:  11, 23, 14, 12, 16, E12, E4
  Esito: nessuna uscita nei 8 colpi.

---- CICLO 4  (10/03/2026) ----
Formazione 1:  6, 47, 46, 13, 38, E12, E8
  Esito: nessuna uscita nei 8 colpi.
Formazione 2:  48, 15, 9, 23, 43, E12, E6
  Esito: 24/03/2026 EuroJackpot - PUNTI 5 + 0 48-15-09-23-43 - 4 colpo
Formazione 3:  30, 12, 20, 40, 4, E12, E6
  Esito: nessuna uscita nei 8 colpi.
Formazione 4:  13, 17, 12, 37, 16, E12, E8
  Esito: 17/03/2026 EuroJackpot - PUNTI 5 + 0 13-17-12-37-16 - 2 colpo

---- CICLO 5  (10/04/2026) ----
Formazione 1:  22, 47, 46, 13, 32, E12, E8
  Esito: 14/04/2026 EuroJackpot - PUNTI 5 + 0 22-47-46-13-32 - 1 colpo
  Esito: 21/04/2026 EuroJackpot - PUNTI 2 + 1 47-32-E8 - 3 colpo
Formazione 2:  47, 10, 22, 34, 36, E12, E1
  Esito: nessuna uscita nei 8 colpi.
Formazione 3:  35, 18, 15, 39, 36, E12, E1
  Esito: nessuna uscita nei 8 colpi.
Formazione 4:  13, 22, 46, 32, 47, E12, E8
  Esito: 14/04/2026 EuroJackpot - PUNTI 5 + 0 13-22-46-32-47 - 1 colpo
  Esito: 21/04/2026 EuroJackpot - PUNTI 2 + 1 32-47-E8 - 3 colpo

---- CICLO 6  (08/05/2026) ----
Formazione 1:  21, 47, 46, 13, 10, E12, E1
  Esito: 05/06/2026 EuroJackpot - PUNTI 2 + 1 21-47-E1 - 8 colpo
Formazione 2:  47, 10, 37, 39, 36, E12, E6
  Esito: 15/05/2026 EuroJackpot - PUNTI 2 + 1 37-36-E12 - 2 colpo
  Esito: 19/05/2026 EuroJackpot - PUNTI 5 + 1 47-10-37-39-36-E6 - 3 colpo
Formazione 3:  30, 40, 31, 39, 34, E12, E6
  Esito: nessuna uscita nei 8 colpi.
Formazione 4:  13, 17, 16, 37, 14, E12, E1
  Esito: nessuna uscita nei 8 colpi.

---- CICLO 7  (09/06/2026) ----
Formazione 1:  2, 45, 44, 21, 46, E12, E4
  Esito: nessuna uscita nei 8 colpi.
Formazione 2:  48, 15, 49, 6, 16, E12, E1
  Esito: nessuna uscita nei 8 colpi.
Formazione 3:  28, 4, 5, 40, 46, E12, E1
  Esito: nessuna uscita nei 8 colpi.
Formazione 4:  11, 15, 14, 29, 49, E12, E4
  Esito: nessuna uscita nei 8 colpi.

---------------------------------------------------
RIASSUNTO COPERTURA FORMAZIONI (cicli coperti / totali):
Formazione 1: 4_4_EJ_+_Est ; 1_44_EJ_+_Fig ; 1_43_EJ_+_Fig ; 1_21_EJ_*_Fig ; 2_32_EJ_*_Fig ; 6_12_EJ_*_Est ; 7_20_EJ_*_Est
  Copertura: 2 su 7 cicli (28,57 %)
  PUNTI 5 + 2: 0
  PUNTI 5 + 1: 0
  PUNTI 5 + 0: 2
  PUNTI 4 + 2: 0
  PUNTI 4 + 1: 0
  PUNTI 3 + 2: 0
  PUNTI 4 + 0: 0
  PUNTI 2 + 2: 0
  PUNTI 3 + 1: 0
  PUNTI 3 + 0: 0
  PUNTI 1 + 2: 1
  PUNTI 2 + 1: 2
_________________________________________

Formazione 2: 3_45_EJ_+_Dec ; 3_5_EJ_*_Dec ; 5_37_EJ_*_Cad ; 5_39_EJ_*_Cad ; 4_43_EJ_*_Dec ; 7_12_EJ_*_Est ; 6_15_EJ_*_Est
  Copertura: 2 su 7 cicli (28,57 %)
  PUNTI 5 + 2: 0
  PUNTI 5 + 1: 1
  PUNTI 5 + 0: 1
  PUNTI 4 + 2: 0
  PUNTI 4 + 1: 0
  PUNTI 3 + 2: 0
  PUNTI 4 + 0: 0
  PUNTI 2 + 2: 0
  PUNTI 3 + 1: 0
  PUNTI 3 + 0: 0
  PUNTI 1 + 2: 1
  PUNTI 2 + 1: 1
_________________________________________

Formazione 3: 1_23_EJ_-_Cad ; 2_18_EJ_*_Fig ; 4_35_EJ_*_Fig ; 3_13_EJ_-_Dec ; 4_2_EJ_*_Est ; 7_12_EJ_*_Est ; 6_15_EJ_*_Est
  Copertura: 2 su 7 cicli (28,57 %)
  PUNTI 5 + 2: 0
  PUNTI 5 + 1: 1
  PUNTI 5 + 0: 1
  PUNTI 4 + 2: 0
  PUNTI 4 + 1: 0
  PUNTI 3 + 2: 0
  PUNTI 4 + 0: 0
  PUNTI 2 + 2: 0
  PUNTI 3 + 1: 0
  PUNTI 3 + 0: 0
  PUNTI 1 + 2: 0
  PUNTI 2 + 1: 0
_________________________________________

Formazione 4: 1_10_EJ_+_Fig ; 1_14_EJ_+_Cad ; 5_16_EJ_*_Cad ; 1_29_EJ_*_Cad ; 4_33_EJ_*_Fig ; 6_12_EJ_*_Est ; 7_20_EJ_*_Est
  Copertura: 2 su 7 cicli (28,57 %)
  PUNTI 5 + 2: 0
  PUNTI 5 + 1: 0
  PUNTI 5 + 0: 2
  PUNTI 4 + 2: 0
  PUNTI 4 + 1: 0
  PUNTI 3 + 2: 0
  PUNTI 4 + 0: 0
  PUNTI 2 + 2: 0
  PUNTI 3 + 1: 0
  PUNTI 3 + 0: 0
  PUNTI 1 + 2: 0
  PUNTI 2 + 1: 1
_________________________________________

Copertura complessiva cicli: 6 su 7 cicli (85,71 %)
Cicli coperti: 1, 2, 3, 4, 5, 6
Totale PUNTI 5 + 2: 0
Totale PUNTI 5 + 1: 2
Totale PUNTI 5 + 0: 6
Totale PUNTI 4 + 2: 0
Totale PUNTI 4 + 1: 0
Totale PUNTI 3 + 2: 0
Totale PUNTI 4 + 0: 0
Totale PUNTI 2 + 2: 0
Totale PUNTI 3 + 1: 0
Totale PUNTI 3 + 0: 0
Totale PUNTI 1 + 2: 2
Totale PUNTI 2 + 1: 4
================== FINE REPORT ==================



Tempo elaborazione: 4,57 sec


===== FINE SCRIPT =====

Cagliostro

#1
13 Giugno, 2026, 19:35:11
Ottimo
Il caso, frutto dell ignoranza umana, alibi creato dallo stesso

http://lnx.magic
Stampa
Vai su Pagine1
Azioni
Powered by EzPortal