Sub Main
Dim sFile
Dim sRecord
ReDim aTitoli(2)
Dim k
Dim idEstr
' scrivo un file che leggero successivamente con le ultime 100 estrazioni di bari
sFile = "c:\Estrazioni.txt"
Call ScriviFileEstrazioni(sFile,1)
' da ora in poi tutte le funzioni da utilizzare sono quelle che terminano con FT
' che servono per lavorare su archivi di file di testo
If ApriBaseDatiFT(sFile,5,",") Then
sRecord = "L'archivio letto va da " & GetInfoEstrazioneFT(1) & " a " & GetInfoEstrazioneFT(EstrazioniArchivioFT) & vbCrLf
sRecord = sRecord & "si compone di " & EstrazioniArchivioFT & " estrazioni " & vbCrLf
sRecord = sRecord & "di seguito la lista dei ritardi" & vbCrLf
Call Scrivi(sRecord)
idEstr = EstrazioniArchivioFT
' preimposto i titoli delle colonne
aTitoli(1) = "Numero"
aTitoli(2) = "Ritardo"
' inizializzo la tabella
Call InitTabella(aTitoli,1,,,5)
For k = 1 To 90 ' ciclo numeri
' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
ReDim aValori(2) ' abbiamo 2 titoli quindi anche qui dimensioniamo con 2 colonne
aValori(1) = Format2(k) ' numero
aValori(2) = RitardoEstrattoFT(k,idEstr) ' 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(2) > 0 And aValori(2) <= 30 Then
Call AddRigaTabella(aValori,Verde_,"right")
ElseIf aValori(2) > 30 And aValori(2) <= 50 Then
Call AddRigaTabella(aValori,Giallo_,"right")
ElseIf aValori(2) > 50 And aValori(2) <= 80 Then
Call AddRigaTabella(aValori,Magenta_,"right")
ElseIf aValori(2) > 80 Then
Call AddRigaTabella(aValori,Rosso_,"right")
End If
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(2)
End If
End Sub
Sub ScriviFileEstrazioni(sFile,ruota)
Dim k,e
Dim sRecord
Call EliminaFile(sFile)
For k = EstrazioniArchivio - 99 To EstrazioniArchivio
sRecord = IndiceAnnuale(k) & "," & DataEstrazione(k,,,"/") & ","
For e = 1 To 5
sRecord = sRecord & Format2(Estratto(k,ruota,e)) & ","
Next
Call ScriviFile(sFile,Left(sRecord,Len(sRecord) - 1))
Next
End Sub