Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Tutto funzionante grazie LuigiB sei sempre immensamente eccezionale.mike prova a fare cosi
cancella il file in c:\windows\system32\fstspz.dll
e poi rifai il setup
ciao
nella versione 1.3.90 sono state introdotte le seguenti funzioni per gli script valide per il lotto
StatisticaFormazioneTurbo
StatAmboTurbo
SerieRitardoTurbo
SerieFreqTurbo
SerieStoricoTurbo
VerificaEsitoTurbo
AmboRitardoTurbo
AmboFrequenzaTurbo
AmboStoricoTurbo
AmboIncrStoricoTurbo
EstrattoRitardoTurbo
EstrattoStoricoTurbo
EstrattoFrequenzaTurbo
EstrattoIncrStoricoTurbo
come si nota dai nomi sono la versione turbo di funzioni che gia c'erano , fanno le stesse cose , accettano gli stessi
identici parametri ma svolgono il lavoro in modo estremamente piu veloce rispetto alle analoghe non turbo ,
quindi in sintesi nei propri script dove sono presenti le funzioni di cui è presente la corrsipettiva turbo
bastera solo cambiare i nomi alla chiamate per ottenere un rendimento in velocità di elborazione molto superiore
a prima.
per esempio se prima avevo
rit = EstrattoRitardo(Ruota,aNum(1),Ini,Fin)
bastera cambiare il nome con
rit = EstrattoRitardoTurbo(Ruota,aNum(1),Ini,Fin)
questo script che segue dimostra che le funzioni turbo danno gli stessi risultati delle loro analoghe non turbo
Codice:Option Explicit Sub Main Dim Ini,Fin ReDim aNum(2) ReDim aRuote(1) aNum(1) = 1 aNum(2) = 2 aRuote(1) = NZ_ Ini = EstrazioneIni Fin = EstrazioneFin Call TestStatisticaFormazione(aNum,aRuote,Ini,Fin,True) Call TestStatisticaFormazione(aNum,aRuote,Ini,Fin,False) Call Scrivi(String(100,"-")) Call TestAmboRitardo(aNum,aRuote(1),Ini,Fin,True) Call TestAmboRitardo(aNum,aRuote(1),Ini,Fin,False) Call Scrivi(String(100,"-")) Call TestAmboFrequenza(aNum,aRuote(1),Ini,Fin,True) Call TestAmboFrequenza(aNum,aRuote(1),Ini,Fin,False) Call Scrivi(String(100,"-")) Call TestAmboStorico(aNum,aRuote(1),Ini,Fin,True) Call TestAmboStorico(aNum,aRuote(1),Ini,Fin,False) Call Scrivi(String(100,"-")) Call TestAmboIncrStorico(aNum,aRuote(1),Ini,Fin,True) Call TestAmboIncrStorico(aNum,aRuote(1),Ini,Fin,False) Call Scrivi(String(100,"-")) Call TestEstrattoRitardo(aNum,aRuote(1),Ini,Fin,True) Call TestEstrattoRitardo(aNum,aRuote(1),Ini,Fin,False) Call Scrivi(String(100,"-")) Call TestEstrattoFrequenza(aNum,aRuote(1),Ini,Fin,True) Call TestEstrattoFrequenza(aNum,aRuote(1),Ini,Fin,False) Call Scrivi(String(100,"-")) Call TestEstrattoStorico(aNum,aRuote(1),Ini,Fin,True) Call TestEstrattoStorico(aNum,aRuote(1),Ini,Fin,False) Call Scrivi(String(100,"-")) Call TestEstrattoIncrStorico(aNum,aRuote(1),Ini,Fin,True) Call TestEstrattoIncrStorico(aNum,aRuote(1),Ini,Fin,False) Call Scrivi(String(100,"-")) 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 Then t = Timer For k = 1 To 1000 Call StatisticaFormazioneTurbo(aNum,aRuote,2,rit,ritmax,Incrmax,freq,Ini,Fin) Next tt = Timer - t Call ScriviRisultati("StatisticaFormazioneTurbo",rit,ritmax,Incrmax,freq,tt) Else t = Timer For k = 1 To 1000 Call StatisticaFormazione(aNum,aRuote,2,rit,ritmax,Incrmax,freq,Ini,Fin) Next tt = Timer - t Call ScriviRisultati("StatisticaFormazione",rit,ritmax,Incrmax,freq,tt) End If End Sub Sub TestAmboRitardo(aNum,Ruota,Ini,Fin,bTurbo) Dim rit,ritmax,Incrmax,freq Dim t,tt,k If bTurbo Then t = Timer For k = 1 To 1000 rit = AmboRitardoTurbo(Ruota,aNum(1),aNum(2),Ini,Fin) Next tt = Timer - t Call ScriviRisultati("AmboRitardoTurbo",rit,- 1,- 1,- 1,tt) Else t = Timer For k = 1 To 1000 rit = AmboRitardo(Ruota,aNum(1),aNum(2),Ini,Fin) Next tt = Timer - t Call ScriviRisultati("AmboRitardo",rit,- 1,- 1,- 1,tt) End If End Sub Sub TestAmboFrequenza(aNum,Ruota,Ini,Fin,bTurbo) Dim rit,ritmax,Incrmax,freq Dim t,tt,k If bTurbo Then t = Timer For k = 1 To 1000 freq = AmboFrequenzaTurbo(Ruota,aNum(1),aNum(2),Ini,Fin) Next tt = Timer - t Call ScriviRisultati("AmboFrequenzaTurbo",- 1,- 1,- 1,freq,tt) Else t = Timer For k = 1 To 1000 freq = AmboFrequenza(Ruota,aNum(1),aNum(2),Ini,Fin) Next tt = Timer - t Call ScriviRisultati("AmboFrequenza",- 1,- 1,- 1,freq,tt) End If End Sub Sub TestAmboStorico(aNum,Ruota,Ini,Fin,bTurbo) Dim rit,ritmax,Incrmax,freq Dim t,tt,k If bTurbo Then t = Timer For k = 1 To 1000 ritmax = AmboStoricoTurbo(Ruota,aNum(1),aNum(2),Ini,Fin) Next tt = Timer - t Call ScriviRisultati("AmboStoricoTurbo",- 1,ritmax,- 1,- 1,tt) Else t = Timer For k = 1 To 1000 ritmax = AmboStorico(Ruota,aNum(1),aNum(2),Ini,Fin) Next tt = Timer - t Call ScriviRisultati("AmboStorico",- 1,ritmax,- 1,- 1,tt) End If End Sub Sub TestAmboIncrStorico(aNum,Ruota,Ini,Fin,bTurbo) Dim rit,ritmax,Incrmax,freq Dim t,tt,k If bTurbo Then t = Timer For k = 1 To 1000 Incrmax = AmboIncrStoricoTurbo(Ruota,aNum(1),aNum(2),Ini,Fin) Next tt = Timer - t Call ScriviRisultati("AmboIncrStoricoTurbo",- 1,- 1,Incrmax,- 1,tt) Else t = Timer For k = 1 To 1000 Incrmax = AmboIncrStorico(Ruota,aNum(1),aNum(2),Ini,Fin) Next tt = Timer - t Call ScriviRisultati("AmboIncrStorico",- 1,- 1,Incrmax,- 1,tt) End If End Sub Sub TestEstrattoRitardo(aNum,Ruota,Ini,Fin,bTurbo) Dim rit,ritmax,Incrmax,freq Dim t,tt,k If bTurbo Then t = Timer For k = 1 To 1000 rit = EstrattoRitardoTurbo(Ruota,aNum(1),Ini,Fin) Next tt = Timer - t Call ScriviRisultati("EstrattoRitardoTurbo",rit,- 1,- 1,- 1,tt) Else t = Timer For k = 1 To 1000 rit = EstrattoRitardo(Ruota,aNum(1),Ini,Fin) Next tt = Timer - t Call ScriviRisultati("EstrattoRitardo",rit,- 1,- 1,- 1,tt) End If End Sub Sub TestEstrattoFrequenza(aNum,Ruota,Ini,Fin,bTurbo) Dim rit,ritmax,Incrmax,freq Dim t,tt,k If bTurbo Then t = Timer For k = 1 To 1000 freq = EstrattoFrequenzaTurbo(Ruota,aNum(1),Ini,Fin) Next tt = Timer - t Call ScriviRisultati("EstrattoFrequenzaTurbo",- 1,- 1,- 1,freq,tt) Else t = Timer For k = 1 To 1000 freq = EstrattoFrequenza(Ruota,aNum(1),Ini,Fin) Next tt = Timer - t Call ScriviRisultati("EstrattoFrequenza",- 1,- 1,- 1,freq,tt) End If End Sub Sub TestEstrattoStorico(aNum,Ruota,Ini,Fin,bTurbo) Dim rit,ritmax,Incrmax,freq Dim t,tt,k If bTurbo Then t = Timer For k = 1 To 1000 ritmax = EstrattoStoricoTurbo(Ruota,aNum(1),Ini,Fin) Next tt = Timer - t Call ScriviRisultati("EstrattoStoricoTurbo",- 1,ritmax,- 1,- 1,tt) Else t = Timer For k = 1 To 1000 ritmax = EstrattoStorico(Ruota,aNum(1),Ini,Fin) Next tt = Timer - t Call ScriviRisultati("EstrattoStorico",- 1,ritmax,- 1,- 1,tt) End If End Sub Sub TestEstrattoIncrStorico(aNum,Ruota,Ini,Fin,bTurbo) Dim rit,ritmax,Incrmax,freq Dim t,tt,k If bTurbo Then t = Timer For k = 1 To 1000 Incrmax = EstrattoIncrStoricoTurbo(Ruota,aNum(1),Ini,Fin) Next tt = Timer - t Call ScriviRisultati("EstrattoIncrStoricoTurbo",- 1,- 1,Incrmax,- 1,tt) Else t = Timer For k = 1 To 1000 Incrmax = EstrattoIncrStorico(Ruota,aNum(1),Ini,Fin) Next tt = Timer - t Call ScriviRisultati("EstrattoIncrStorico",- 1,- 1,Incrmax,- 1,tt) End If End Sub
ho installato subito sul portatile, errore persiste
aggiornamento tutto ok
ciao
Vedi l'allegato 4140
StatisticaFormazioneTurbo secondi : 0,5
Rit : 513
ritmax : 513
Incrmax : 196
freq : 4
StatisticaFormazione secondi : 1,3125
Rit : 513
ritmax : 513
Incrmax : 196
freq : 4
----------------------------------------------------------------------------------------------------
AmboRitardoTurbo secondi : 0,09375
Rit : 513
AmboRitardo secondi : 0,3125
Rit : 513
----------------------------------------------------------------------------------------------------
AmboFrequenzaTurbo secondi : 0,5
freq : 4
AmboFrequenza secondi : 1,28125
freq : 4
----------------------------------------------------------------------------------------------------
AmboStoricoTurbo secondi : 0,5
ritmax : 513
AmboStorico secondi : 1,3125
ritmax : 513
----------------------------------------------------------------------------------------------------
AmboIncrStoricoTurbo secondi : 0,5
Incrmax : 196
AmboIncrStorico secondi : 1,265625
Incrmax : 196
----------------------------------------------------------------------------------------------------
EstrattoRitardoTurbo secondi : 0,046875
Rit : 10
EstrattoRitardo secondi : 1,25
Rit : 10
----------------------------------------------------------------------------------------------------
EstrattoFrequenzaTurbo secondi : 0,515625
freq : 64
EstrattoFrequenza secondi : 1,234375
freq : 64
----------------------------------------------------------------------------------------------------
EstrattoStoricoTurbo secondi : 0,515625
ritmax : 111
EstrattoStorico secondi : 1,25
ritmax : 111
----------------------------------------------------------------------------------------------------
EstrattoIncrStoricoTurbo secondi : 0,515625
Incrmax : 0
EstrattoIncrStorico secondi : 1,265625
Incrmax : 0
----------------------------------------------------------------------------------------------------
confermo trovato anch'io in syswow64 e ora tutto è funzionante. Mike potresti dettagliare che fa quello script a pag 2 che ha modificato Luigi per esplicitare le nuove funzioni?Ottimo Luigi, trovato( era in syswow64) e ora tutto è funzionante.
Grazie come sempre.
Mike