Option Explicit
Sub Main
Dim T1,T2,T3,T4,T5,T6
Dim A,B,X,Y
Dim N1,N2,N3,N4
A = InputBox("1 NUMERO",,0)
B = InputBox("2 NUMERO",,0)
'---------------------------------
X = DiametraleD(A)
Y = DiametraleD(B)
'----------------------------------
N1 = Differenza(A,B)
N2 = Differenza(A,X)
N3 = Differenza(B,Y)
N4 = Differenza(X,Y)
'------------------------------------
If N1 = N4 Then
'------------------------------------
T1 = Array(T1,Format2(A)," ",(N1)," ",Format2(B)," ")
Call InitTabella(T1,Verde_,"center",3,Nero_,"Raavi")
'
T2 = Array(T2,"|"," "," "," ","|"," ")
Call AddRigaTabella(T2,Magenta_,"center",3,Nero_,"Raavi")
'
T3 = Array(T3,(N2)," "," "," ",(N3)," ")
Call AddRigaTabella(T3,Verde_,"center",3,Nero_,"Raavi")
'
T4 = Array(T4,"|"," "," "," ","|"," ")
Call AddRigaTabella(T4,Magenta_,"center",3,Nero_,"Raavi")
'
T5 = Array(T5,Format2(X)," ",(N4)," ",Format2(Y)," ")
Call AddRigaTabella(T5,Verde_,"center",3,Nero_,"Raavi")
Call SetTableWidth("20%")
CreaTabella
End If
End Sub