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.
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 StatFrz (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 StatFrz (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)
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)
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
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 StatAmboTurbo(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 = SerieRitardoTurbo(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) = SerieRitardoTurbo(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 AmboRitardoTurbo(rr,n1,n2) < 11 Then avalori(17) = SiglaRuota(rr)
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
Sub Main
Dim n1,n2,anum(2)
Dim ruote(1),rt(10)
nStart = Timer
r = InputBox("Quale Ruota",,11)
qt = InputBox("Quante estrazioni vuoi analizzare ? ","VERSIONE TURBO",200)
ruote(1) = r
ReDim atitoli(18)
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 "
atitoli(18) = " Data esito "
Call InitTabella(atitoli,1,,3,5)
Ini = EstrazioneFin - qt ' 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 StatAmboTurbo(ruote(1),n1,n2,rit,ritmax,Incrmax,freq,Ini,fin)
'Call StatFrzTurbo(anum,ruote,2,rit,ritmax,Incrmax,freq,,Ini,fin)
ReDim avalori(18)
avalori(1) = DataEstrazione(fin)
avalori(2) = NomeRuota(r)
avalori(3) = StringaNumeri(anum)
avalori(4) = rit
avalori(5) = ritmax
avalori(6) = Incrmax
avalori(7) = freq
If avalori(4) < 11 And avalori(4) > 0 Then
avalori(8) = StringaNumeri(anum)
Else
avalori(8) = " - "
End If
If avalori(4) = 0 Then
avalori(9) = StringaNumeri(anum)
Else
avalori(9) = " - "
End If
If avalori(4) = 0 Then
rp1 = SerieRitardoTurbo(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 - qt
fine = EstrazioneFin
somrit = 0
For z = 1 To 6
rp(z) = SerieRitardoTurbo(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
Next
For rr = 1 To 10
'rt(1) = rr
If AmboRitardoTurbo(rr,n1,n2) < 11 Then avalori(17) = SiglaRuota(rr)
'If rit < 11 Then avalori(17) = SiglaRuota(rr)
If avalori(17) = SiglaRuota(rr) Then avalori(18) = DataEstrazione(fin-rit)
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
Luigi guarda l'esempio all'inizio di questa pag che mi ha fatto mike l'esempio è impostato a tutte con 200 colpi e fra gli ambi frequenti ci sono 7 e 27 e 35 e 56 (frq 13) nella tab mike facendo girare con la vers 91 l'ambo 7 e 27 (che pure è uscito a torino) non viene visualizzato! mentre 35 e 56 uscito a PA viene GIUSTAMENTE riportatofammi dei casi precisi , tipo range inizio range fien con le schermate dellle differenze ..
Option Explicit
Sub Main
Dim Ini,Fin
ReDim aNum(2)
ReDim aRuote(1)
aNum(1) = 1
aNum(2) = 2
aRuote(1) = 1
Ini = EstrazioneIni
Fin = EstrazioneFin
Call TestAmboRitardo(aNum,aRuote(1),Ini,Fin,True)
Call TestAmboRitardo(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 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