Novità

Variante script

Marcorun

Marcorun

Advanced Member >GOLD<
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
 
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
 
GRAZIE mille....
ho notato un particolare un pò fastidioso...
non si può scegliere un'esito superiore al 5
 
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
 
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:
Funziona bene...
al momento sembra ok
spero che possa essere utile anche a qualcun'altro
GRAZIE CLAUDIO8,sei bravissimo e sempre disponibile 👋 👋 👋 👋 👏👏👏👏
CIAO
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto