Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

Variante script

Marcorun

Advanced Member
Ciao CLAUDIO8,se non sei troppo occupato....ti va di modificare il tuo script x il lotto,in 10elotto serale?
con calma...grazie

Sub Main
Dim idEstr,aRuota(1)
Dim Inizio,Fine,Ruo,Sorte,RetColpi,RetColpi2,RetColpi3,RetEsito
Dim nClasseFrz
Dim id,k
Dim nElemFrz
Dim nQesito
Dim nEstrTot
Dim nFrqMedia
Dim sNomeFrz
Inizio = EstrazioneFin - 100 '(circa 1Anno partendo Fine-50)
Fine = EstrazioneFin
Ruo = ScegliRuota
Sorte = ScegliEsito
aRuota(1) = Ruo
nEstrTot =(Fine + 1) - Inizio
ReDim aElemFormazione(0)
Call RichiediFormazione(aElemFormazione,nClasseFrz,sNomeFrz)
nElemFrz = UBound(aElemFormazione) 'array (num massimo elementi Formazione)
ReDim aValStat(nElemFrz,4) ' dimensiono matrice aValStat
If Ruo > 0 And nClasseFrz >= 1 Then
For id = 1 To nElemFrz
ReDim aNumInGioco(0)
Call GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
' ciclo storico
For idEstr = Inizio To Fine
If VerificaEsitoTurbo(aNumInGioco,aRuota,idEstr,Sorte,1,,RetEsito) = True Then
aValStat(id,0) = 0
If RetEsito = "Estratto" Then nQesito = Combinazioni(1,Sorte)
If RetEsito = "Ambo" Then nQesito = Combinazioni(2,Sorte)
If RetEsito = "Terno" Then nQesito = Combinazioni(3,Sorte)
If RetEsito = "Quaterna" Then nQesito = Combinazioni(4,Sorte)
If RetEsito = "Cinquina" Then nQesito = Combinazioni(5,Sorte)
aValStat(id,1) = aValStat(id,1) + nQesito
aValStat(id,3) = 0
aValStat(id,4) = aValStat(id,4) + 1
Else
aValStat(id,0) = aValStat(id,0) + 1
If aValStat(id,0) > aValStat(id,2) Then
aValStat(id,2) = aValStat(id,0)
aValStat(id,3) = aValStat(id,3) + 1
End If
End If
If ScriptInterrotto Then Exit For
Next
Call AvanzamentoElab(1,nElemFrz,id)
If ScriptInterrotto Then Exit For
Next
Dim aV
aV = Array("","Formazione","Ritardo","Frequenza","RitMax","IncrRitMax","Presenze","I.C.","1°Esito","2°Esito","3°Esito")
'aV = Array("","Formazione","Ritardo","Frequenza","RitMax","IncrRitMax","Presenze","I.C.","Clp1°Esito","Clp2°Esito")
Call InitTabella(aV,2,,3,5)
For id = 1 To nElemFrz
ReDim aNumInGioco(0)
Call GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
aV(1) = StringaNumeri(aNumInGioco)
aV(2) = aValStat(id,0)'Ritardo
aV(3) = aValStat(id,1)'Freq.
aV(4) = aValStat(id,2)'RitardoMax
aV(5) = aValStat(id,3)'IncrRitMax
aV(6) = aValStat(id,4)'Presenze
nFrqMedia = Dividi(nEstrTot,aValStat(id,4))
aV(7) = Round(Dividi(aValStat(id,0),nFrqMedia),3)
If VerificaEsitoTurbo(aNumInGioco,aRuota,idEstr,Sorte,EstrazioniArchivio - Fine,,,RetColpi) Then
aV(8) = RetColpi
Else
aV(8) = "-" '0
End If
If VerificaEsitoTurbo(aNumInGioco,aRuota,idEstr + RetColpi,Sorte,EstrazioniArchivio - Fine - RetColpi,,,RetColpi2) Then
aV(9) = " + " & RetColpi2
Else
aV(9) = " - "
End If
If VerificaEsitoTurbo(aNumInGioco,aRuota,idEstr + RetColpi + RetColpi2,Sorte,EstrazioniArchivio - Fine - RetColpi - RetColpi2,,,RetColpi3) Then
aV(10) = " + " & RetColpi3
Else
aV(10) = " - "
End If
Call AddRigaTabella(aV)
Next
Call Scrivi("Statistica_" & NomeSorte(Sorte) & " by Mike58 modificato da Claudio8",1,0,2,4,2)
'Call Scrivi(" - Analisi su formazione : " & sNomeFrz,,0)
'Call Scrivi(" - Sulla ruota : " & NomeRuota(Ruo))
'Call Scrivi("Da : " & GetInfoEstrazione(Inizio),,0)
'Call Scrivi(" - A : " & GetInfoEstrazione(Fine),,0)
'Call Scrivi(" - Tot. estraz. : " & nEstrTot)
'Call Scrivi
Dim sTitolo
sTitolo = "Statistica_" & NomeSorte(Sorte) & "_AnalisiFormazione_" & sNomeFrz & "_su_" & SiglaRuota(Ruo) & "_da_" & Inizio & "_a_" & Fine & "_Tot_estraz_" & nEstrTot
Call SetTableTitle(sTitolo,"Arial",10,False,2)
Call SetTableHeight("100%") ' altezza
Call SetTableWidth("75%") '' larghezza
Call CreaTabellaOrdinabile(2,,,,,False) ' ordinamento 2a colonna
Else
Scrivi " Errore nella Selezione Formazioni dei Prametri .",1,,2,4,4
End If
End Sub
Sub GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
Dim k
ReDim aNumInGioco(nClasseFrz)
For k = 1 To nClasseFrz
aNumInGioco(k) = aElemFormazione(id,k)
Next
End Sub
Sub RichiediFormazione(aElemFormazione,nClasseFrz,sNome)
Dim s
Dim n
Dim id
ReDim aNomiForm(0)
Call ElencoFileInDirectory(GetDirectoryAppData & "formazioni\",aNomiForm,".frz")
id = ScegliOpzioneMenu(aNomiForm,1,"Selezione formazione")
If GetElementiFormazione(aNomiForm(id),aElemFormazione) Then
nClasseFrz = GetClasseFormazione(aNomiForm(id))
sNome = aNomiForm(id)
End If
End Sub
 

claudio8

Advanced Member >PLATINUM PLUS<
Controlla i risultati .

Vedi script corretto al post n° 4

Saluti
 
Ultima modifica:

claudio8

Advanced Member >PLATINUM PLUS<
Codice:
Sub Main
    Dim idEstr
    Dim Inizio,Fine,Ruo,Sorte,RetColpi,RetColpi2,RetColpi3,RetEsito,arc
    Dim nClasseFrz
    Dim id,k
    Dim nElemFrz
    Dim nQesito
    Dim nEstrTot
    Dim nFrqMedia
    Dim sNomeFrz
    arc = 1 'InputBox(" [ 1 ]=Archivio 10eLotto classico  - [ 2 ]=Archivio 10L8 5minuti",,1)
    ImpostaArchivio10ELotto(arc)
    Inizio = EstrazioneFinDL - 150
    Fine = EstrazioneFinDL - 50
    Sorte = ScegliEsito
    nEstrTot =(Fine + 1) - Inizio
    ReDim aElemFormazione(0)
    Call RichiediFormazione(aElemFormazione,nClasseFrz,sNomeFrz)
    nElemFrz = UBound(aElemFormazione) 'array (num massimo elementi Formazione)
    ReDim aValStat(nElemFrz,4) ' dimensiono matrice aValStat
    If nClasseFrz >= 1 Then
        For id = 1 To nElemFrz
            ReDim aNumInGioco(0)
            Call GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
            ' ciclo storico
            For idEstr = Inizio To Fine
                If VerificaEsitoDL(aNumInGioco,idEstr,Sorte,1,RetEsito) = True Then
                    aValStat(id,0) = 0
                    If RetEsito = "Estratto" Then nQesito = Combinazioni(1,Sorte)
                    If RetEsito = "Ambo" Then nQesito = Combinazioni(2,Sorte)
                    If RetEsito = "Terno" Then nQesito = Combinazioni(3,Sorte)
                    If RetEsito = "Quaterna" Then nQesito = Combinazioni(4,Sorte)
                    If RetEsito = "Cinquina" Then nQesito = Combinazioni(5,Sorte)
                    aValStat(id,1) = aValStat(id,1) + nQesito
                    aValStat(id,3) = 0
                    aValStat(id,4) = aValStat(id,4) + 1
                Else
                    aValStat(id,0) = aValStat(id,0) + 1
                    If aValStat(id,0) > aValStat(id,2) Then
                        aValStat(id,2) = aValStat(id,0)
                        aValStat(id,3) = aValStat(id,3) + 1
                    End If
                End If
                If ScriptInterrotto Then Exit For
            Next
            Call AvanzamentoElab(1,nElemFrz,id)
            If ScriptInterrotto Then Exit For
        Next
        Dim aV
        aV = Array("","Formazione","Ritardo","Frequenza","RitMax","IncrRitMax","Presenze","I.C.","1°Esito","2°Esito","3°Esito")
        'aV = Array("","Formazione","Ritardo","Frequenza","RitMax","IncrRitMax","Presenze","I.C.","Clp1°Esito","Clp2°Esito")
        Call InitTabella(aV,2,,3,5)
        For id = 1 To nElemFrz
            ReDim aNumInGioco(0)
            Call GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
            aV(1) = StringaNumeri(aNumInGioco)
            aV(2) = aValStat(id,0)'Ritardo
            aV(3) = aValStat(id,1)'Freq.
            aV(4) = aValStat(id,2)'RitardoMax
            aV(5) = aValStat(id,3)'IncrRitMax
            aV(6) = aValStat(id,4)'Presenze
            nFrqMedia = Dividi(nEstrTot,aValStat(id,4))
            aV(7) = Round(Dividi(aValStat(id,0),nFrqMedia),3)
            If VerificaEsitoDL(aNumInGioco,idEstr,Sorte,EstrazioniArchivioDL - Fine,,RetColpi) Then
                aV(8) = RetColpi
            Else
                aV(8) = "-" '0
            End If
            If VerificaEsitoDL(aNumInGioco,idEstr + RetColpi,Sorte,EstrazioniArchivioDL - Fine - RetColpi,,RetColpi2) Then
                aV(9) = " + " & RetColpi2
            Else
                aV(9) = " - "
            End If
            If VerificaEsitoDL(aNumInGioco,idEstr + RetColpi + RetColpi2,Sorte,EstrazioniArchivioDL - Fine - RetColpi - RetColpi2,,RetColpi3) Then
                aV(10) = " + " & RetColpi3
            Else
                aV(10) = " - "
            End If
            Call AddRigaTabella(aV)
        Next
        
        If arc = 1 Then
            Call Scrivi("Statistica del 10eLotto Normale per " & NomeSorte(Sorte) & " by Mike58 modificato da Claudio8", 1,0,2,4,2)
        Else
            Call Scrivi("Statistica del 10eLotto 5 Minuti per " & NomeSorte(Sorte) & " by Mike58 modificato da Claudio8",1,0,2,4,2)
        End If
    
        Dim sTitolo
        sTitolo = "Statistica_per_" & NomeSorte(Sorte) & "_AnalisiFormazione_" & sNomeFrz & "_da_" & Inizio & "_a_" & Fine & "_Tot_estraz_" & nEstrTot
        Call SetTableTitle(sTitolo,"Arial",10,False,2)
        Call SetTableHeight("100%") ' altezza
        Call SetTableWidth("100%") '' larghezza
        Call CreaTabellaOrdinabile(2,,,,,False) ' ordinamento 2a colonna
    Else
        Scrivi " Errore nella Selezione Formazioni dei Prametri .",1,,2,4,4
    End If
End Sub
Sub GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
    Dim k
    ReDim aNumInGioco(nClasseFrz)
    For k = 1 To nClasseFrz
        aNumInGioco(k) = aElemFormazione(id,k)
    Next
End Sub
Sub RichiediFormazione(aElemFormazione,nClasseFrz,sNome)
    Dim s
    Dim n
    Dim id
    ReDim aNomiForm(0)
    Call ElencoFileInDirectory(GetDirectoryAppData & "formazioni\",aNomiForm,".frz")
    id = ScegliOpzioneMenu(aNomiForm,1,"Selezione formazione")
    If GetElementiFormazione(aNomiForm(id),aElemFormazione) Then
        nClasseFrz = GetClasseFormazione(aNomiForm(id))
        sNome = aNomiForm(id)
    End If
End Sub
 

Marcorun

Advanced Member
GRAZIE mille....
ho notato un particolare un pò fastidioso...
non si può scegliere un'esito superiore al 5
 

Marcorun

Advanced Member
Io ho apportato (maldestramente) una modifica......funzionano tutti gli esiti fino al 10 ,ma sopra il 5 non calcola le frequenze.. :-\

Sub Main
Dim idEstr
Dim Inizio,Fine,Ruo,Sorte,RetColpi,RetColpi2,RetColpi3,RetEsito,arc
Dim nClasseFrz
Dim id,k
Dim nElemFrz
Dim nQesito
Dim nEstrTot
Dim nFrqMedia
Dim sNomeFrz
arc = 1 'InputBox(" [ 1 ]=Archivio 10eLotto classico - [ 2 ]=Archivio 10L8 5minuti",,1)
ImpostaArchivio10ELotto(arc)
Inizio = EstrazioneFinDL - 150
Fine = EstrazioneFinDL - 50
Sorte = InputBox(" [ 1 ] = SORTE ",,1)'ScegliEsito '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<MODIFICA :-\
nEstrTot =(Fine + 1) - Inizio
ReDim aElemFormazione(0)
Call RichiediFormazione(aElemFormazione,nClasseFrz,sNomeFrz)
nElemFrz = UBound(aElemFormazione) 'array (num massimo elementi Formazione)
ReDim aValStat(nElemFrz,4) ' dimensiono matrice aValStat
If nClasseFrz >= 1 Then
For id = 1 To nElemFrz
ReDim aNumInGioco(0)
Call GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
' ciclo storico
For idEstr = Inizio To Fine
If VerificaEsitoDL(aNumInGioco,idEstr,Sorte,1,RetEsito) = True Then
aValStat(id,0) = 0
If RetEsito = "Estratto" Then nQesito = Combinazioni(1,Sorte)
If RetEsito = "Ambo" Then nQesito = Combinazioni(2,Sorte)
If RetEsito = "Terno" Then nQesito = Combinazioni(3,Sorte)
If RetEsito = "Quaterna" Then nQesito = Combinazioni(4,Sorte)
If RetEsito = "Cinquina" Then nQesito = Combinazioni(5,Sorte)
aValStat(id,1) = aValStat(id,1) + nQesito
aValStat(id,3) = 0
aValStat(id,4) = aValStat(id,4) + 1
Else
aValStat(id,0) = aValStat(id,0) + 1
If aValStat(id,0) > aValStat(id,2) Then
aValStat(id,2) = aValStat(id,0)
aValStat(id,3) = aValStat(id,3) + 1
End If
End If
If ScriptInterrotto Then Exit For
Next
Call AvanzamentoElab(1,nElemFrz,id)
If ScriptInterrotto Then Exit For
Next
Dim aV
aV = Array("","Formazione","Ritardo","Frequenza","RitMax","IncrRitMax","Presenze","I.C.","1°Esito","2°Esito","3°Esito")
'aV = Array("","Formazione","Ritardo","Frequenza","RitMax","IncrRitMax","Presenze","I.C.","Clp1°Esito","Clp2°Esito")
Call InitTabella(aV,2,,3,5)
For id = 1 To nElemFrz
ReDim aNumInGioco(0)
Call GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
aV(1) = StringaNumeri(aNumInGioco)
aV(2) = aValStat(id,0)'Ritardo
aV(3) = aValStat(id,1)'Freq.
aV(4) = aValStat(id,2)'RitardoMax
aV(5) = aValStat(id,3)'IncrRitMax
aV(6) = aValStat(id,4)'Presenze
nFrqMedia = Dividi(nEstrTot,aValStat(id,4))
aV(7) = Round(Dividi(aValStat(id,0),nFrqMedia),3)
If VerificaEsitoDL(aNumInGioco,idEstr,Sorte,EstrazioniArchivioDL - Fine,,RetColpi) Then
aV(8) = RetColpi
Else
aV(8) = "-" '0
End If
If VerificaEsitoDL(aNumInGioco,idEstr + RetColpi,Sorte,EstrazioniArchivioDL - Fine - RetColpi,,RetColpi2) Then
aV(9) = " + " & RetColpi2
Else
aV(9) = " - "
End If
If VerificaEsitoDL(aNumInGioco,idEstr + RetColpi + RetColpi2,Sorte,EstrazioniArchivioDL - Fine - RetColpi - RetColpi2,,RetColpi3) Then
aV(10) = " + " & RetColpi3
Else
aV(10) = " - "
End If
Call AddRigaTabella(aV)
Next

If arc = 1 Then
Call Scrivi("Statistica del 10eLotto Normale per " & NomeSorte(Sorte) & " by Mike58 modificato da Claudio8",1,0,2,4,2)
Else
Call Scrivi("Statistica del 10eLotto 5 Minuti per " & NomeSorte(Sorte) & " by Mike58 modificato da Claudio8",1,0,2,4,2)
End If

Dim sTitolo
sTitolo = "Statistica_per_" & NomeSorte(Sorte) & "_AnalisiFormazione_" & sNomeFrz & "_da_" & Inizio & "_a_" & Fine & "_Tot_estraz_" & nEstrTot
Call SetTableTitle(sTitolo,"Arial",10,False,2)
Call SetTableHeight("100%") ' altezza
Call SetTableWidth("100%") '' larghezza
Call CreaTabellaOrdinabile(2,,,,,False) ' ordinamento 2a colonna
Else
Scrivi " Errore nella Selezione Formazioni dei Prametri .",1,,2,4,4
End If
End Sub
Sub GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
Dim k
ReDim aNumInGioco(nClasseFrz)
For k = 1 To nClasseFrz
aNumInGioco(k) = aElemFormazione(id,k)
Next
End Sub
Sub RichiediFormazione(aElemFormazione,nClasseFrz,sNome)
Dim s
Dim n
Dim id
ReDim aNomiForm(0)
Call ElencoFileInDirectory(GetDirectoryAppData & "formazioni\",aNomiForm,".frz")
id = ScegliOpzioneMenu(aNomiForm,1,"Selezione formazione")
If GetElementiFormazione(aNomiForm(id),aElemFormazione) Then
nClasseFrz = GetClasseFormazione(aNomiForm(id))
sNome = aNomiForm(id)
End If
End Sub
 

claudio8

Advanced Member >PLATINUM PLUS<
La tua soluzione va anche bene, ma
eccoti la correzione per gli esiti con Sorte = ScegliEsito(1,1,10) (vedi help).
Ho aumentato il range di estrazioni da esaminare e sono usciti diversi valori di Presenze e Frequenze con le Cadenze ad esito Sestine.
Ti ho inserito gli estratti usciti al 1° esito
Controlla che i dati siano corretti e conferma il buon funzionamento anche x gli altri utenti.

Codice:
Sub Main
    Dim idEstr
    Dim Inizio,Fine,Ruo,Sorte,RetColpi,RetEstratti,RetColpi2,RetColpi3,RetEsito,arc
    Dim nClasseFrz
    Dim id,k
    Dim nElemFrz
    Dim nQesito
    Dim nEstrTot
    Dim nFrqMedia
    Dim sNomeFrz
    arc = 1 'InputBox(" [ 1 ]=Archivio 10eLotto classico  - [ 2 ]=Archivio 10L8 5minuti",,1)
    ImpostaArchivio10ELotto(arc)
    Inizio = EstrazioneFinDL - 300
    Fine = EstrazioneFinDL - 50
    Sorte = ScegliEsito(1,1,10)
    nEstrTot =(Fine + 1) - Inizio
    ReDim aElemFormazione(0)
    Call RichiediFormazione(aElemFormazione,nClasseFrz,sNomeFrz)
    nElemFrz = UBound(aElemFormazione) 'array (num massimo elementi Formazione)
    ReDim aValStat(nElemFrz,4) ' dimensiono matrice aValStat
    If nClasseFrz >= 1 Then
        For id = 1 To nElemFrz
            ReDim aNumInGioco(0)
            Call GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
            ' ciclo storico
            For idEstr = Inizio To Fine
                If VerificaEsitoDL(aNumInGioco,idEstr,Sorte,1,RetEsito) = True Then
                    aValStat(id,0) = 0
                    If RetEsito = "Estratto" Then nQesito = Combinazioni(1,Sorte)
                    If RetEsito = "Ambo" Then nQesito = Combinazioni(2,Sorte)
                    If RetEsito = "Terno" Then nQesito = Combinazioni(3,Sorte)
                    If RetEsito = "Quaterna" Then nQesito = Combinazioni(4,Sorte)
                    If RetEsito = "Cinquina" Then nQesito = Combinazioni(5,Sorte)
                    If RetEsito = "Sestina" Then nQesito = Combinazioni(6,Sorte)
                    If RetEsito = "Settina" Then nQesito = Combinazioni(7,Sorte)
                    If RetEsito = "Ottina" Then nQesito = Combinazioni(8,Sorte)
                    If RetEsito = "Novina" Then nQesito = Combinazioni(9,Sorte)
                    If RetEsito = "Decina" Then nQesito = Combinazioni(10,Sorte)
                    aValStat(id,1) = aValStat(id,1) + nQesito
                    aValStat(id,3) = 0
                    aValStat(id,4) = aValStat(id,4) + 1
                Else
                    aValStat(id,0) = aValStat(id,0) + 1
                    If aValStat(id,0) > aValStat(id,2) Then
                        aValStat(id,2) = aValStat(id,0)
                        aValStat(id,3) = aValStat(id,3) + 1
                    End If
                End If
                If ScriptInterrotto Then Exit For
            Next
            Call AvanzamentoElab(1,nElemFrz,id)
            If ScriptInterrotto Then Exit For
        Next
        Dim aV
        aV = Array("","Formazione","Ritardo","Frequenza","RitMax","IncrRitMax","Presenze","I.C.","1°Esito","2°Esito","3°Esito")
        'aV = Array("","Formazione","Ritardo","Frequenza","RitMax","IncrRitMax","Presenze","I.C.","Clp1°Esito","Clp2°Esito")
        Call InitTabella(aV,2,,3,5)
        For id = 1 To nElemFrz
            ReDim aNumInGioco(0)
            Call GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
            aV(1) = StringaNumeri(aNumInGioco)
            aV(2) = aValStat(id,0)'Ritardo
            aV(3) = aValStat(id,1)'Freq.
            aV(4) = aValStat(id,2)'RitardoMax
            aV(5) = aValStat(id,3)'IncrRitMax
            aV(6) = aValStat(id,4)'Presenze
            nFrqMedia = Dividi(nEstrTot,aValStat(id,4))
            aV(7) = Round(Dividi(aValStat(id,0),nFrqMedia),3) ' indice di convenienza   ??????
            If VerificaEsitoDL (aNumInGioco,idEstr,Sorte,EstrazioniArchivioDL - Fine,,RetColpi,RetEstratti ) Then
                aV(8) = RetColpi & "°  --  " &RetEstratti
            Else
                aV(8) = "-" '0
            End If
            If VerificaEsitoDL(aNumInGioco,idEstr + RetColpi,Sorte,EstrazioniArchivioDL - Fine - RetColpi,,RetColpi2) Then
                aV(9) = " + " & RetColpi2
            Else
                aV(9) = " - "
            End If
            If VerificaEsitoDL(aNumInGioco,idEstr + RetColpi + RetColpi2,Sorte,EstrazioniArchivioDL - Fine - RetColpi - RetColpi2,,RetColpi3) Then
                aV(10) = " + " & RetColpi3
            Else
                aV(10) = " - "
            End If
            Call AddRigaTabella(aV)
        Next
        If arc = 1 Then
            Call Scrivi("Statistica del 10eLotto Normale per " & NomeSorte(Sorte) & " by Mike58 modificato da Claudio8",1,0,2,4,2)
        Else
            Call Scrivi("Statistica del 10eLotto 5 Minuti per " & NomeSorte(Sorte) & " by Mike58 modificato da Claudio8",1,0,2,4,2)
        End If
        Dim sTitolo
        sTitolo = "Statistica_per_" & NomeSorte(Sorte) & "_AnalisiFormazione_" & sNomeFrz & "_da_" & Inizio & "_a_" & Fine & "_Tot_estraz_" & nEstrTot
        Call SetTableTitle(sTitolo,"Arial",10,False,2)
        Call SetTableHeight("100%") ' altezza
        Call SetTableWidth("100%") '' larghezza
        Call CreaTabellaOrdinabile(2,,,,,False) ' ordinamento 2a colonna
    Else
        Scrivi " Errore nella Selezione Formazioni dei Prametri .",1,,2,4,4
    End If
End Sub
Sub GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
    Dim k
    ReDim aNumInGioco(nClasseFrz)
    For k = 1 To nClasseFrz
        aNumInGioco(k) = aElemFormazione(id,k)
    Next
End Sub
Sub RichiediFormazione(aElemFormazione,nClasseFrz,sNome)
    Dim s
    Dim n
    Dim id
    ReDim aNomiForm(0)
    Call ElencoFileInDirectory(GetDirectoryAppData & "formazioni\",aNomiForm,".frz")
    id = ScegliOpzioneMenu(aNomiForm,1,"Selezione formazione")
    If GetElementiFormazione(aNomiForm(id),aElemFormazione) Then
        nClasseFrz = GetClasseFormazione(aNomiForm(id))
        sNome = aNomiForm(id)
    End If
End Sub
Saluti
 
Ultima modifica:

Marcorun

Advanced Member
Funziona bene...
al momento sembra ok
spero che possa essere utile anche a qualcun'altro
GRAZIE CLAUDIO8,sei bravissimo e sempre disponibile 👋 👋 👋 👋 👏👏👏👏
CIAO
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 06 marzo 2021
    Bari
    80
    51
    06
    35
    76
    Cagliari
    17
    84
    66
    64
    67
    Firenze
    18
    83
    51
    04
    64
    Genova
    45
    39
    62
    67
    11
    Milano
    15
    51
    70
    21
    48
    Napoli
    73
    10
    04
    54
    03
    Palermo
    59
    41
    83
    21
    22
    Roma
    07
    56
    66
    15
    24
    Torino
    51
    46
    19
    18
    01
    Venezia
    04
    73
    38
    36
    13
    Nazionale
    38
    11
    44
    31
    17
    Estrazione Simbolotto
    Firenze
    26
    19
    31
    03
    41
Alto