Option Explicit
' lo script crea volutamente l errore per testare la tabella
Sub Main
Dim idErr:idErr = MsgBox("Vuoi riprodurre l Errore ?",4+32,"Scelta OutPut")
ReDim aR(0):Call ScegliRuote(aR)
Dim sRu:sRu = StringaRuote(aR)
Dim aTit:aTit = Array(0,"ID","Ruota_Ver","F o r m.","Frequenza","Ritardo")
Call InitTabella(aTit)
ReDim aNum(90)
Dim n,j
For n = 1 To 90
aNum(n) = n
Next
Dim col:col = InitSviluppoIntegrale(aNum,2)
ReDim aStat(col)
n = 0
Do While GetCombSviluppo(aNum)
n = n + 1
aStat(n) = n & ";" & sRu & ";" & MyStr(aNum) & ";" & SerieFreqTurbo(EstrazioneIni,EstrazioneFin,aNum,aR,2) & ";" & SerieRitardoTurbo(EstrazioneIni,EstrazioneFin,aNum,aR,2)
Call AvanzamentoElab(1,col,n)
Loop
For n = 1 To UBound(aStat)
Dim aV:aV = Split("0;" & aStat(n),";")
Dim aTab: aTab = Array(0,aV(1),aV(2),aV(3),aV(4),aV(5))
Call AddRigaTabella(aTab)
Call AvanzamentoElab(1,UBound(aStat),n)
Next
If idErr = 6 Then
Call CreaTabellaOrdinabile()
Else
Call CreaTabella()
End If
End Sub
' con questa funzione riproduco l errore
' utilizzando stringanumeri si ha un altro tipo di errore
Function MyStr(aNum)
Dim i
MyStr = ""
For i = 1 To UBound(aNum)
MyStr = MyStr & Format2(aNum(i)) & " - "
Next
MyStr = RimuoviLastChr(MyStr," - ")
End Function
