Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub Main
Dim T,T2,T1,T3,T4,T5,T6,T7,T8
Dim X,N,E,Y,R,F
Dim A(5),V(5),B(5)
Dim A2,B2,C2,D2,E2
Dim S1,S2,S3,S4,S5
Dim R1,R2
Dim ES
Dim ruota(5),ruote(5),posta(2),poste(2)
Dim Ambata(5),Ambo1(2),Ambo2(2)
'
' calcola.ambata.contata
'
posta(1) = 1
poste(2) = 1
'____________
'
'
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
'----------------------------------
T = Array(T," "," "," "," "," "," ",Space(20))
Call InitTabella(T,Bianco_,"center",3,Nero_,"Dubai Light")
'
'-------------------------------
T = Array(T,NomeRuota(R1),Format2(A(1)),Format2(A(2)),Format2(A(3)),Format2(A(4)),Format2(A(5)),"")
Call AddRigaTabella(T,Bianco_,"center",3,,"Dubai Light")
Call SetColoreCella(1,RGB(255,0,128),RGB(255,255,255)) ' giallo
Call SetColoreCella(2,RGB(230,230,0),RGB(0,0,0)) ' giallo
Call SetColoreCella(3,RGB(230,230,0),RGB(0,0,0))
Call SetColoreCella(4,RGB(230,230,0),RGB(0,0,0)) ' giallo
Call SetColoreCella(5,RGB(230,230,0),RGB(0,0,0)) ' giallo
Call SetColoreCella(6,RGB(230,230,0),RGB(0,0,0)) ' giallo
Call SetColoreCella(7,RGB(255,0,128),RGB(0,0,0)) ' giallo
'-------------------------------
'---------
'-----------------------------------
'---------------------------------
T1 = Array(T1," "," + "," + "," + "," + "," + ","")
Call AddRigaTabella(T1,Bianco_,"center",3,,"Dubai Light")
'
T2 = Array(T2," ",(V(1)),(V(2)),(V(3)),(V(4)),(V(5)),"")
Call AddRigaTabella(T2,Bianco_,"center",3,,"Dubai Light")
Call SetColoreCella(1,RGB(0,230,0),RGB(0,0,0)) ' verde
Call SetColoreCella(2,RGB(0,230,0),RGB(0,0,0)) ' verde
Call SetColoreCella(3,RGB(0,230,0),RGB(0,0,0))
Call SetColoreCella(4,RGB(0,230,0),RGB(0,0,0)) ' verde
Call SetColoreCella(5,RGB(0,230,0),RGB(0,0,0)) ' verde
Call SetColoreCella(6,RGB(0,230,0),RGB(0,0,0)) ' verde
Call SetColoreCella(7,RGB(0,230,0),RGB(0,0,0)) ' verde
'--------------------------------
T3 = Array(T3," "," = "," = "," = "," = "," = ","")
Call AddRigaTabella(T3,Bianco_,"center",3,,"Dubai Light")
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))
'
'
ruota(1) = R1
ruota(2) = RuotaDiametrale(R1)
'
ruote(1) = R1
ruote(2) = RuotaDiametrale(R1)
ruote(3) = TT_
ruote(4) = NZ_
'
Ambata(1) = S1
Ambata(2) = S2
Ambata(3) = S3
Ambata(4) = S4
Ambata(5) = S5
'
T4 = Array(T4," ",Format2(S1),Format2(S2),Format2(S3),Format2(S4),Format2(S5),"")
Call AddRigaTabella(T4,Bianco_,"center",3,,"Dubai Light")
Call SetColoreCella(1,RGB(0,0,255),RGB(250,250,250)) ' verde
Call SetColoreCella(2,RGB(0,0,255),RGB(250,250,250)) ' giallo
Call SetColoreCella(3,RGB(0,0,255),RGB(250,250,250))
Call SetColoreCella(4,RGB(0,0,255),RGB(250,250,250)) ' verde
Call SetColoreCella(5,RGB(0,0,255),RGB(250,250,250)) ' giallo
Call SetColoreCella(6,RGB(0,0,255),RGB(250,250,250)) ' giallo
Call SetColoreCella(7,RGB(0,0,255),RGB(250,250,250)) ' giallo
'
T5 = Array(T5," "," "," "," "," "," ","")
Call AddRigaTabella(T5,Bianco_,"center",3,,"Dubai Light")
'
T6 = Array(T6,DataEstrazione(ES)," "," "," "," "," ","")
Call AddRigaTabella(T6,Bianco_,"center",3,,"Dubai Light")
'
Call SetTableWidth("30%")
CreaTabella
Scrivi
'
Next
Next
End Sub