Novità

Per gli scripter

L

LuigiB

Guest
Volevo informare che nella nuovaversione 1.3.89 ho aggiunto una funzione statistica da usare negli script
che è molto piu performante rispetto all'analoga che gia c'era.
Sul mio pc è circa 8 volte piu veloce.
Per ora la funzione è presente solo per il lotto.
La funzione a cui mi riferisco è StatisticaFormazione che serve appunto per fare la statistica su un qualsivoglia gruppo numerico su qualsivoglia numero di ruote.
Ora ho aggiunto la funzione analoga (ha addirittura gli stessi parametri quindi basta solo cambiare nome nei propri script) che si chiama appunto StatFrzTurbo
Provate questo banale script che ricerca l'ambo piu ritardato sulla ruota di bari mediante l'uso di tutte e due le funzioni quella vecchia e quella nuova , poi fatemi sapere le prestazioni.

Codice:
Option Explicit
Sub Main
	Dim a,b
	Call Scrivi("Test di velocita per la nuova funzione StaFrzTurbo")
	Call Scrivi("Verrà individuto l'ambo piu ritardato sulla ruota di Bari")
	Call Scrivi
	a = EseguiStatTurbo
	Call Scrivi
	b = EseguiStatFormazione
	Call Scrivi(b/a & " volte piu veloce")
End Sub
Function EseguiStatTurbo
	Dim t,tt
	ReDim aN(2)
	ReDim aR(1)
	Dim rit
	Dim k,r
	Dim s
	Dim nClasse,nColonneTot
	ReDim aNumeri(90)
	Dim aCol
	Dim RitMax
	t = Timer
	aR(1) = 1
	nClasse = 2 ' sviluppo in ambi
	For k = 1 To 90
		aNumeri(k) = k
	Next
	'inizializza lo sviluppo
	nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
	k = 0
	' ciclo che continua fiono a quando le colonne non finiscono
	Do While GetCombSviluppo(aCol)
		k = k + 1 ' conteggio colonna corrente
		Call StatFrzTurbo(aCol,aR,2,rit,0,0,0)
		' costruisco la stringa che contiene la colonna
		If rit > RitMax Then
			RitMax = rit
			s = StringaNumeri(aCol)
		End If
	Loop
	tt = Timer - t
	Call Scrivi(" funzione StatFrzTurbo secondi : " & tt)
	Call Scrivi("Ambo : " & s & " " & RitMax)
	EseguiStatTurbo = tt
End Function
Function EseguiStatFormazione
	Dim t,tt
	ReDim aN(2)
	ReDim aR(1)
	Dim rit
	Dim k,r
	Dim s
	Dim nClasse,nColonneTot
	ReDim aNumeri(90)
	Dim aCol
	Dim RitMax
	t = Timer
	aR(1) = 1
	nClasse = 2 ' sviluppo in ambi
	For k = 1 To 90
		aNumeri(k) = k
	Next
	'inizializza lo sviluppo
	nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
	k = 0
	' ciclo che continua fiono a quando le colonne non finiscono
	Do While GetCombSviluppo(aCol)
		k = k + 1 ' conteggio colonna corrente
		Call StatisticaFormazione(aCol,aR,2,rit,0,0,0)
		' costruisco la stringa che contiene la colonna
		If rit > RitMax Then
			RitMax = rit
			s = StringaNumeri(aCol)
		End If
	Loop
	tt = Timer - t
	Call Scrivi(" funzione StatisticaFormazione secondi : " & tt)
	Call Scrivi("Ambo : " & s & " " & RitMax)
	EseguiStatFormazione = tt
End Function
 
Ultima modifica di un moderatore:

Mike58

Advanced Member >PLATINUM PLUS<
Ottimo Luigi, questo è il mio risultato, Grazie.


Test di velocita per la nuova funzione StaFrzTurbo
Verrà individuto l'ambo piu ritardato sulla ruota di Bari

funzione StatFrzTurbo secondi : 4.492188
Ambo : 17.56 5884

funzione StatisticaFormazione secondi : 34.10156
Ambo : 17.56 5884

7.591304 volte piu veloce
 
Ultima modifica:
R

Roby

Guest
Ciao Luigi grazie, il mio risultato è questo...


Test di velocita per la nuova funzione StaFrzTurbo
Verrà individuto l'ambo piu ritardato sulla ruota di Bari

funzione StatFrzTurbo secondi : 2,828125
Ambo : 17.56 5884

funzione StatisticaFormazione secondi : 22,1875
Ambo : 17.56 5884
7,845304 volte piu veloce
 
L

LuigiB

Guest
perfetto , se mi dite quali sono le funzioni che usate di piu negli script di statistica vedo se posso implementare anche le corrispettive Turbo :)
 

Mike58

Advanced Member >PLATINUM PLUS<
Luigi, per quel che mi riguarda io uso molto le solite X STATISTICHE SERIEFREQ SERIERITARDO ESTRATTORITARDO-FREQUENZA AMBORITARDO AMBOFREQUENZA - VERIFICAESITO
Se fosse possibile velocizzarle soprattutto l'amboritardo sarebbe cosa molto utile.

Un saluto e una buona giornata(21-12-2012)
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Luigi,scusa se ti importuno un pochetto ma questa funzione mi intrippa un po' ed ho voluto fare delle ulteriori verifiche in specialmodo sullo script che ti allego.
Lo script usa la funzione statambo e da certi risultati in sviluppo ambi in termine di freq. con un tempo di elaborazione di circa 3:24 min:sec.
Invece usando la funzione statfrzturbo questa modifica i risultati in termini di frequenza ed il tempo rimane pressoche uguale.
Sicuramente erro qualcosa io ma giusto per verificarne il test puoi dargli una occhiata.

Ciao con stima Mike.


Codice:
Sub Main
 Dim n1,n2,anum(2)
 Dim ruote(1),rt(10)
 nStart = Timer
 r = InputBox("Quale Ruota",,11)
 ruote(1) = r
 ReDim atitoli(17)
 atitoli(1) = " Data "
 atitoli(2) = " Ruota "
 atitoli(3) = " Numero "
 atitoli(4) = " Ritardo "
 atitoli(5) = " Rit Max "
 atitoli(6) = " incr Max "
 atitoli(7) = " frequenza "
 atitoli(8) = " freq 10 "
 atitoli(9) = " Usciti ultima "
 atitoli(10) = " RPA USC. "
 atitoli(11) = " RP1 "
 atitoli(12) = " RP2 "
 atitoli(13) = " RP3 "
 atitoli(14) = " RP4 "
 atitoli(15) = " RP5 "
 atitoli(16) = " MED.RT "
 atitoli(17) = " Ruota "
 Call InitTabella(atitoli,1,,3,5)
 Ini = EstrazioneFin - 300 ' riga di partenza
 fin = EstrazioneFin
 df = fin - Ini
 Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " Totali estraz. " & df,1,- 1,3
 Scrivi
 For x = 1 To 89
  n1 = x
  For n2 = n1 + 1 To 90
   'n2 = y
   If n1 <> n2 Then
    anum(1) = n1
    anum(2) = n2
    Messaggio "elaboro... ruota di  " & NomeRuota(r) & "  " & n1 & "-" & n2
    Call AvanzamentoElab(1,11,r)
    Call StatAmbo(ruote(1),n1,n2,rit,ritmax,Incrmax,freq,Ini,fin)
    'Call StatFrzTurbo(anum,ruote,2,rit,ritmax,Incrmax,freq,,Ini,fin)
    ReDim avalori(17)
    avalori(1) = DataEstrazione(fin)
    avalori(2) = NomeRuota(r)
    avalori(3) = n1 & "-" & n2
    avalori(4) = rit
    avalori(5) = ritmax
    avalori(6) = Incrmax
    avalori(7) = freq
    If avalori(4) < 11 And avalori(4) > 0 Then
     avalori(8) = n1 & "-" & n2
    Else
     avalori(8) = " - "
    End If
    If avalori(4) = 0 Then
     avalori(9) = n1 & "-" & n2
    Else
     avalori(9) = " - "
    End If
    If avalori(4) = 0 Then
     rp1 = SerieRitardo(Ini,fin - 1,anum,ruote,2)
     avalori(10) = rp1
    Else
     avalori(10) = " - "
    End If
    '------- calcolo ritardi precedenti------------
    ReDim rp(6)
    Inizio = EstrazioneFin - 300
    fine = EstrazioneFin
    somrit = 0
    For z = 1 To 6
     rp(z) = SerieRitardo(Inizio,fine,anum,ruote,2)
     fine = fine -(rp(z) + 1)
     somrit = somrit + rp(z)
     Medrit = Int(somrit/z)
     avalori(11) = rp(2)
     avalori(12) = rp(3)
     avalori(13) = rp(4)
     avalori(14) = rp(5)
     avalori(15) = rp(6)
     avalori(16) = Medrit
     For rr = 1 To 10
      rt(1) = rr
      If AmboRitardo(rr,n1,n2) < 11 Then avalori(17) = SiglaRuota(rr)
     Next
    Next
    Call AddRigaTabella(avalori,,,3)
    Call SetColoreCella(4,vbMagenta)
    Call SetColoreCella(3,,1)
    Call SetColoreCella(7,vbGreen)
    Call SetColoreCella(16,7)
    If avalori(6) > 0 Then Call SetColoreCella(6,2)
    If avalori(4) = 0 Then Call SetColoreCella(17,,2)
   End If
  Next
 Next
 Call CreaTabella(7,,,25) ' riga x ordinamento tabella
 Scrivi"     Tabella by Mike58       ",1,- 1,6
 nEnd = Timer
 Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function FormattaSecondi(s)
 'Questa Function trasforma il numero di secondi passato come parametro in una stringa
 ' passando i secondi si ottengono ore  minuti e secondi  in formato hh:mm:ss
 ' s ---> Numero di secondi da formattare
 ' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
 Dim hh
 Dim Mm
 Dim Ss
 Dim TimeStr
 hh = s \ 3600
 Mm =(s Mod 3600) \ 60
 Ss = s -((hh * 3600) +(Mm * 60))
 TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
 FormattaSecondi = TimeStr
End Function
 
L

LuigiB

Guest
ciao Mike , ora do uno sguardo , la funzioen per ora è in fase di test percio ho chiesto il vostro aiuto inoltre ho gia scoperto che c'èe un errore la nazionale ad esempio va indicata non con 12 ma con 11 .. vabbe l'ho gia corretto anche se non pubbblicato .. ora vedo un po il tuo script.
 
L

LuigiB

Guest
per ora facendo un test su un ambo secco esce questo output
Immagine.jpg


lo script era il seguente, a quanto vedo la frequenza è ok , il problema è il valore IncrRitmax che non si azzera ...


Codice:
ReDim aNum(2)
	ReDim aRuote (1)
	Dim n1 ,n2
	Dim rit,ritmax,Incrmax,freq,Ini,fin
	Dim t , tt
	
	
	n1 =1
	n2 =2
	
	aNum(1) = n1
	aNum(2) = n2
	
	aRuote (1) = 1
	
	Ini = EstrazioneIni
	fin = EstrazioneFin
	
	
	'
	t = Timer
	Call StatFrzTurbo(aNum,aRuote ,2,rit,ritmax,Incrmax ,freq, ,Ini,fin)
	tt = Timer -t 
	Call Scrivi ("secondi : " & tt ) 
	Call Scrivi ("Rit     : " & rit )
	Call Scrivi ("ritmax  : " & ritmax)
	Call Scrivi ("Incrmax : " & Incrmax )
	Call Scrivi ("freq    : " & freq)
	
	Call Scrivi 
	
	t = Timer

	Call StatAmbo(aRuote (1),n1,n2,rit,ritmax,Incrmax,freq,Ini,fin)
	tt = Timer -t 
	Call Scrivi ("secondi : " & tt ) 
	Call Scrivi ("Rit     : " & rit )
	Call Scrivi ("ritmax  : " & ritmax)
	Call Scrivi ("Incrmax : " & Incrmax )
	Call Scrivi ("freq    : " & freq)
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Luigi, oltre al valore di incrmax il problema di incongruenza dati si manifesta anche sulle ruote 11 e 12 come da te segnalato in precedenza.


Codice:
Sub Main
 ReDim aNum(2)
 ReDim aRuote (1)
 Dim n1 ,n2
 Dim rit,ritmax,Incrmax,freq,Ini,fin
 Dim t , tt
 
 
 n1 =1
 n2 =2
 
 aNum(1) = n1
 aNum(2) = n2
 
 aRuote (1) = 11
 
 Ini = EstrazioneIni
 fin = EstrazioneFin
 
 Call Scrivi ("Nome Ruota " & NomeRuota (aRuote(1)))
 '
 t = Timer
 Call StatFrzTurbo(aNum,aRuote ,2,rit,ritmax,Incrmax ,freq, ,Ini,fin)
 tt = Timer -t 
 Call Scrivi ("Function statfrzturbo")
 Call Scrivi ("secondi : " & tt ) 
 Call Scrivi ("Rit     : " & rit )
 Call Scrivi ("ritmax  : " & ritmax)
 Call Scrivi ("Incrmax : " & Incrmax )
 Call Scrivi ("freq    : " & freq)
 
 Call Scrivi 
 
 t = Timer
 Call StatAmbo(aRuote (1),n1,n2,rit,ritmax,Incrmax,freq,Ini,fin)
 tt = Timer -t 
 Call Scrivi ("Function statambo")
 Call Scrivi ("secondi : " & tt ) 
 Call Scrivi ("Rit     : " & rit )
 Call Scrivi ("ritmax  : " & ritmax)
 Call Scrivi ("Incrmax : " & Incrmax )
 Call Scrivi ("freq    : " & freq)
End Sub
 
L

LuigiB

Guest
allora Mike , la frequenza mi pare sia apposto forse ti sei confuso nella segnalazione , ho modificato leggermente il tuo script
perche c'erano altri punti dove dovevi sostituire le funzioni vecchie con la nuova turbo , ora quello che prima faceva in 5 minuti lo fa in
20 secondi ...
Codice:
Sub Main
	Dim n1,n2,anum(2)
	Dim ruote(1),rt(10)
	nStart = Timer
	r = InputBox("Quale Ruota",,1)
	ruote(1) = r
	ReDim atitoli(17)
	atitoli(1) = " Data "
	atitoli(2) = " Ruota "
	atitoli(3) = " Numero "
	atitoli(4) = " Ritardo "
	atitoli(5) = " Rit Max "
	atitoli(6) = " incr Max "
	atitoli(7) = " frequenza "
	atitoli(8) = " freq 10 "
	atitoli(9) = " Usciti ultima "
	atitoli(10) = " RPA USC. "
	atitoli(11) = " RP1 "
	atitoli(12) = " RP2 "
	atitoli(13) = " RP3 "
	atitoli(14) = " RP4 "
	atitoli(15) = " RP5 "
	atitoli(16) = " MED.RT "
	atitoli(17) = " Ruota "
	Call InitTabella(atitoli,1,,3,5)
	Ini = EstrazioneFin - 300 ' riga di partenza
	fin = EstrazioneFin
	df = fin - Ini
	Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " Totali estraz. " & df,1,- 1,3
	Scrivi
	For x = 1 To 89
		n1 = x
		For n2 = n1 + 1 To 90
			'n2 = y
			If n1 <> n2 Then
				anum(1) = n1
				anum(2) = n2
				Messaggio "elaboro... ruota di  " & NomeRuota(r) & "  " & n1 & "-" & n2
				Call AvanzamentoElab(1,11,r)
				'Call StatAmbo(ruote(1),n1,n2,rit,ritmax,Incrmax,freq,Ini,fin)
				Call StatFrzTurbo(anum,ruote,2,rit,ritmax,Incrmax,freq,,Ini,fin)
				ReDim avalori(17)
				avalori(1) = DataEstrazione(fin)
				avalori(2) = NomeRuota(r)
				avalori(3) = n1 & "-" & n2
				avalori(4) = rit
				avalori(5) = ritmax
				avalori(6) = Incrmax
				avalori(7) = freq
				If avalori(4) < 11 And avalori(4) > 0 Then
					avalori(8) = n1 & "-" & n2
				Else
					avalori(8) = " - "
				End If
				If avalori(4) = 0 Then
					avalori(9) = n1 & "-" & n2
				Else
					avalori(9) = " - "
				End If
				If avalori(4) = 0 Then
					'rp1 = SerieRitardo(Ini,fin - 1,anum,ruote,2)
					Call StatFrzTurbo(anum,ruote,2,rp1,0,0,0,,Ini,fin-1)

					
					avalori(10) = rp1
				Else
					avalori(10) = " - "
				End If
				'------- calcolo ritardi precedenti------------
				ReDim rp(6)
				Inizio = EstrazioneFin - 300
				fine = EstrazioneFin
				somrit = 0
				For z = 1 To 6
					'rp(z) = SerieRitardo(Inizio,fine,anum,ruote,2)
					Call StatFrzTurbo(anum,ruote,2,rp(z),0,0,0,,Inizio,fine)

					fine = fine -(rp(z) + 1)
					somrit = somrit + rp(z)
					Medrit = Int(somrit/z)
					avalori(11) = rp(2)
					avalori(12) = rp(3)
					avalori(13) = rp(4)
					avalori(14) = rp(5)
					avalori(15) = rp(6)
					avalori(16) = Medrit
					For rr = 1 To 10
						'rt(1) = rr
						'If AmboRitardo(rr,n1,n2) < 11 Then avalori(17) = SiglaRuota(rr)
						ReDim aRR(1) 
						aRR(1) = rr
						Call StatFrzTurbo(anum,aRR ,2,rit,0,0,0,,Ini,fin)
						If rit < 11 Then avalori(17) = SiglaRuota(rr)

					Next
				Next
				Call AddRigaTabella(avalori,,,3)
				Call SetColoreCella(4,vbMagenta)
				Call SetColoreCella(3,,1)
				Call SetColoreCella(7,vbGreen)
				Call SetColoreCella(16,7)
				If avalori(6) > 0 Then Call SetColoreCella(6,2)
				If avalori(4) = 0 Then Call SetColoreCella(17,,2)
			End If
		Next
	Next
	Call CreaTabella(7,,,25) ' riga x ordinamento tabella
	Scrivi"     Tabella by Mike58       ",1,- 1,6
	nEnd = Timer
	Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend ) - nstart))
End Sub
Function FormattaSecondi(s)
	'Questa Function trasforma il numero di secondi passato come parametro in una stringa
	' passando i secondi si ottengono ore  minuti e secondi  in formato hh:mm:ss
	' s ---> Numero di secondi da formattare
	' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
	Dim hh
	Dim Mm
	Dim Ss
	Dim TimeStr
	hh = s \ 3600
	Mm =(s Mod 3600) \ 60
	Ss = s -((hh * 3600) +(Mm * 60))
	TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
	FormattaSecondi = TimeStr
End Function

funzione vecchia

Immagine1.jpg



funzione nuova

Immagine2.jpg
 
Ultima modifica di un moderatore:

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Luigi grazie per la correzione adesso è veramente turbo.

Mentre il problema che ti segnalavo prima era riferito alle ruote 11 e 12

se ruota = 11


Nome Ruota Tutte
Function statfrzturbo
secondi : 0
Rit : 513
ritmax : 513
Incrmax : 513
freq : 4

Function statambo
secondi : 0.0625
Rit : 14
ritmax : 210
Incrmax : 0
freq : 203

se ruota = 12

Nome Ruota Nazionale
Function statfrzturbo
secondi : 0.015625
Rit : 14
ritmax : 210
Incrmax : 210
freq : 200

Function statambo
secondi : 0
Rit : 513
ritmax : 513
Incrmax : 196
freq : 4


Come dicevano prima bisogna aggiustare questi parametri.
 
L

LuigiB

Guest
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
 
Ultima modifica di un moderatore:

Mike58

Advanced Member >PLATINUM PLUS<
Immagine.jpg

Ciao Luigi, grazie per tutte le funzioni implementate ma purtroppo io ho deglli errori con la nuova versione 1.3.90 sulle nuovi funzioni.
L'immagine se non riesci a vederla l'errore è proprio su statisticheformazioniturbo e sullo script tuo di prova.
In attesa di un tuo riscontro un saluto.

Mike
 

Mike58

Advanced Member >PLATINUM PLUS<
Aggiungo info su tutte le nuove funzioni usate, spuntando gli errori lo script calcola i vecchi valori e quindi non ne funziona neanche una.

StatisticaFormazioneTurbo secondi : 0
Rit :
ritmax :
Incrmax :
freq :

StatisticaFormazione secondi : 1.8125
Rit : 512
ritmax : 512
Incrmax : 195
freq : 4

----------------------------------------------------------------------------------------------------
AmboRitardoTurbo secondi : 0
Rit :

AmboRitardo secondi : 0.375
Rit : 512

----------------------------------------------------------------------------------------------------
AmboFrequenzaTurbo secondi : 0
freq :

AmboFrequenza secondi : 1.3125
freq : 4

----------------------------------------------------------------------------------------------------
AmboStoricoTurbo secondi : 0
ritmax :

AmboStorico secondi : 1.039063
ritmax : 512

----------------------------------------------------------------------------------------------------
AmboIncrStoricoTurbo secondi : 0
Incrmax :

AmboIncrStorico secondi : 0.9375
Incrmax : 195

----------------------------------------------------------------------------------------------------
EstrattoRitardoTurbo secondi : 0
Rit :

EstrattoRitardo secondi : 0.90625
Rit : 9

----------------------------------------------------------------------------------------------------
EstrattoFrequenzaTurbo secondi : 0
freq :

EstrattoFrequenza secondi : 0.890625
freq : 64

----------------------------------------------------------------------------------------------------
EstrattoStoricoTurbo secondi : 0
ritmax :

EstrattoStorico secondi : 0.90625
ritmax : 111

----------------------------------------------------------------------------------------------------
EstrattoIncrStoricoTurbo secondi : 0
Incrmax :

EstrattoIncrStorico secondi : 0.8984375
Incrmax : 0

----------------------------------------------------------------------------------------------------
 
L

LuigiB

Guest
ciao Mike , ci sara qualche problema da te perche questo è il mio output

Codice:
StatisticaFormazioneTurbo secondi : 0,484375
Rit     : 512
ritmax  : 512
Incrmax : 195
freq    : 4

StatisticaFormazione secondi : 1,234375
Rit     : 512
ritmax  : 512
Incrmax : 195
freq    : 4

----------------------------------------------------------------------------------------------------
AmboRitardoTurbo secondi : 0,078125
Rit     : 512

AmboRitardo secondi : 0,28125
Rit     : 512

----------------------------------------------------------------------------------------------------
AmboFrequenzaTurbo secondi : 0,4375
freq    : 4

AmboFrequenza secondi : 1,21875
freq    : 4

----------------------------------------------------------------------------------------------------
AmboStoricoTurbo secondi : 0,453125
ritmax  : 512

AmboStorico secondi : 1,21875
ritmax  : 512

----------------------------------------------------------------------------------------------------
AmboIncrStoricoTurbo secondi : 0,4375
Incrmax : 195

AmboIncrStorico secondi : 1,21875
Incrmax : 195

----------------------------------------------------------------------------------------------------
EstrattoRitardoTurbo secondi : 0,015625
Rit     : 9

EstrattoRitardo secondi : 1,1875
Rit     : 9

----------------------------------------------------------------------------------------------------
EstrattoFrequenzaTurbo secondi : 0,53125
freq    : 64

EstrattoFrequenza secondi : 1,171875
freq    : 64

----------------------------------------------------------------------------------------------------
EstrattoStoricoTurbo secondi : 0,546875
ritmax  : 111

EstrattoStorico secondi : 1,171875
ritmax  : 111

----------------------------------------------------------------------------------------------------
EstrattoIncrStoricoTurbo secondi : 0,546875
Incrmax : 0

EstrattoIncrStorico secondi : 1,1875
Incrmax : 0

----------------------------------------------------------------------------------------------------
 

Mike58

Advanced Member >PLATINUM PLUS<
Sono + che sicuro che sarà cosi infatti su altri nuovi codici mi diceva che mancavano dei DLL.
Mi ritoccherà disinstallare tutto e reinstallare.

Ti faccio sapere dopo la nuova reinstallazione, intanto ancora grazie.

Mike
 

bergie

Advanced Member >PLATINUM<
anch'io ho gli stessi errori di Mike58,
si erano anche incasinate le estrazioni faccendo l'aggiornamento (si bloccava sempre) e
invece di 8629 ne uscivano molte di più, ora ho messo a posto ma faccendo copia incolla dei BaseDati con altro pc
su quale è ancora installata la 1.3.89 che si aggiorna normalmente.
ciao:)
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto