PROGRAMMA SPAZIOMETRIA

LuigiB · 18 Ottobre 2015

mmm brutta storia ... diffilcile dirsi ...e il debug in vb6 ti funziona ?

Joe91 · 19 Ottobre 2015

Ciao Luigi.

Su tutte e due macchine, le macro, funzionano.

Sul PC che che ha il vb. Si. Il debugging in vb funziona.

Questa macchina sembra essere in una situazione migliore.

Nel senso che, s' apre il foglio appare un pulsante per avviare.

Poi però, all'avvio, un errore riporta del mancato ritrovamento della Sub Main.

Sull' altro pc non ha installato il vb ... È attivo solo il debug in excel.

La sua situazione pertanto è quella descritta nei messaggi precedenti.

Cordiali saluti

claudio8 · 20 Ottobre 2015

Un saluto al "faraone" ed al seguito.
E' possibile conoscere il numero massimo, se esiste, di righe per la funzione "CreaTabellaOrdinabile"?
Grazie.

LuigiB · 20 Ottobre 2015

Ciao Claudio No non si puo sapere tuttavia meno sono meglio ė...e ovvio checa te avrebve fatto piacere una risposta molto diversa.

claudio8 · 20 Ottobre 2015

Luigi... quelli della serie "meno siamo e meglio stiamo" erano in tantissimi.
Grazie della risposta "segreta".

forse trovata la risposta .... 30006 controllo FlexGrid accetta massimo 350000 celle

Joe91 · 20 Ottobre 2015

Ciao Luigi.

Buon giorno a tutte/i.

Ho risolto su uno dei PC ... sicchè ora che ho certezza di funzionamento,

posso verificare sull'altra macchina i vari settaggi, verificando ... cosa può causare problemi.

LuigiB · 20 Ottobre 2015

Ciao Joe io non ho ancora avuto tempo per verificare....

LuigiB · 27 Ottobre 2015

ciao questo è un esempio che pone a confronto le funzioni e per testare il file di testo usa l archivio delle estrazioni lotto in csv.
Se non hai il file che si chaima estrazioni.csv fai l'export in excel delle estrazioni da spaziometria e poi salvalo in csv.
nell'esempio si vede come usare le funzioni

Codice:

Option Explicit
Dim nVoltePerTest
Dim clsHSS
Dim aTempo(2)
Dim aLibreria
Sub Main
    Dim Ini,Fin
    ReDim aNum(2)
    ReDim aRuote(1)
    Dim sFileBd
    Dim k
    
    aLibreria = Array("Interna","Turbo","LibEsterna")
    
    aNum(1) = 2
    aNum(2) = 10
    aRuote(1) = 1
    Ini = 5000

    Fin = EstrazioneFin
    nVoltePerTest = 100
    
    
    
     sFileBd = GetDirectoryAppData & "estrazioni.csv"
    
    
    
    Set clsHSS = CreateObject("HSS.ClsHighSpeedStat")
    Call clsHSS.Init(sFileBd,5)
    'Call clsHSS.Init(sFileBd,1)
    
    Dim aTitoli
    aTitoli = Array("","Funzione","Libreria","Tempo","TempoFunzInterna/Tempo")
    Call InitTabella     (aTitoli)
    Dim aValori(4)
    
    Call Scrivi(String(100,"-"))
    Call TestEstrattoRitardo(aNum,aRuote(1),Ini,Fin,1)
    Call TestEstrattoRitardo(aNum,aRuote(1),Ini,Fin,2)
    Call TestEstrattoRitardo(aNum,aRuote(1),Ini,Fin,0)
    Call InsRiga("EstrattoRitardo")
    
    
    
    
    Call Scrivi(String(100,"-"))
    Call TestEstrattoFrequenza(aNum,aRuote(1),Ini,Fin,1)
    Call TestEstrattoFrequenza(aNum,aRuote(1),Ini,Fin,2)
    Call TestEstrattoFrequenza(aNum,aRuote(1),Ini,Fin,0)
    Call InsRiga("EstrattoFrequenza")

    
    Call Scrivi(String(100,"-"))
    Call TestEstrattoStorico(aNum,aRuote(1),Ini,Fin,1)
    Call TestEstrattoStorico(aNum,aRuote(1),Ini,Fin,2)
    Call TestEstrattoStorico(aNum,aRuote(1),Ini,Fin,0)
    Call InsRiga("EstrattoStorico")

    
    Call Scrivi(String(100,"-"))
    Call TestEstrattoIncrStorico(aNum,aRuote(1),Ini,Fin,1)
    Call TestEstrattoIncrStorico(aNum,aRuote(1),Ini,Fin,2)
    Call TestEstrattoIncrStorico(aNum,aRuote(1),Ini,Fin,0)
    Call InsRiga("EstrattoIncrStorico")

    
    Call Scrivi(String(100,"-"))
    Call TestStatisticaFormazione(aNum,aRuote,Ini,Fin,1)
    Call TestStatisticaFormazione(aNum,aRuote,Ini,Fin,2)
    Call TestStatisticaFormazione(aNum,aRuote,Ini,Fin,0)
    Call InsRiga("StatisticaFormazione")


    
    Call Scrivi(String(100,"-"))
    Call TestRitardoCombinazione(aNum,aRuote,Ini,Fin,1)
    Call TestRitardoCombinazione(aNum,aRuote,Ini,Fin,2)
    Call TestRitardoCombinazione(aNum,aRuote,Ini,Fin,0)
    Call InsRiga("RitardoCombinazione")

    
    
    
        
    
    Call Scrivi(String(100,"-"))
    Call TestSerieRitardo(aNum,aRuote,Ini,Fin,2,1)
    Call TestSerieRitardo(aNum,aRuote,Ini,Fin,2,2)
    Call TestSerieRitardo(aNum,aRuote,Ini,Fin,2,0)
    Call InsRiga("SerieRitardo")

    
    
    
    
    
    
    Call Scrivi(String(100,"-"))
    Call TestSerieStorico(aNum,aRuote,Ini,Fin,2,1)
    Call TestSerieStorico(aNum,aRuote,Ini,Fin,2,2)
    Call TestSerieStorico(aNum,aRuote,Ini,Fin,2,0)
    Call InsRiga("SerieStorico")

    
    
    
    Call Scrivi(String(100,"-"))
    Call TestSerieFrequenza(aNum,aRuote,Ini,Fin,2,1)
    Call TestSerieFrequenza(aNum,aRuote,Ini,Fin,2,2)
    Call TestSerieFrequenza(aNum,aRuote,Ini,Fin,2,0)
    Call InsRiga("SerieFrequenza")

    
    
    
    
    Call Scrivi(String(100,"-"))
    Call TestAmboRitardo(aNum,aRuote(1),Ini,Fin,1)
    Call TestAmboRitardo(aNum,aRuote(1),Ini,Fin,2)
    Call TestAmboRitardo(aNum,aRuote(1),Ini,Fin,0)
    Call InsRiga("AmboRitardo")

    
    
    Call Scrivi(String(100,"-"))
    Call TestAmboFrequenza(aNum,aRuote(1),Ini,Fin,1)
    Call TestAmboFrequenza(aNum,aRuote(1),Ini,Fin,2)
    Call TestAmboFrequenza(aNum,aRuote(1),Ini,Fin,0)
    Call InsRiga("AmboFrequenza")

    
    Call Scrivi(String(100,"-"))
    Call TestAmboStorico(aNum,aRuote(1),Ini,Fin,1)
    Call TestAmboStorico(aNum,aRuote(1),Ini,Fin,2)
    Call TestAmboStorico(aNum,aRuote(1),Ini,Fin,0)
    Call InsRiga("AmboStorico")


    
    
    Call Scrivi(String(100,"-"))
    Call TestAmboIncrStorico(aNum,aRuote(1),Ini,Fin,1)
    Call TestAmboIncrStorico(aNum,aRuote(1),Ini,Fin,2)
    Call TestAmboIncrStorico(aNum,aRuote(1),Ini,Fin,0)
    Call InsRiga("AmboIncrStorico")

    
    
    Call Scrivi(String(100,"-"))
    Call TestVerificaEsito(1)
    Call TestVerificaEsito(2)
    Call TestVerificaEsito(0)
    Call InsRiga("VerificaEsito")

    

    
    Call CreaTabella
    
    
    
    

    
    
    
    
    
    Set clsHSS = Nothing
    
End Sub

Sub InsRiga(sNomeFunz)
    Dim k
    ReDim aValori(4)
    For k = 0 To 2
        aValori(1) = sNomeFunz
        aValori(2) = aLibreria(k)
        aValori(3) = aTempo(k)
        aValori(4) = Round(Dividi(aTempo(0),aTempo(k)),3)
        Call AddRigaTabella(aValori)
    Next
    
End Sub
Sub ScriviRisultati(sNomeFunzione,rit,ritmax,Incrmax,freq,tt)
    Call Scrivi(sNomeFunzione & " secondi = " & tt,True)
    If rit >= 0 Then Call Scrivi("Rit    = " & rit)
    If ritmax >= 0 Then Call Scrivi("ritmax  = " & ritmax)
    If Incrmax >= 0 Then Call Scrivi("Incrmax = " & Incrmax)
    If freq >= 0 Then Call Scrivi("freq    = " & freq)
    Call Scrivi
End Sub
Sub TestStatisticaFormazione(aNum,aRuote,Ini,Fin,bTurbo)
    Dim rit,ritmax,Incrmax,freq
    Dim t,tt,k
    If bTurbo = 1 Then
        t = Timer
        For k = 1 To nVoltePerTest
            Call StatisticaFormazioneTurbo(aNum,aRuote,2,rit,ritmax,Incrmax,freq,Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("StatisticaFormazioneTurbo",rit,ritmax,Incrmax,freq,tt)
    ElseIf bTurbo = 0 Then
        t = Timer
        For k = 1 To nVoltePerTest
            Call StatisticaFormazione(aNum,aRuote,2,rit,ritmax,Incrmax,freq,Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("StatisticaFormazione",rit,ritmax,Incrmax,freq,tt)
    ElseIf bTurbo = 2 Then
        t = Timer
        For k = 1 To nVoltePerTest
            Call clsHSS.StatisticaFormazione(aNum,aRuote,2,rit,ritmax,Incrmax,freq,Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("clsHSS.StatisticaFormazione",rit,ritmax,Incrmax,freq,tt)
    End If
    aTempo(bTurbo) = tt
    
End Sub
Sub TestSerieRitardo(aNum,aRuote,Ini,Fin,Sorte,bTurbo)
    Dim rit,ritmax,Incrmax,freq
    Dim t,tt,k
    If bTurbo = 1 Then
        t = Timer
        For k = 1 To nVoltePerTest
            rit = SerieRitardoTurbo(Ini,Fin,aNum,aRuote,Sorte)
        Next
        tt = Timer - t
        Call ScriviRisultati("SerieRitardoTurbo",rit,- 1,- 1,- 1,tt)
    ElseIf bTurbo = 0 Then
        t = Timer
        For k = 1 To nVoltePerTest
            rit = SerieRitardo(Ini,Fin,aNum,aRuote,Sorte)
        Next
        tt = Timer - t
        Call ScriviRisultati("SerieRitardo",rit,- 1,- 1,- 1,tt)
    ElseIf bTurbo = 2 Then
        t = Timer
        For k = 1 To nVoltePerTest
            rit = clsHSS.SerieRitardo(Ini,Fin,aNum,aRuote,Sorte)
        Next
        tt = Timer - t
        Call ScriviRisultati("clsHSS.SerieRitardo",rit,- 1,- 1,- 1,tt)
        
    End If
    aTempo(bTurbo) = tt

End Sub
Sub TestSerieStorico(aNum,aRuote,Ini,Fin,Sorte,bTurbo)
    Dim rit,ritmax,Incrmax,freq
    Dim t,tt,k
    If bTurbo = 1 Then
        t = Timer
        For k = 1 To nVoltePerTest
            ritmax = SerieStoricoTurbo(Ini,Fin,aNum,aRuote,Sorte)
        Next
        tt = Timer - t
        Call ScriviRisultati("SerieStoricoTurbo",- 1,ritmax,- 1,- 1,tt)
    ElseIf bTurbo = 0 Then
        t = Timer
        For k = 1 To nVoltePerTest
            ritmax = SerieStorico(Ini,Fin,aNum,aRuote,Sorte)
        Next
        tt = Timer - t
        Call ScriviRisultati("SerieStorico",- 1,ritmax,- 1,- 1,tt)
    ElseIf bTurbo = 2 Then
        t = Timer
        For k = 1 To nVoltePerTest
            ritmax = clsHSS.SerieStorico(Ini,Fin,aNum,aRuote,Sorte)
        Next
        tt = Timer - t
        Call ScriviRisultati("clsHSS.SerieStorico",- 1,ritmax,- 1,- 1,tt)
    
    End If
    aTempo(bTurbo) = tt

End Sub
Sub TestSerieFrequenza(aNum,aRuote,Ini,Fin,Sorte,bTurbo)
    Dim rit,ritmax,Incrmax,freq
    Dim t,tt,k
    If bTurbo = 1 Then
        t = Timer
        For k = 1 To nVoltePerTest
            freq = SerieFreqTurbo(Ini,Fin,aNum,aRuote,Sorte)
        Next
        tt = Timer - t
        Call ScriviRisultati("SerieFrequenzaTurbo",- 1,- 1,- 1,freq,tt)
    ElseIf bTurbo = 0 Then
        t = Timer
        For k = 1 To nVoltePerTest
            freq = SerieFreq(Ini,Fin,aNum,aRuote,Sorte)
        Next
        tt = Timer - t
        Call ScriviRisultati("SerieFrequenza",- 1,- 1,- 1,freq,tt)
    ElseIf bTurbo = 2 Then
        t = Timer
        For k = 1 To nVoltePerTest
            freq = clsHSS.SerieFreq(Ini,Fin,aNum,aRuote,Sorte)
        Next
        tt = Timer - t
        Call ScriviRisultati("clsHSS.SerieFrequenza",- 1,- 1,- 1,freq,tt)

    End If
    aTempo(bTurbo) = tt

End Sub
Sub TestAmboRitardo(aNum,Ruota,Ini,Fin,bTurbo)
    Dim rit,ritmax,Incrmax,freq
    Dim t,tt,k
    If bTurbo = 1 Then
        t = Timer
        For k = 1 To nVoltePerTest
            rit = AmboRitardoTurbo(Ruota,aNum(1),aNum(2),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("AmboRitardoTurbo",rit,- 1,- 1,- 1,tt)
    ElseIf bTurbo = 0 Then
        t = Timer
        For k = 1 To nVoltePerTest
            rit = AmboRitardo(Ruota,aNum(1),aNum(2),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("AmboRitardo",rit,- 1,- 1,- 1,tt)
    ElseIf bTurbo = 2 Then
        t = Timer
        For k = 1 To nVoltePerTest
            rit = clsHSS.AmboRitardo(Ruota,aNum(1),aNum(2),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("clsHSS.AmboRitardo",rit,- 1,- 1,- 1,tt)

    End If
    aTempo(bTurbo) = tt

End Sub
Sub TestAmboFrequenza(aNum,Ruota,Ini,Fin,bTurbo)
    Dim rit,ritmax,Incrmax,freq
    Dim t,tt,k
    If bTurbo = 1 Then
        t = Timer
        For k = 1 To nVoltePerTest
            freq = AmboFrequenzaTurbo(Ruota,aNum(1),aNum(2),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("AmboFrequenzaTurbo",- 1,- 1,- 1,freq,tt)
    ElseIf bTurbo = 0 Then

        t = Timer
        For k = 1 To nVoltePerTest
            freq = AmboFrequenza(Ruota,aNum(1),aNum(2),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("AmboFrequenza",- 1,- 1,- 1,freq,tt)
    ElseIf bTurbo = 2 Then

        t = Timer
        For k = 1 To nVoltePerTest
            freq = clsHSS.AmboFrequenza(Ruota,aNum(1),aNum(2),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("clsHSS.AmboFrequenza",- 1,- 1,- 1,freq,tt)

    End If
    aTempo(bTurbo) = tt

End Sub
Sub TestAmboStorico(aNum,Ruota,Ini,Fin,bTurbo)
    Dim rit,ritmax,Incrmax,freq
    Dim t,tt,k
    If bTurbo = 1 Then
        t = Timer
        For k = 1 To nVoltePerTest
            ritmax = AmboStoricoTurbo(Ruota,aNum(1),aNum(2),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("AmboStoricoTurbo",- 1,ritmax,- 1,- 1,tt)
    ElseIf bTurbo = 0 Then
        t = Timer
        For k = 1 To nVoltePerTest
            ritmax = AmboStorico(Ruota,aNum(1),aNum(2),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("AmboStorico",- 1,ritmax,- 1,- 1,tt)
    ElseIf bTurbo = 2 Then
        t = Timer
        For k = 1 To nVoltePerTest
            ritmax = clsHSS.AmboStorico(Ruota,aNum(1),aNum(2),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("clsHSS.AmboStorico",- 1,ritmax,- 1,- 1,tt)
    
    End If
    aTempo(bTurbo) = tt

End Sub
Sub TestAmboIncrStorico(aNum,Ruota,Ini,Fin,bTurbo)
    Dim rit,ritmax,Incrmax,freq
    Dim t,tt,k
    If bTurbo = 1 Then
        t = Timer
        For k = 1 To nVoltePerTest
            Incrmax = AmboIncrStoricoTurbo(Ruota,aNum(1),aNum(2),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("AmboIncrStoricoTurbo",- 1,- 1,Incrmax,- 1,tt)
    ElseIf bTurbo = 0 Then
        t = Timer
        For k = 1 To nVoltePerTest
            Incrmax = AmboIncrStorico(Ruota,aNum(1),aNum(2),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("AmboIncrStorico",- 1,- 1,Incrmax,- 1,tt)
    ElseIf bTurbo = 2 Then
        t = Timer
        For k = 1 To nVoltePerTest
            Incrmax = clsHSS.AmboIncrStorico(Ruota,aNum(1),aNum(2),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("clsHSS.AmboIncrStorico",- 1,- 1,Incrmax,- 1,tt)
            
    End If
    aTempo(bTurbo) = tt

End Sub
Sub TestEstrattoRitardo(aNum,Ruota,Ini,Fin,bTurbo)
    Dim rit,ritmax,Incrmax,freq
    Dim t,tt,k
    If bTurbo = 1 Then
        t = Timer
        For k = 1 To nVoltePerTest
            rit = EstrattoRitardoTurbo(Ruota,aNum(1),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("EstrattoRitardoTurbo",rit,- 1,- 1,- 1,tt)
    ElseIf bTurbo = 0 Then
        t = Timer
        For k = 1 To nVoltePerTest
            rit = EstrattoRitardo(Ruota,aNum(1),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("EstrattoRitardo",rit,- 1,- 1,- 1,tt)
    ElseIf bTurbo = 2 Then
        t = Timer
        For k = 1 To nVoltePerTest
            rit = clsHSS.EstrattoRitardo(Ruota,aNum(1),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("clsHSS.EstrattoRitardo",rit,- 1,- 1,- 1,tt)

    End If
    aTempo(bTurbo) = tt

End Sub
Sub TestEstrattoFrequenza(aNum,Ruota,Ini,Fin,bTurbo)
    Dim rit,ritmax,Incrmax,freq
    Dim t,tt,k
    If bTurbo = 1 Then
        t = Timer
        For k = 1 To nVoltePerTest
            freq = EstrattoFrequenzaTurbo(Ruota,aNum(1),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("EstrattoFrequenzaTurbo",- 1,- 1,- 1,freq,tt)
    ElseIf bTurbo = 0 Then

        t = Timer
        For k = 1 To nVoltePerTest
            freq = EstrattoFrequenza(Ruota,aNum(1),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("EstrattoFrequenza",- 1,- 1,- 1,freq,tt)
    ElseIf bTurbo = 2 Then

        t = Timer
        For k = 1 To nVoltePerTest
            freq = clsHSS.EstrattoFrequenza(Ruota,aNum(1),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("clsHSS.EstrattoFrequenza",- 1,- 1,- 1,freq,tt)

    End If
    aTempo(bTurbo) = tt

End Sub
Sub TestEstrattoStorico(aNum,Ruota,Ini,Fin,bTurbo)
    Dim rit,ritmax,Incrmax,freq
    Dim t,tt,k
    If bTurbo = 1 Then
        t = Timer
        For k = 1 To nVoltePerTest
            ritmax = EstrattoStoricoTurbo(Ruota,aNum(1),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("EstrattoStoricoTurbo",- 1,ritmax,- 1,- 1,tt)
    ElseIf bTurbo = 0 Then

        t = Timer
        For k = 1 To nVoltePerTest
            ritmax = EstrattoStorico(Ruota,aNum(1),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("EstrattoStorico",- 1,ritmax,- 1,- 1,tt)
    ElseIf bTurbo = 2 Then

        t = Timer
        For k = 1 To nVoltePerTest
            ritmax = clsHSS.EstrattoStorico(Ruota,aNum(1),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("clsHSS.EstrattoStorico",- 1,ritmax,- 1,- 1,tt)
    End If
    aTempo(bTurbo) = tt

End Sub
Sub TestEstrattoIncrStorico(aNum,Ruota,Ini,Fin,bTurbo)
    Dim rit,ritmax,Incrmax,freq
    Dim t,tt,k
    If bTurbo = 1 Then
        t = Timer
        For k = 1 To nVoltePerTest
            Incrmax = EstrattoIncrStoricoTurbo(Ruota,aNum(1),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("EstrattoIncrStoricoTurbo",- 1,- 1,Incrmax,- 1,tt)
    ElseIf bTurbo = 0 Then

        t = Timer
        For k = 1 To nVoltePerTest
            Incrmax = EstrattoIncrStorico(Ruota,aNum(1),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("EstrattoIncrStorico",- 1,- 1,Incrmax,- 1,tt)
    ElseIf bTurbo = 2 Then

        t = Timer
        For k = 1 To nVoltePerTest
            Incrmax = clsHSS.EstrattoIncrStorico(Ruota,aNum(1),Ini,Fin)
        Next
        tt = Timer - t
        Call ScriviRisultati("clsHSS.EstrattoIncrStorico",- 1,- 1,Incrmax,- 1,tt)
        
    End If
    aTempo(bTurbo) = tt

End Sub
Sub TestRitardoCombinazione(aNum,aRuote,Ini,Fin,bTurbo)
    Dim rit,ritmax,Incrmax,freq
    Dim t,tt,k
    If bTurbo = 1 Then
        t = Timer
        For k = 1 To nVoltePerTest
            rit = RitardoCombinazioneTurbo(aRuote,aNum,2,Fin,,,Ini)
        Next
        tt = Timer - t
        Call ScriviRisultati("RitardoCombinazioneTurbo",rit,- 1,- 1,- 1,tt)
    ElseIf bTurbo = 0 Then

        t = Timer
        For k = 1 To nVoltePerTest
            rit = RitardoCombinazione(aRuote,aNum,2,Fin,,,Ini)
        Next
        tt = Timer - t
        Call ScriviRisultati("RitardoCombinazione",rit,- 1,- 1,- 1,tt)
    ElseIf bTurbo = 2 Then

        t = Timer
        For k = 1 To nVoltePerTest
            rit = clsHSS.RitardoCombinazione(aRuote,aNum,2,Fin,,,Ini)
        Next
        tt = Timer - t
        Call ScriviRisultati("clsHSS.RitardoCombinazione",rit,- 1,- 1,- 1,tt)

    End If
    aTempo(bTurbo) = tt

End Sub
Sub TestVerificaEsito(bTurbo)
    ReDim aNum(4) ' array contenente il pronostico
    ReDim aRt(2) ' array contenente le ruote
    Dim idEstrInizio ' estrazione da dove comincia la verifica dell'esito
    Dim RetEsito ' torna il nome della sorte (estratto , ambo ...ecc)
    Dim RetColpi ' torna i colpi impiegti fino al raggiungimento dell'esito
    Dim RetEstratti ' torna i numeri estratti
    Dim RetIdEstr ' torna lidentificativo numerico dell'estrazione in cui si è avuto l'esito
    Dim k
    Dim Somma
    Dim bEsito
    Dim t,tt
    'imposto il pronostico da verificare
    aNum(1) = 4
    aNum(2) = 8
    aNum(3) = 12
    aNum(4) = 16
    ' imposto le ruote su cui giocare
    aRt(1) = BA_
    aRt(2) = RO_
    ' imposto l'estrazione da dove parte la verifica
    idEstrInizio = 5000
    t = Timer
    For k = 1 To nVoltePerTest
        If bTurbo = 1 Then
            bEsito = VerificaEsitoTurbo(aNum,aRt,idEstrInizio,3,,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
        ElseIf bTurbo = 0 Then
            bEsito = VerificaEsito(aNum,aRt,idEstrInizio,3,,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
        ElseIf bTurbo = 2 Then
            bEsito = clsHSS.VerificaEsito(aNum,aRt,idEstrInizio,3,,,RetEsito,RetColpi,RetEstratti,RetIdEstr)

        End If
    Next
    tt = Timer - t
    If bTurbo = 1 Then
        Call ScriviRisultati("VerificaEsitoTurbo",- 1,- 1,- 1,- 1,tt)
    ElseIf bTurbo = 0 Then
        Call ScriviRisultati("VerificaEsito",- 1,- 1,- 1,- 1,tt)
    ElseIf bTurbo = 2 Then
        Call ScriviRisultati("clsHSS.VerificaEsito",- 1,- 1,- 1,- 1,tt)
    End If
    If bEsito Then
        Call Scrivi(GetInfoEstrazione(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
    Else
        Call Scrivi("Esito negativo")
    End If
    aTempo(bTurbo) = tt

End Sub
Sub TestRitardoEstratto(aNum,Ruota,Ini,Fin,bTurbo)
    Dim rit,ritmax,Incrmax,freq
    Dim t,tt,k
    If bTurbo = 1 Then
        t = Timer
        For k = 1 To nVoltePerTest
            rit = RitardoEstrattoTurbo(aNum(1),Fin,Ruota,,,Ini)
        Next
        tt = Timer - t
        Call ScriviRisultati("RitardoEstrattoTurbo",rit,- 1,- 1,- 1,tt)
    ElseIf bTurbo = 0 Then
        t = Timer
        For k = 1 To nVoltePerTest
            rit = RitardoEstratto(aNum(1),Fin,Ruota,,,Ini)
        Next
        tt = Timer - t
        Call ScriviRisultati("RitardoEstratto",rit,- 1,- 1,- 1,tt)
    ElseIf bTurbo = 2 Then
        t = Timer
        For k = 1 To nVoltePerTest
            rit = clsHSS.RitardoEstratto(aNum(1),Fin,Ruota,,,Ini)
        Next
        tt = Timer - t
        Call ScriviRisultati("clsHSS.RitardoEstratto",rit,- 1,- 1,- 1,tt)

    End If
    aTempo(bTurbo) = tt

End Sub

franca46 · 19 Novembre 2015

buona serata a tutti

ho aggiornato spaziometria all'ultima versione , ma non mi aggiorna gli archivi.

grazie a chi potrà rispondere

Roby · 19 Novembre 2015

Buongiorno,
Salutando Luigi.
Quando ha tempo e voglia , se poteva implementare questi codici , che mancano , per il SuperEnalotto
Nel frattempo , uso

Codice:

StatEstrattoSE

Qui sotto l' elenco.

Codice:

EstrattoFrequenza

EstrattoIncrStorico

EstrattoStorico

Grazie , per l' interessamento.

LuigiB · 19 Novembre 2015

ciao DiSaronno , vedremo prossimamente , nel frattempo dato che veddo che sei bravino non credo tu abbia difficoltà ad usare le funzioni della classe che implementa le statistiche veloci , mi sembra che li queste funzioni ci siano (veramente non ricordo ma mi sembra di si) ..usare quella libreria da estremi vantaggi in fatto di velocità di elaborazione .. ad ogni modo come dicevo impleeterò anche le funzioni tradizionali

Joe91 · 19 Novembre 2015

X Franca controlla di aver scelto di aggiornare

l' Archivio reale... (in basso a sinistra) altri.. non sono scaricabili,

ma si aggiorneranno attraverso calcoli effettuati direttamente

da Spaziometria.

silop2005 · 19 Novembre 2015

franca46;n1936418 ha scritto:
buona serata a tutti

ho aggiornato spaziometria all'ultima versione , ma non mi aggiorna gli archivi.

grazie a chi potrà rispondere

=========================================== [TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 832"]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]Ciao franca46 ,[/TD]
[/TR]
[TR]
[TD]....gli archivi lotto non si aggiornano più dal sito :[/TD]
[/TR]
[TR]
[TD]estrazionedellotto.com[/TD]
[/TR]
[TR]
[TD]perché non aggiornano il loro sito in tempo reale….[/TD]
[/TR]
[TR]
[TD]quindi devi aggiornare dal sito :[/TD]
[/TR]
[TR]
[TD]web di Lottoced[/TD]
[/TR]
[TR]
[TD]========================[/TD]
[/TR]
[TR]
[TD]Per fare questo, devi seguire il seguente percorso :[/TD]
[/TR]
[TR]
[TD]Base Dati/Aggiornamento lotto/da web[/TD]
[/TR]
[TR]
[TD]e poi quando si apre la finestra : Selezione fonte aggiornamento[/TD]
[/TR]
[TR]
[TD]devi cliccare su : Da web Lottoced[/TD]
[/TR]
[TR]
[TD]e premi OK[/TD]
[/TR]
[TR]
[TD]e subito si aggiorneranno le estrazioni del lotto fino a questa sera del 19/11/2015[/TD]
[/TR]
[TR]
[TD]========================[/TD]
[/TR]
[TR]
[TD]Nella speranza di esserti stato utile ti auguro una buona notte.[/TD]
[/TR]
[TR]
[TD]========================[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Buona notte a tutti.[/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD]Silop

[/TD]
[/TR]
[/TABLE]

franca46 · 20 Novembre 2015

buon giorno a tutti ,

si è aggiornato , silop grazie infinite .

Joe91 · 20 Novembre 2015

Ciao Luigi,

volevo chiederti se cortesemente potevi ampliare ... lo spazio della finestrella,

così da poter leggere tutta l'istruzione.

Cordiali saluti.

Grazie.

LuigiB · 20 Novembre 2015

DiSaronno , Joe e Solare ho accontentato un po' tutti .. solo la richiesa di Solare è stata implementata parzialmente , non ho messo il contatore delle giocate , inoltre quando si immette una combinazione avvengono due statistiche , la prima si riferisce alla massima sorte possibile della lunghetta (se metto due numeri ambo, tre terno e cosi via ) sulle ruote indicate considerate unite
la seconda statistica considera gli estratti che componevano le formazioni di cui si cercano le convergenze su ruota singola per estratto.
In pratica la statistica la fa su sorti obbligate.

Rosanna · 21 Novembre 2015

Buonasera a tutti... è tantissimo che non entro nel forum e non apro spaziometria. Vicissitudini e scelte... vabbè.
Una domanda che vi sembrerà sciocca ma sono ferma da troppo tempo, arrugginita e cotta. Faccio prima a chiedere...
Ho Spaziometria fermo a 1.40.70... basta fare un aggiornamento o devo disinstallare e procedere da installare l'ultima versione?
Chissà quante cose cambiate. Purtroppo non ricordo nulla... tranne i nomi di vecchi "amici del web", che saluto tanto...

Ciao
Rosanna

LuigiB · 21 Novembre 2015

ciao Rosanna ben ritrovata ... e bentornata .. basta che scarichi il setup e lo esegui ..

silop2005 · 21 Novembre 2015

[TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 832"]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]Ciao Rosanna ,[/TD]
[/TR]
[TR]
[TD]un caloroso saluto anche da parte mia.[/TD]
[/TR]
[TR]
[TD]========================[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Buona serata a tutti.[/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD]Silop

[/TD]
[/TR]
[/TABLE]

Rosanna · 22 Novembre 2015

Grazie... grazie mille. Ciao LuigiB e Silop

PROGRAMMA SPAZIOMETRIA

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

Premium Member

LuigiB

Guest

Premium Member

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

Roby

Guest

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Super Member >PLATINUM<

LuigiB

Guest

Advanced Member >PLATINUM<

Super Member >PLATINUM<