Sub Main
Dim T,T2,T1,T3,T4,T5,T6,T7,T8,T9,T10
Dim X,N,E,Y,R,F,Q
Dim A(5),V(5),B(5)
Dim A2,B2,C2,D2,E2
Dim S1,S2,S3,S4,S5
Dim R1,R2
Dim ES,SR
'
' ambata-contata
'
tv = InputBox("Inserire quante estrazione",,0)
'
'
ex = EstrazioneFin - tv
For ES = ex To ex
Messaggio(ES)
'
For R1 = 1 To 10
'
A(1) = Estratto(ES,R1,1)
A(2) = Estratto(ES,R1,2)
A(3) = Estratto(ES,R1,3)
A(4) = Estratto(ES,R1,4)
A(5) = Estratto(ES,R1,5)
'---------------------------
'
For X = 1 To 5
'
'------------------------------------
'
Y = Y + 1
V(X) = Y
'
Next
'----------------------------------
T1 = Array(T1," I "," II "," III "," IV "," V ")
Call InitTabella(T1,Magenta_,"center",4,Nero_,"arial black")
'
T2 = Array(T2,Format2(A(1)),Format2(A(2)),Format2(A(3)),Format2(A(4)),Format2(A(5)))
Call AddRigaTabella(T2,Verde_,"center",4,Nero_,"arial black")
'
T3 = Array(T3," + "," + "," + "," + "," + ")
Call AddRigaTabella(T3,Bianco_,"center",3,Nero_,"Dubai LiGHT")
Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
'
T4 = Array(T4,(V(1)),(V(2)),(V(3)),(V(4)),(V(5)))
Call AddRigaTabella(T4,Magenta_,"center",4,Nero_,"arial black")
T5 = Array(T5," = "," = "," = "," = "," = ")
Call AddRigaTabella(T5,Bianco_,"center",3,Nero_,"Dubai Light")
Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
'
S1 = Fuori90(A(1) + V(1))
S2 = Fuori90(A(2) + V(2))
S3 = Fuori90(A(3) + V(3))
S4 = Fuori90(A(4) + V(4))
S5 = Fuori90(A(5) + V(5))
'
N = 0
'
'If S1 = N Or S2 = N Or S3 = N Or S4 = N Or S5 = N Then
'
'
T6 = Array(T6,Format2(S1),Format2(S2),Format2(S3),Format2(S4),Format2(S5))
Call AddRigaTabella(T6,Verde_,"center",4,Nero_,"arial black")
T7 = Array(T7," "," "," "," "," ")
Call AddRigaTabella(T7,Bianco_,"center",3,Nero_,"Dubai Light")
T8 = Array(T8," "," "," ADDIZIONE "," "," ")
Call AddRigaTabella(T8,Magenta_,"center",3,Nero_,"Dubai medium")
R = SiglaRuota(R1)
F = DataEstrazione(ES)
T9 = Array(T9,R," ",F," "," ")
Call AddRigaTabella(T9,Ciano_,"center",3,Nero_,"Dubai medium")
T10 = Array(T10," "," "," "," "," ")
Call AddRigaTabella(T10,Bianco_,"center",3,Nero_,"Dubai Light")
Call SetTableWidth("21%")
CreaTabella
Scrivi
'
'
A(1) = Estratto(ES,R1,1)
A(2) = Estratto(ES,R1,2)
A(3) = Estratto(ES,R1,3)
A(4) = Estratto(ES,R1,4)
A(5) = Estratto(ES,R1,5)
'
'
T1 = Array(T1," I "," II "," III "," IV "," V ")
Call InitTabella(T1,Magenta_,"center",4,Nero_,"arial black")
'
'-------------------------------
T2 = Array(T2,Format2(A(1)),Format2(A(2)),Format2(A(3)),Format2(A(4)),Format2(A(5)))
Call AddRigaTabella(T2,Verde_,"center",4,Nero_,"arial black")
'-------------------------------
'---------------------------------
T3 = Array(T3," - "," - "," - "," - "," - ")
Call AddRigaTabella(T3,Bianco_,"center",3,Nero_,"Dubai LiGHT")
Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
'-------------------------------
'
T4 = Array(T4,(V(1)),(V(2)),(V(3)),(V(4)),(V(5)))
Call AddRigaTabella(T4,Magenta_,"center",4,Nero_,"arial black")
'--------------------------------
T5 = Array(T5," = "," = "," = "," = "," = ")
Call AddRigaTabella(T5,Bianco_,"center",3,Nero_,"Dubai Light")
Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
S1 = Fuori90(A(1) - V(1))
S2 = Fuori90(A(2) - V(2))
S3 = Fuori90(A(3) - V(3))
S4 = Fuori90(A(4) - V(4))
S5 = Fuori90(A(5) - V(5))
'
N = 0
'
'If S1 = N Or S2 = N Or S3 = N Or S4 = N Or S5 = N Then
'
'
T6 = Array(T6,Format2(S1),Format2(S2),Format2(S3),Format2(S4),Format2(S5))
Call AddRigaTabella(T6,Verde_,"center",4,Nero_,"arial black")
'-------------------------------
T7 = Array(T7," "," "," "," "," ")
Call AddRigaTabella(T7,Bianco_,"center",3,Nero_,"Dubai Light")
T8 = Array(T8," "," "," SOTTRAZIONE "," "," ")
Call AddRigaTabella(T8,Magenta_,"center",3,Nero_,"Dubai medium ")
R = SiglaRuota(R1)
F = DataEstrazione(ES)
T9 = Array(T9,R," ",F," "," ")
Call AddRigaTabella(T9,Giallo_,"center",3,Nero_,"Dubai medium")
T10 = Array(T10," "," "," "," "," ")
Call AddRigaTabella(T10,Bianco_,"center",3,Nero_,"Dubai Light")
Call SetTableWidth("21%")
CreaTabella
Scrivi
Next
Next
End Sub