Sub Main
ReDim aTitoli(3) ' titoli tabella
Dim k ' controllo cicli
Dim rt ' ruota
Dim idEstr 'estrazione inizio analisi
' imposto l'estrazione sull'ultima disponibile
idEstr = EstrazioniArchivio
' faccio scorrere un testo che indica da quale estrazione parte l'analisi
Call TestoInBandaPassante("Ritardo dei numeri all'estrazione " & GetInfoEstrazione(idEstr))
' preimposto i titoli delle colonne
aTitoli(1) = "Numero"
aTitoli(2) = "Ruota "
aTitoli(3) = "Ritardo"
' inizializzo la tabella
Call InitTabella(aTitoli,1 ,,, 5)
' faccio un ciclo dove calcolo il ritardo sulle 10 ruote di tutti i 90 numeri
' mano mano aggiungo una nuova riga alla tabella
For rt = 1 To 10 ' ciclo ruote
For k = 1 To 90 ' ciclo numeri
' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
ReDim aValori(3) ' abbiamo 3 titoli quindi anche qui dimensioniamo con 3 colonne
aValori(1) = Format2(k) ' numero
aValori(2) = NomeRuota(rt) ' nome ruota
aValori(3) = RitardoEstratto(k,idEstr,rt) ' valore del ritardo di quel numero su quella ruota
' con questo blocco if coloro le righe che agguiungo in funzione del loro ritardo
If aValori(3) > 0 And aValori(3) <= 30 Then
Call AddRigaTabella(aValori,Verde_,"right")
ElseIf aValori(3) > 30 And aValori(3) <= 50 Then
Call AddRigaTabella(aValori,Giallo_,"right")
ElseIf aValori(3) > 50 And aValori(3) <= 80 Then
Call AddRigaTabella(aValori,Magenta_,"right")
ElseIf aValori(3) > 80 Then
Call AddRigaTabella(aValori,Rosso_,"right")
End If
Next
Next
' ora che ho terminato l'analisi e ho finito di accodare le righe
' creo la tabella e la ordino per la colonna 3 che rappresenta il ritardo
Call CreaTabella(3)
End Sub