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
T = Array(T," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
Call InitTabella(T)
For n1 = 1 To 30
n2 = DiametraleD(n1)
n3 = Diametrale(n2)
n4 = DiametraleD(n3)
n5 = Fuori90(n1 + 30)
n6 = DiametraleD(n5)
n7 = Diametrale(n6)
n8 = DiametraleD(n7)
n9 = Fuori90(n1 + 60)
n10 = DiametraleD(n9)
n11 = Diametrale(n10)
n12 = DiametraleD(n11)
'
n13 = DiametraleD(n1)
n14 = DiametraleD(n4)
n15 = DiametraleD(n5)
n16 = DiametraleD(n8)
n17 = DiametraleD(n9)
n18 = DiametraleD(n12)
'
'
T = Array(T,"",n1,n4,"",n5,n8,"",n9,n12,"","","",n13,n14,"",n15,n16,"",n17,n18,"","","")
Call AddRigaTabella(T)
For x = 1 To 21
If x Then Call SetColoreCella((1),RGB(0,139,139),0)
If x Then Call SetColoreCella((2),RGB(200,200,230),RGB(0,0100,100))
If x Then Call SetColoreCella((3),RGB(200,200,230),RGB(0,0100,100))
If x Then Call SetColoreCella((4),RGB(0,139,139),0)
If x Then Call SetColoreCella((5),RGB(200,200,230),RGB(0,0100,100))
If x Then Call SetColoreCella((6),RGB(200,200,230),RGB(0,0100,100))
If x Then Call SetColoreCella((7),RGB(0,139,139),0)
If x Then Call SetColoreCella((8),RGB(200,200,230),RGB(0,0100,100))
If x Then Call SetColoreCella((9),RGB(200,200,230),RGB(0,0100,100))
If x Then Call SetColoreCella((10),RGB(124,252,0),0)
If x Then Call SetColoreCella((11),RGB(255,105,180),0)'.............
If x Then Call SetColoreCella((12),RGB(242,245,0),0)
If x Then Call SetColoreCella((13),RGB(200,200,230),RGB(0,0100,100))
If x Then Call SetColoreCella((14),RGB(200,200,230),RGB(0,0100,100))
If x Then Call SetColoreCella((15),RGB(0,139,139),0)
If x Then Call SetColoreCella((16),RGB(200,200,230),RGB(0,0100,100))
If x Then Call SetColoreCella((17),RGB(200,200,230),RGB(0,0100,100))
If x Then Call SetColoreCella((18),RGB(0,139,139),0)
If x Then Call SetColoreCella((19),RGB(200,200,230),RGB(0,0100,100))
If x Then Call SetColoreCella((20),RGB(200,200,230),RGB(0,0100,100))
If x Then Call SetColoreCella((21),RGB(0,139,139),0)
Next
Next
Call SetTableWidth("25%")
CreaTabella
End Sub
MIke come si fa a cambiare il carattere dei numeri in tabella vorrei mettere il verdana
che si leggono meglio i numeri in tabella..
Call AddRigaTabella(T,RGB(255,255,255),"Verdana")
Sub Main
Dim T
T = Array(T," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ")
Call InitTabella(T)
For n1 = 1 To 30
n2 = DiametraleD(n1)
n3 = Diametrale(n2)
n4 = DiametraleD(n3)
n5 = Fuori90(n1 + 30)
n6 = DiametraleD(n5)
n7 = Diametrale(n6)
n8 = DiametraleD(n7)
n9 = Fuori90(n1 + 60)
n10 = DiametraleD(n9)
n11 = Diametrale(n10)
n12 = DiametraleD(n11)
'
n13 = DiametraleD(n1)
n14 = DiametraleD(n4)
n15 = DiametraleD(n5)
n16 = DiametraleD(n8)
n17 = DiametraleD(n9)
n18 = DiametraleD(n12)
'
'
T = Array(T,"",n1,n4,"",n5,n8,"",n9,n12,"","","",n13,n14,"",n15,n16,"",n17,n18,"","","")
AddRigaTabella(T,RGB(255,255,255),,,,"Verdana")
For x = 1 To 21
If x Then Call SetColoreCella((1),RGB(0,139,139),0)
If x Then Call SetColoreCella((2),RGB(200,200,230),RGB(0,100,100))
If x Then Call SetColoreCella((3),RGB(200,200,230),RGB(0,100,100))
If x Then Call SetColoreCella((4),RGB(0,139,139),0)
If x Then Call SetColoreCella((5),RGB(200,200,230),RGB(0,100,100))
If x Then Call SetColoreCella((6),RGB(200,200,230),RGB(0,100,100))
If x Then Call SetColoreCella((7),RGB(0,139,139),0)
If x Then Call SetColoreCella((8),RGB(200,200,230),RGB(0,100,100))
If x Then Call SetColoreCella((9),RGB(200,200,230),RGB(0,100,100))
If x Then Call SetColoreCella((10),RGB(124,252,0),0)
If x Then Call SetColoreCella((11),RGB(255,105,180),0)'.............
If x Then Call SetColoreCella((12),RGB(242,245,0),0)
If x Then Call SetColoreCella((13),RGB(200,200,230),RGB(0,100,100))
If x Then Call SetColoreCella((14),RGB(200,200,230),RGB(0,100,100))
If x Then Call SetColoreCella((15),RGB(0,139,139),0)
If x Then Call SetColoreCella((16),RGB(200,200,230),RGB(0,100,100))
If x Then Call SetColoreCella((17),RGB(200,200,230),RGB(0,100,100))
If x Then Call SetColoreCella((18),RGB(0,139,139),0)
If x Then Call SetColoreCella((19),RGB(200,200,230),RGB(0,100,100))
If x Then Call SetColoreCella((20),RGB(200,200,230),RGB(0,100,100))
If x Then Call SetColoreCella((21),RGB(0,139,139),0)
Next
Next
Call SetTableWidth("28%")
CreaTabella
End Sub