Class Script
Sub Main
Dim T() As String
Dim V1(),V2(), V3(), V4(), V5(), V6(),V7(),V8(),V9(),V10() As String
Dim Nu(1),Ru(1),riga() As Integer
Dim ini1,ini2,ini3,ini4,ini5,ini6,ini7,ini8,ini9,ini10 As Integer
Dim fin1,fin2,fin3,fin4,fin5,fin6,fin7,fin8,fin9,fin10 As Integer
Dim x,n,k,sr,r1 As Integer
Dim A1,A2,A3,A4,A5,A6,A7,A8,A9,A10 As Integer
'
x = InputBox("Quale numero vuoi controllare?",0)
'
T = {"Ruota","Ciclo","Inizio","Fine"," Numero ","Frequenza"}
Call InitTabella(T,RGB(0,214,153),,,RGB(0,0,0),,"Dubai Light")
'
For r1 = 1 To 10
'
ini1 = EstrazioniArchivio - 179
fin1 = EstrazioniArchivio - 162
'
ini2 = EstrazioniArchivio - 161
fin2 = EstrazioniArchivio - 144
'
ini3 = EstrazioniArchivio - 143
fin3 = EstrazioniArchivio - 126
'
ini4 = EstrazioniArchivio - 125
fin4 = EstrazioniArchivio - 108
'
ini5 = EstrazioniArchivio - 107
fin5 = EstrazioniArchivio - 90
'
ini6 = EstrazioniArchivio - 89
fin6 = EstrazioniArchivio - 72
'
ini7 = EstrazioniArchivio - 71
fin7 = EstrazioniArchivio - 54
'
ini8 = EstrazioniArchivio - 53
fin8 = EstrazioniArchivio - 36
'
ini9 = EstrazioniArchivio - 35
fin9 = EstrazioniArchivio - 18
'
ini10 = EstrazioniArchivio - 17
fin10 = EstrazioniArchivio - 0
'
'
'
A1 = EstrattoFrequenza(x,r1,ini1,fin1)
'
A2 = EstrattoFrequenza(x,r1,ini2,fin2)
'
A3 = EstrattoFrequenza(x,r1,ini3,fin3)
'
A4 = EstrattoFrequenza(x,r1,ini4,fin4)
'
A5 = EstrattoFrequenza(x,r1,ini5,fin5)
'
A6 = EstrattoFrequenza(x,r1,ini6,fin6)
'
A7 = EstrattoFrequenza(x,r1,ini7,fin7)
'
A8 = EstrattoFrequenza(x,r1,ini8,fin8)
'
A9 = EstrattoFrequenza(x,r1,ini9,fin9)
'
A10 = EstrattoFrequenza(x,r1,ini10,fin10)
'
V1 = {NomeRuota(r1),"1",Replace(DataEstrazione(ini1),"/" , "." ) ,Replace(DataEstrazione(fin1),"/" , "." ) ,x,A1}
V2 = {NomeRuota(r1),"2",Replace(DataEstrazione(ini2),"/" , "." ) ,Replace(DataEstrazione(fin2),"/" , "." ) ,x,A2}
V3 = {NomeRuota(r1),"3",Replace(DataEstrazione(ini3),"/" , "." ) ,Replace(DataEstrazione(fin3),"/" , "." ) ,x,A3}
V4 = {NomeRuota(r1),"4",Replace(DataEstrazione(ini4),"/" , "." ) ,Replace(DataEstrazione(fin4),"/" , "." ) ,x,A4}
V5 = {NomeRuota(r1),"5",Replace(DataEstrazione(ini5),"/" , "." ) ,Replace(DataEstrazione(fin5),"/" , "." ) ,x,A5}
V6 = {NomeRuota(r1),"6",Replace(DataEstrazione(ini6),"/" , "." ) ,Replace(DataEstrazione(fin6),"/" , "." ) ,x,A6}
V7 = {NomeRuota(r1),"7",Replace(DataEstrazione(ini7),"/" , "." ) ,Replace(DataEstrazione(fin7),"/" , "." ) ,x,A7}
V8 = {NomeRuota(r1),"8",Replace(DataEstrazione(ini8),"/" , "." ) ,Replace(DataEstrazione(fin8),"/" , "." ) ,x,A8}
V9 = {NomeRuota(r1),"9",Replace(DataEstrazione(ini9),"/" , "." ) ,Replace(DataEstrazione(fin9),"/" , "." ) ,x,A9}
V10 = {NomeRuota(r1),"10",Replace(DataEstrazione(ini10),"/" , "." ) ,Replace(DataEstrazione(fin10),"/" , "." ) ,x,A10}
'
Call AddRigaTabella(V1,RGB(200,200,230),,,RGB(0,0,0),,"Dubai Light")
Call AddRigaTabella(V2,RGB(200,200,230),,,RGB(0,0,0),,"Dubai Light")
Call AddRigaTabella(V3,RGB(200,200,230),,,RGB(0,0,0),,"Dubai Light")
Call AddRigaTabella(V4,RGB(200,200,230),,,RGB(0,0,0),,"Dubai Light")
Call AddRigaTabella(V5,RGB(200,200,230),,,RGB(0,0,0),,"Dubai Light")
Call AddRigaTabella(V6,RGB(200,200,230),,,RGB(0,0,0),,"Dubai Light")
Call AddRigaTabella(V7,RGB(200,200,230),,,RGB(0,0,0),,"Dubai Light")
Call AddRigaTabella(V8,RGB(200,200,230),,,RGB(0,0,0),,"Dubai Light")
Call AddRigaTabella(V9,RGB(200,200,230),,,RGB(0,0,0),,"Dubai Light")
Call AddRigaTabella(V10,RGB(200,200,230),,,RGB(0,0,0),,"Dubai Light")
'
Call SetColoreCellaRighe(0,RGB(0,214,153),RGB(0,0,0))
Call SetColoreCellaRighe(1,RGB(0,214,153),RGB(0,0,0))
Call SetColoreCellaRighe(2,RGB(253,233,16),RGB(0,0,0))
Call SetColoreCellaRighe(3,RGB(0,214,153),RGB(0,0,0))
Call SetColoreCellaRighe(4,RGB(253,233,16),RGB(0,0,0))
Call SetColoreCellaRighe(5,RGB(255,69,69),RGB(0,0,0))
Call SetColoreCellaRighe(6,RGB(0,214,153),RGB(0,0,0))
'End If
'riga = ""
k = 0
Next
Call CreaTabella()
'Scrivi ("Ulima Estrazione : " & StringaEstratti(fin),1)
'Scrivi
Scrivi
'Next
End Sub
End Class
