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.
Una risposta no flash... istantanea! GRAZIEEEEEEEEEEEEEEEapri la directory DatiApplcazioni\Spaziometria e cancella spaziometria.ini
poi riavvia spaziometria
Option Explicit
Sub Main
Dim idEstr
Dim Inizio,Fine
Dim CollNumeri
Dim k
Dim N
ReDim aVStat(90,3) ' 1 = ritardo - 2 = RitMAx - 3 = Frequenza
Inizio = 1
Fine = EstrazioniArchivioSE
For idEstr = Inizio To Fine
N = EstrattoSE(idEstr,8)
For k = 1 To 90
If k <> N Then
aVStat(k,1) = aVStat(k,1) + 1
If aVStat(k,1) > aVStat(k,2) Then
aVStat(k,2) = aVStat(k,1)
End If
Else
aVStat(k,1) = 0
aVStat(k,3) = aVStat(k,3) + 1
End If
Next
Call AvanzamentoElab(Inizio,Fine,idEstr)
If ScriptInterrotto Then Exit For
Next
ReDim aT(4)
aT(1) = "Numero"
aT(2) = "Ritardo"
aT(3) = "RitMax"
aT(4) = "Frequenza"
Call InitTabella(aT)
For k = 1 To 90
ReDim aT(4)
aT(1) = Format2(k)
aT(2) = aVStat(k,1)
aT(3) = aVStat(k,2)
aT(4) = aVStat(k,3)
Call AddRigaTabella(aT)
Next
Call Scrivi("Statistica numero SuperStar")
Call CreaTabella(2)
End Sub