Option Explicit
Sub Main
Dim Classe
Dim ruota(1)
Dim Inizio
Dim fine
Dim gruppobase
Dim Formazionisviluppate
ReDim acolonna(0)
Dim ritardominimo
Dim ritardomassimo
Dim rit, ritmax, Incmax, frq
Dim contatoreformazioni
Dim sorte
contatoreformazioni = 0
Inizio = CInt(InputBox("Da quale estrazione vuoi partire?", , 1))
fine = CInt(InputBox("Con quale estrazione vuoi terminare la ricerca?", , EstrazioneFin))
Classe = CInt(InputBox("Classe di sviluppo", , 5))
ruota(1) = ScegliRuota
sorte = InputBox("Sorte di ricerca")
ritardominimo = CInt(InputBox("Ritardo minimo", , 100))
ritardomassimo = CInt(InputBox("Ritardo massimo", , 200))
Dim valoreritritmax100
MsgBox("Scegli gruppo base")
Call ScegliNumeri(gruppobase)
MsgBox(StringaNumeri(gruppobase))
Formazionisviluppate = InitSviluppoIntegrale(gruppobase, Classe)
MsgBox("Formazioni generate: " & Formazionisviluppate)
Scrivi "Elaborazione effettuata con i seguenti parametri:"
Scrivi "Range temporale analizzato: " & GetInfoEstrazione(Inizio) & " - " & GetInfoEstrazione(fine)
Scrivi "Ruota analizzata: " & NomeRuota(ruota(1))
Scrivi "Gruppo base analizzato: " & StringaNumeri(gruppobase)
Scrivi "Classe di sviluppo: " & Classe
Scrivi "Sorte di ricerca: " & sorte
Scrivi "Ritardo minimo: " & ritardominimo
Scrivi "Ritardo massimo: " & ritardomassimo
Scrivi
If Formazionisviluppate > 0 Then
Do While GetCombSviluppo(acolonna) = True
Call StatisticaFormazione(acolonna, ruota, sorte, rit, ritmax, Incmax, frq, Inizio, fine)
contatoreformazioni = contatoreformazioni + 1
If rit >= ritardominimo And ritmax <= ritardomassimo Then
valoreritritmax100 = rit / ritmax
Scrivi "Ruota: " & NomeRuota(ruota(1))
Scrivi "Gruppo base: " & StringaNumeri(acolonna)
Scrivi "Ritardo attuale: " & rit
Scrivi "Ritardo storico: " & ritmax
Scrivi "Incremento massimo: " & Incmax
Scrivi "Frequenza: " & frq
Scrivi "Valore Rit/RitMax x 100: " & valoreritritmax100
Scrivi
End If
If ScriptInterrotto Then Exit Do
Call AvanzamentoElab(1, Formazionisviluppate, contatoreformazioni)
Loop
End If
End Sub