xToon

Zetrix · 24 Ottobre 2024

Pandit figurati ne ho scritti piu di cinquanta cruciverba allora se ho capito ti servirebbe
inserire i quattro numeri per fare una quadratura e vedere le dist
se scrivi il disegno con i numeri forse potrei vedere meglio che tabella ti servirebbe..

Zetrix · 24 Ottobre 2024

ti serve una tabella come questa che scrive i quattro numeri e fa la quadratura delle dist
ne ho diverse di tabelle come queste,questa tabella mi sembra un po sbiancata ne ho un altra
che e piu colorata

Pandit · 24 Ottobre 2024

Provala con 64.01.82.73 a me va benissimo..

Zetrix · 24 Ottobre 2024

ok adesso provo a scrivere i numeri nella tabella ma ti farò vedere un altra tabella migliore dell'altra..

Zetrix · 24 Ottobre 2024

Zetrix · 24 Ottobre 2024

Codice:

Sub Main
   Dim T,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12
   Dim A,B,C,D,E,F,X,Y
   Dim N1,N2,N3,N4,N5,N6,N7
   Dim A2,B2,C2,D2,E2,F2
   Dim V1,V2,V3,V4
   Dim S1,S2,S3,S4,S5,S6,S7
   '
   A2 = InputBox("1 numero")
   B2 = InputBox("2 numero")
   C2 = InputBox("3 numero")
   D2 = InputBox("4 numero")
   '
   T1 = Array(T1,Space(5),"  ","  ","  ",Space(5),"  ","  ","  ",Space(5))
   Call InitTabella(T1,Bianco_,"center",3,Nero_,"Dubai Light")
   '
   '-------------------------------
   For A = A2 To A2
      For B = B2 To B2
         For C = C2 To C2
            For D = D2 To D2
               '---------------------------------
               N1 = Distanza(A,B)
               S1 = Fuori90(A + B)
               S2 = Fuori90(C + D)
               S5 = Fuori90(A + D)
               S6 = Fuori90(B + C)
               S3 = Fuori90(A + C)
               S4 = Fuori90(B + D)
               '-------------------------------
               T2 = Array(T2," ",Format2(A),Format2(N1),Format2(B)," = ",Format2(S1),"  ",Format2(S5)," = ")
               Call AddRigaTabella(T2,Bianco_,"center",3,Nero_,"Dubai Light")
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(28,224,95),RGB(0,0,0))
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,140,0))
               Call SetColoreCella(4,RGB(28,224,95),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
               If S1 = S2 Then Call SetColoreCella(6,RGB(255,0,128),RGB(255,255,255)) Else Call SetColoreCella(6,RGB(223,229,3),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               If S5 = S6 Then Call SetColoreCella(8,RGB(255,0,128),RGB(255,255,255)) Else Call SetColoreCella(8,RGB(223,229,3),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '
               '------------------------------
               T3 = Array(T3,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
               '---------------------------------
               Call AddRigaTabella(T3,Bianco_,"center",1,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))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '---------------------------------
               S1 = Fuori90(A + B)
               S2 = Fuori90(C + D)
               '----------------------------
               N2 = Distanza(A,C)
               N3 = Distanza(B,D)
               'N4 = Distanza(A,D)
               N5 = Differenza(S1,S2)
               N6 = Differenza(S6,S5)
               '-------------------------------
               T4 = Array(T4," ",Format2(N2),"  ",Format2(N3),"  ",Format2(N5),"  ",Format2(N6),"  ")
               Call AddRigaTabella(T4,Bianco_,"center",3,Nero_,"Dubai Light")
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0)) ' giallo
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,140,0)) ' bianco
               Call SetColoreCella(3,RGB(255,255,255),RGB(128,0,255)) ' verde
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,140,0)) ' bianco
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(6,RGB(255,255,255),RGB(255,55,0)) ' verde
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(8,RGB(255,255,255),RGB(255,55,0)) ' verde
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0)) ' verde
               '-----------------------------------
               T5 = Array(T5,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
               '---------------------------------
               Call AddRigaTabella(T5,Bianco_,"center",1,Nero_,"Dubai Light")
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0)) ' giallo
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0)) ' bianco
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0)) ' bianco
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0)) ' verde
               '---------------------------------
               '-----------------------------------
               N5 = Distanza(C,D)
               S2 = Fuori90(C + D)
               S5 = Fuori90(A + D)
               S6 = Fuori90(B + C)
               '-------------------------------
               T6 = Array(T6,"  ",Format2(C),Format2(N5),Format2(D)," = ",Format2(S2),"  ",Format2(S6)," = ")
               '---------------------------------
               Call AddRigaTabella(T6,Bianco_,"center",3,Nero_,"Dubai Light")
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0)) ' giallo
               Call SetColoreCella(2,RGB(28,224,95),RGB(0,0,0)) ' bianco
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,140,0)) ' verde
               Call SetColoreCella(4,RGB(28,224,95),RGB(0,0,0)) ' bianco
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0)) ' verde
               If S1 = S2 Then Call SetColoreCella(6,RGB(255,0,128),RGB(255,255,255)) Else Call SetColoreCella(6,RGB(223,229,3),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0)) ' verde
               If S5 = S6 Then Call SetColoreCella(8,RGB(255,0,128),RGB(255,255,255)) Else Call SetColoreCella(8,RGB(223,229,3),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0)) ' verde
               '---------------------------------
               '-------------------------------
               '-------------------------------
               T7 = Array(T7,"  "," = ","  "," = ","  ","  ","  ","  ","  ")
               '---------------------------------
               Call AddRigaTabella(T7,Bianco_,"center",3,Nero_,"Dubai Light")
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0)) ' giallo
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0)) ' bianco
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0)) ' bianco
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0)) ' verde
               '---------------------------------
               '-----------------------------------
               '
               '-------------------------------
               T8 = Array(T8,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
               '---------------------------------
               Call AddRigaTabella(T8,Bianco_,"center",3,Nero_,"Dubai Light")
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0)) ' giallo
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0)) ' bianco
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0)) ' bianco
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0)) ' verde
               '---------------------------------
               S3 = Fuori90(A + C)
               S4 = Fuori90(B + D)
               S5 = Fuori90(A + D)
               N7 = Differenza(S3,S4)
               '-------------------------------
               T9 = Array(T9,"  ",Format2(S3),Format2(N7),Format2(S4),"  ",Format2(S5),Format2(S3),Format2(S1),"  ")
               '---------------------------------
               Call AddRigaTabella(T9,Bianco_,"center",3,Nero_,"Dubai Light")
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0)) ' giallo
               If S3 = S4 Then Call SetColoreCella(2,RGB(255,0,128),RGB(255,255,255)) Else Call SetColoreCella(2,RGB(223,229,3),RGB(0,0,0))
               Call SetColoreCella(3,RGB(255,255,255),RGB(255,55,0)) ' verde
               If S3 = S4 Then Call SetColoreCella(4,RGB(255,0,128),RGB(255,255,255)) Else Call SetColoreCella(4,RGB(223,229,3),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(6,RGB(28,224,95),RGB(0,0,0)) ' verde
               Call SetColoreCella(7,RGB(28,224,95),RGB(0,0,0)) ' verde
               Call SetColoreCella(8,RGB(28,224,95),RGB(0,0,0)) ' verde
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0)) ' verde
               '---------------------------------
               '-----------------------------------
               S5 = Fuori90(A + D)
               S6 = Fuori90(B + C)
               S7 = Fuori90(S5 + S6)
               '-------------------------------
               T10 = Array(T10,"  ","  ","  ","  ","  ",Format2(S6),Format2(S4),Format2(S2),"  ")
               '---------------------------------
               Call AddRigaTabella(T10,Bianco_,"center",3,Nero_,"Dubai Light")
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0)) ' giallo
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0)) ' bianco
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0)) ' bianco
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(6,RGB(28,224,95),RGB(0,0,0)) ' verde
               Call SetColoreCella(7,RGB(28,224,95),RGB(0,0,0)) ' verde
               Call SetColoreCella(8,RGB(28,224,95),RGB(0,0,0)) ' verde
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0)) ' verde
               '---------------------------------
               '-----------------------------------
               T11 = Array(T11,"  ","  ","  ","  ","  ",Format2(S7),Format2(S7),Format2(S7),"  ")
               '---------------------------------
               Call AddRigaTabella(T11,Bianco_,"center",3,Nero_,"Dubai Light")
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0)) ' giallo
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0)) ' bianco
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0)) ' bianco
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(6,RGB(255,255,255),RGB(128,0,255)) ' verde
               Call SetColoreCella(7,RGB(255,255,255),RGB(128,0,255)) ' verde
               Call SetColoreCella(8,RGB(255,255,255),RGB(128,0,255)) ' verde
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0)) ' verde
               '---------------------------------
               '-----------------------------------
               '-------------------------------
               T12 = Array(T12,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
               '---------------------------------
               Call AddRigaTabella(T12,Bianco_,"center",3,Nero_,"Dubai Light")
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0)) ' giallo
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0)) ' bianco
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0)) ' bianco
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0)) ' verde
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0)) ' verde
               '---------------------------------
               S3 = Fuori90(A + C)
               '
               Call SetTableWidth("20%")
               CreaTabella
            Next
         Next
      Next
   Next
End Sub

Pandit ecco lo script dopo quanto posso ti farò vedere altre tabelle con le quadrature delle dist..

Pandit · 24 Ottobre 2024

Grazie mille Zetrix, ci conto, e so che Tu hai un'inventiva e una capacità matematica non indifferente..
Grazie..

Zetrix · 24 Ottobre 2024

Pandit ai visto quanti script ho ma ne ho tantissimi ho anche molte tecniche ma per adesso non li voglio mettere
nel forum..

Pandit · 24 Ottobre 2024

Lo so che sei attivissimo, anche Toon me lo aveva detto, ma vedendo i Tuoi lavori...
Si capisce che ami quello che fai ecerchi di farlo sempre al meglio..

Zetrix · 24 Ottobre 2024

Pandit queste tabelle scrivono la ciclodinamica su due numeri e lo script fa vedere tutte le prospettive
se riesco a ridifinire meglio la tabella devo sistemare in altezza le righe e ti farò vedere cosa fa questo script
le tabelle ne sono tre questo perche la ciclodinamica gira su tre distanze a dist 30
la 30.60.90 e cosi che girano anche tutte le tabelle e ne sono tre tabelle come la 30.60.90

in inputbox si scrivono solo due numeri in questa tabella ho scritto 64 1 e lo script ti fa vedere la prima ciclodinamica
comunque quanto vedrai lo script mi dirai come e lo script..e la ciclodinamica..
ce la ciclodinamica di base questa e la ciclodinamica completa a livelli molto superiori
basta scrivere solo due numeri in inputbox

Zetrix · 24 Ottobre 2024

Codice:

Sub Main
   Dim T,T2,T1,T3,T4,T5,T6,T7,T8
   Dim A,B,C,D,X,Y
   Dim N1,N2,N3,N4,N5
   Dim A2,B2,C2,D2
   Dim A1,B1,C1,D1,A3,B3,C3,D3,B4,B5,B6,B7
   Dim C4,C5,C6,C7,C8,C9
   Dim D4,D5,D6,D7,E4,E5,E6,E7,S1,S2
   Dim E,E1,E2,E3,F4,F5,F6,F7
   Dim V1,V2
   Dim N(25),ruote(5),poste(5)
   Dim R1
   Dim Ambo1(3),Ambo2(3),Ambo3(3),Ambo4(3),Ambo5(3)
   Dim Ambo6(3),Ambo7(3),Ambo8(3),Ambo9(3),Ambo10(3)
   '
   'poste(1) = 1
   poste(2) = 1
   'poste(3) = 1
   'poste(4) = 1
   '
   A2 = InputBox("1 numero")
   B2 = InputBox("2 numero")
   '
   '-------------------------------
   For A = A2 To A2
      For B = B2 To B2
         '---------------------------------
         If A > B Then
            D1 =(90 - A + B)
            D2 = 90 - D1
         End If
         If A < B Then
            D1 = Abs(A - B)
            D2 = 90 - D1
         End If
         '
         A1 = Fuori90(A + A)
         B1 = Fuori90(B + B)
         '
         '
         T1 = Array(T1,"  ",A1,B1,"  ","  ","  ","  ","  "," ")
         Call InitTabella(T1)
         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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '------------------------------------
         B4 = Fuori90(A + A - B)
         C4 = Fuori90(B + B - A)
         S1 = Fuori90(A + B)
         V1 = 90 - A
         '-------------------------------
         T2 = Array(T2,V1,A,C4,"  ","  ","  ","  ",Format2(S1)," ") ' cinquina 1
         Call AddRigaTabella(T2)
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(3,RGB(0,225,185),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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         B4 = Fuori90(A + A - B)
         C4 = Fuori90(B + B - A)
         S2 = Fuori90(B4 + C4)
         V2 = 90 - B
         '-------------------------------
         T3 = Array(T3,V2,B4,B,"  ","  ","  ","  ",Format2(S2)," ") ' cinquina 2
         Call AddRigaTabella(T3)
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(3,RGB(240,240,0),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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '
         '
         '-------------------------------
         T4 = Array(T4,"  ","  ","  ","  ","  ","  ","  ","  ","  ") ' cinquina 3
         Call AddRigaTabella(T4)
         Call SetColoreCella(1,RGB(255,255,255),RGB(200,200,255))
         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(255,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(200,200,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(200,200,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '
         B4 = Fuori90(A + A - B)
         C4 = Fuori90(B + B - A)
         '
         '-------------------------------
         T5 = Array(T5,"  ",Format2(C4),"+" & Format2(D2),Format2(B),"+" & Format2(D2),Format2(A),"+" & Format2(D2),Format2(B4)," ") ' cinquina 4
         Call AddRigaTabella(T5)
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,128,128))'*
         Call SetColoreCella(4,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,128,128))'*
         Call SetColoreCella(6,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,128,128))'*
         Call SetColoreCella(8,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '
         '
         '-------------------------------
         T6 = Array(T6,"  ","  ","  ","  ","  ","  ","  ","  ","  ") ' cinquina 5
         Call AddRigaTabella(T6)
         Call SetColoreCella(1,RGB(255,255,255),RGB(200,200,255))
         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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(255,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(200,200,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(200,200,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         T7 = Array(T7,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T7)
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(2,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(3,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(4,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(5,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(6,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         T8 = Array(T8,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T8)
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(2,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(3,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(4,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(5,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(6,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '
         '
         '
         '
         Call SetTableWidth("20%")
         CreaTabella
         '***************************************************************************************
         'Scrivi StringaNumeri(N),0,1,5
         ruote(1) = R1
         ruote(2) = TT_
         ruote(3) = NZ_
         '
         If A > B Then
            D1 =(90 - A + B)
            D2 = 90 - D1
         End If
         If A < B Then
            D1 = Abs(A - B)
            D2 = 90 - D1
         End If
         '
         A1 = Fuori90(A + A)
         B1 = Fuori90(B + B)
         '
         '
         T1 = Array(T1,"  ",A1,B1,"  ","  ","  ","  ","  ","  ")
         Call InitTabella(T1)
         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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '------------------------------------
         B4 = Fuori90(A + A - B)
         C4 = Fuori90(B4 + B4 - A)
         S1 = Fuori90(A + B4)
         '-------------------------------
         T2 = Array(T2,V1,A,C4,"  ","  ","  ","  ",S1,"  ") ' cinquina 1
         Call AddRigaTabella(T2)
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(3,RGB(0,225,185),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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         B4 = Fuori90(A + A - B)
         C4 = Fuori90(B4 + B4 - B)
         S2 = Fuori90(A + B4)
         '-------------------------------
         T3 = Array(T3,V2,B4,B,"  ","  ","  ","  ",S2,"  ") ' cinquina 2
         Call AddRigaTabella(T3)
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(3,RGB(240,240,0),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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '
         '
         '-------------------------------
         T4 = Array(T4,"  ","  ","  ","  ","  ","  ","  ","  ","  ") ' cinquina 3
         Call AddRigaTabella(T4)
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         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(255,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         B4 = Fuori90(A + A - B)
         C4 = Fuori90(B + B - A)
         C5 = Fuori90(B4 + B4 - A)
         '-------------------------------
         'T5 = Array(T5,"  ",Format2(C4),Format2(D2),Format2(B),Format2(D2),Format2(A),Format2(D2),Format2(B4)) ' cinquina 4
         T5 = Array(T5,"  ",Format2(B),"+" & Format2(D2),Format2(A),"+" & Format2(D2),Format2(B4),"+" & Format2(D2),Format2(C5),"  ") ' cinquina 4
         Call AddRigaTabella(T5)
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(2,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,128,128))'*
         Call SetColoreCella(4,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,128,128))'*
         Call SetColoreCella(6,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,128,128))'*
         Call SetColoreCella(8,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         '-------------------------------
         T6 = Array(T6,"  ","  ","  ","  ","  ","  ","  ","  ","  ") ' cinquina 5
         Call AddRigaTabella(T6)
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(255,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         T7 = Array(T7,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T7)
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(2,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(3,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(4,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(5,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(6,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         T8 = Array(T8,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T8)
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(2,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(3,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(4,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(5,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(6,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '
         '
         '
         '
         Call SetTableWidth("20%")
         CreaTabella
         '****************************************************************************************************
         If A > B Then
            D1 =(90 - A + B)
            D2 = 90 - D1
         End If
         If A < B Then
            D1 = Abs(A - B)
            D2 = 90 - D1
         End If
         '
         A1 = Fuori90(A + A)
         B1 = Fuori90(B + B)
         '
         '
         T1 = Array(T1,"  ",A1,B1,"  ","  ","  ","  ","  ","  ")
         Call InitTabella(T1)
         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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '------------------------------------
         B4 = Fuori90(A + A - B)
         C4 = Fuori90(B + B - A)
         C6 = Fuori90(C4 + C4 - B)
         S1 = Fuori90(A + C6)
         '-------------------------------
         T2 = Array(T2,V1,A,C4,"  ","  ","  ","  ",S1,"  ") ' cinquina 1
         Call AddRigaTabella(T2)
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(3,RGB(0,225,185),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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         B4 = Fuori90(A + A - B)
         C4 = Fuori90(B + B - A)
         C6 = Fuori90(C4 + C4 - B)
         S2 = Fuori90(C4 + B)
         '-------------------------------
         T3 = Array(T3,V2,C6,B,"  ","  ","  ","  ",S2,"  ") ' cinquina 2
         Call AddRigaTabella(T3)
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(3,RGB(240,240,0),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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '
         '
         '-------------------------------
         T4 = Array(T4,"  ","  ","  ","  ","  ","  ","  ","  ","  ") ' cinquina 3
         Call AddRigaTabella(T4)
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         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(255,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         '-------------------------------
         B4 = Fuori90(A + A - B)
         C4 = Fuori90(B + B - A)
         C6 = Fuori90(C4 + C4 - B)
         S1 = Fuori90(A + B)
         '-------------------------------
         T5 = Array(T5,"  ",Format2(C6),"+" & Format2(D2),Format2(C4),"+" & Format2(D2),Format2(B),"+" & Format2(D2),Format2(A),"  ") ' cinquina 4
         Call AddRigaTabella(T5)
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(2,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,128,128))'*
         Call SetColoreCella(4,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,128,128))'*
         Call SetColoreCella(6,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,128,128))'*
         Call SetColoreCella(8,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         '
         T6 = Array(T6,"  ","  ","  ","  ","  ","  ","  ","  ","  ") ' cinquina 5
         Call AddRigaTabella(T6)
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(255,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         T7 = Array(T7,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T7)
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(2,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(3,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(4,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(5,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(6,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         T8 = Array(T8,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T8)
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(2,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(3,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(4,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(5,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(6,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '
         '
         '
         Call SetTableWidth("20%")
         CreaTabella
         'End If
      Next
   Next
End Sub

Pandit ecco lo script ti farò vedere una anteprima dello script domani vedrò di sistemare
meglio le tabelle..
buonanotte

Pandit · 25 Ottobre 2024

Buonanotte Zetrix e Grazie.

Zetrix · 25 Ottobre 2024

buongiorno

, Pandit ho ridefinito meglio la tabella della ciclodinamica..

Zetrix · 25 Ottobre 2024

Codice:

Sub Main
   Dim T,T2,T1,T3,T4,T5,T6,T7,T8
   Dim A,B,C,D,X,Y
   Dim N1,N2,N3,N4,N5
   Dim A2,B2,C2,D2
   Dim A1,B1,C1,D1,A3,B3,C3,D3,B4,B5,B6,B7
   Dim C4,C5,C6,C7,C8,C9
   Dim D4,D5,D6,D7,E4,E5,E6,E7,S1,S2
   Dim E,E1,E2,E3,F4,F5,F6,F7
   Dim V1,V2
   Dim N(25),ruote(5),poste(5)
   Dim R1
   Dim Ambo1(3),Ambo2(3),Ambo3(3),Ambo4(3),Ambo5(3)
   Dim Ambo6(3),Ambo7(3),Ambo8(3),Ambo9(3),Ambo10(3)
   '
   'poste(1) = 1
   poste(2) = 1
   'poste(3) = 1
   'poste(4) = 1
   '
   A2 = InputBox("1 numero")
   B2 = InputBox("2 numero")
   '
   '-------------------------------
   For A = A2 To A2
      For B = B2 To B2
         '---------------------------------
         If A > B Then
            D1 =(90 - A + B)
            D2 = 90 - D1
         End If
         If A < B Then
            D1 = Abs(A - B)
            D2 = 90 - D1
         End If
         '
         A1 = Fuori90(A + A)
         B1 = Fuori90(B + B)
         '
         '
         T1 = Array(T1,"  ",A1,B1,"  ","  ",A,B," dist ",D1)
         Call InitTabella(T1,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))
         Call SetColoreCella(6,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(7,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(8,RGB(245,145,245),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '------------------------------------
         B4 = Fuori90(A + A - B)
         C4 = Fuori90(B + B - A)
         S1 = Fuori90(A + B)
         V1 = 90 - A
         '-------------------------------
         T2 = Array(T2,V1,A,C4,"  ","  ","  ","  ",Format2(S1)," ") ' cinquina 1
         Call AddRigaTabella(T2,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(3,RGB(0,225,185),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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         B4 = Fuori90(A + A - B)
         C4 = Fuori90(B + B - A)
         S2 = Fuori90(B4 + C4)
         V2 = 90 - B
         '-------------------------------
         T3 = Array(T3,V2,B4,B,"  ","  ","  ","  ",Format2(S2)," ") ' cinquina 2
         Call AddRigaTabella(T3,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(3,RGB(240,240,0),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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '
         '
         '-------------------------------
         T4 = Array(T4,"  ","  ","  ","  ","  ","  ","  ","  ","  ") ' cinquina 3
         Call AddRigaTabella(T4,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(200,200,255))
         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(255,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(200,200,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(200,200,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '
         B4 = Fuori90(A + A - B)
         C4 = Fuori90(B + B - A)
         '
         '-------------------------------
         T5 = Array(T5,"  ",Format2(C4),"+" & Format2(D2),Format2(B),"+" & Format2(D2),Format2(A),"+" & Format2(D2),Format2(B4)," ") ' cinquina 4
         Call AddRigaTabella(T5,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,128,128))'*
         Call SetColoreCella(4,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,128,128))'*
         Call SetColoreCella(6,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,128,128))'*
         Call SetColoreCella(8,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '
         '
         '-------------------------------
         T6 = Array(T6,"  ","  ","  ","  ","  ","  ","  ","  ","  ") ' cinquina 5
         Call AddRigaTabella(T6,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(200,200,255))
         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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(255,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(200,200,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(200,200,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         T7 = Array(T7,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T7,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(2,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(3,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(4,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(5,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(6,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         T8 = Array(T8,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T8,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(2,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(3,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(4,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(5,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(6,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '
         'N(1) = F4 : N(2) = C4 : N(3) = B : N(4) = A : N(5) = B4 : N(6) = F5
         '
         '
         Call SetTableWidth("20%")
         CreaTabella
         '***************************************************************************************
         'Scrivi StringaNumeri(N),0,1,5
         ruote(1) = R1
         ruote(2) = TT_
         ruote(3) = NZ_
         '
         If A > B Then
            D1 =(90 - A + B)
            D2 = 90 - D1
         End If
         If A < B Then
            D1 = Abs(A - B)
            D2 = 90 - D1
         End If
         '
         A1 = Fuori90(A + A)
         B1 = Fuori90(B + B)
         '
         '
         T1 = Array(T1,"  ",A1,B1,"  ","  ",A,B," dist ",D1)
         Call InitTabella(T1,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))
         Call SetColoreCella(6,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(7,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(8,RGB(245,145,245),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '------------------------------------
         B4 = Fuori90(A + A - B)
         C4 = Fuori90(B4 + B4 - A)
         S1 = Fuori90(A + B4)
         '-------------------------------
         T2 = Array(T2,V1,A,C4,"  ","  ","  ","  ",S1,"  ") ' cinquina 1
         Call AddRigaTabella(T2,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(3,RGB(0,225,185),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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         B4 = Fuori90(A + A - B)
         C4 = Fuori90(B4 + B4 - B)
         S2 = Fuori90(A + B4)
         '-------------------------------
         T3 = Array(T3,V2,B4,B,"  ","  ","  ","  ",S2,"  ") ' cinquina 2
         Call AddRigaTabella(T3,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(3,RGB(240,240,0),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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '
         '
         '-------------------------------
         T4 = Array(T4,"  ","  ","  ","  ","  ","  ","  ","  ","  ") ' cinquina 3
         Call AddRigaTabella(T4,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         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(255,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         B4 = Fuori90(A + A - B)
         C4 = Fuori90(B + B - A)
         C5 = Fuori90(B4 + B4 - A)
         '-------------------------------
         'T5 = Array(T5,"  ",Format2(C4),Format2(D2),Format2(B),Format2(D2),Format2(A),Format2(D2),Format2(B4)) ' cinquina 4
         T5 = Array(T5,"  ",Format2(B),"+" & Format2(D2),Format2(A),"+" & Format2(D2),Format2(B4),"+" & Format2(D2),Format2(C5),"  ") ' cinquina 4
         Call AddRigaTabella(T5,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(2,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,128,128))'*
         Call SetColoreCella(4,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,128,128))'*
         Call SetColoreCella(6,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,128,128))'*
         Call SetColoreCella(8,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         '-------------------------------
         T6 = Array(T6,"  ","  ","  ","  ","  ","  ","  ","  ","  ") ' cinquina 5
         Call AddRigaTabella(T6,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(255,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         T7 = Array(T7,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T7,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(2,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(3,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(4,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(5,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(6,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         T8 = Array(T8,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T8,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(2,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(3,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(4,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(5,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(6,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '
         'N(1) = F4 : N(2) = C4 : N(3) = B : N(4) = A : N(5) = B4 : N(6) = F5
         '
         '
         Call SetTableWidth("20%")
         CreaTabella
         '****************************************************************************************************
         If A > B Then
            D1 =(90 - A + B)
            D2 = 90 - D1
         End If
         If A < B Then
            D1 = Abs(A - B)
            D2 = 90 - D1
         End If
         '
         A1 = Fuori90(A + A)
         B1 = Fuori90(B + B)
         '
         '
         T1 = Array(T1,"  ",A1,B1,"  ","  ",A,B," dist ",D1)
         Call InitTabella(T1,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))
         Call SetColoreCella(6,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(7,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(8,RGB(245,145,245),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '------------------------------------
         B4 = Fuori90(A + A - B)
         C4 = Fuori90(B + B - A)
         C6 = Fuori90(C4 + C4 - B)
         S1 = Fuori90(A + C6)
         '-------------------------------
         T2 = Array(T2,V1,A,C4,"  ","  ","  ","  ",S1,"  ")
         Call AddRigaTabella(T2,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(3,RGB(0,225,185),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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         B4 = Fuori90(A + A - B)
         C4 = Fuori90(B + B - A)
         C6 = Fuori90(C4 + C4 - B)
         S2 = Fuori90(C4 + B)
         '-------------------------------
         T3 = Array(T3,V2,C6,B,"  ","  ","  ","  ",S2,"  ")
         Call AddRigaTabella(T3,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(3,RGB(240,240,0),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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '
         '
         '-------------------------------
         T4 = Array(T4,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T4,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         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(255,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         '-------------------------------
         B4 = Fuori90(A + A - B)
         C4 = Fuori90(B + B - A)
         C6 = Fuori90(C4 + C4 - B)
         S1 = Fuori90(A + B)
         '-------------------------------
         T5 = Array(T5,"  ",Format2(C6),"+" & Format2(D2),Format2(C4),"+" & Format2(D2),Format2(B),"+" & Format2(D2),Format2(A),"  ") ' cinquina 4
         Call AddRigaTabella(T5,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(2,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,128,128))'*
         Call SetColoreCella(4,RGB(0,225,185),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,128,128))'*
         Call SetColoreCella(6,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,128,128))'*
         Call SetColoreCella(8,RGB(240,240,0),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         '
         T6 = Array(T6,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T6,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         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))
         Call SetColoreCella(6,RGB(255,255,255),RGB(255,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         T7 = Array(T7,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T7,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(2,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(3,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(4,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(5,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(6,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         T8 = Array(T8,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T8,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(2,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(3,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(4,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(5,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(6,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(7,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(8,RGB(255,255,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '
         '
      Next
   Next
   '
   Call SetTableWidth("20%")
   CreaTabella
   Dim Dist
   For A = A2 To A2
      For B = B2 To B2
         For C = 3 To 45 Step 3
            Dist = Distanza(A,B)
            If Dist = C Then
               '---------------------------------
               If A > B Then
                  D1 =(90 - A + B)
                  D2 =(D1/3)
               Else
                  If A < B Then
                     D1 = Abs(A - B)
                     D2 =(D1/3)
                  End If
               End If
               '
               A1 =(A + A + A)
               B1 =(B + B + B)
               '
               '
               T1 = Array(T1,"  ",A1,B1,"  ",A,B," dist ",D1)
               Call InitTabella(T1,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(240,240,0),RGB(0,0,0))
               Call SetColoreCella(6,RGB(240,240,0),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,0,165),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '------------------------------------
               B4 = Fuori90((A1 + D1)/3)
               C4 = Fuori90((B1 - D1)/3)
               S1 = Fuori90(A + B)
               '-------------------------------
               T2 = Array(T2,"  ",A,B4,"  ","  ","  ",S1,"  ")
               Call AddRigaTabella(T2,Bianco_,"center",3,Nero_,"Dubai Light")
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(240,240,0),RGB(0,0,0))
               Call SetColoreCella(3,RGB(0,225,185),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))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(0,225,185),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               B4 = Fuori90((A1 + D1)/3)
               C4 = Fuori90((B1 - D1)/3)
               S2 = Fuori90(B4 + C4)
               '-------------------------------
               T3 = Array(T3,"  ",C4,B,"  ","  ","  ",S2,"  ")
               Call AddRigaTabella(T3,Bianco_,"center",3,Nero_,"Dubai Light")
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(0,225,185),RGB(0,0,0))
               Call SetColoreCella(3,RGB(240,240,0),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))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(0,225,185),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '
               '
               '-------------------------------
               T4 = Array(T4,"  ","  ","  ","  ","  ","  ","  ","  ")
               Call AddRigaTabella(T4,Bianco_,"center",3,Nero_,"Dubai Light")
               Call SetColoreCella(1,RGB(255,255,255),RGB(200,200,255))
               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(255,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(200,200,255))
               Call SetColoreCella(8,RGB(255,255,255),RGB(200,200,255))
               '-------------------------------
               '-------------------------------
               B4 = Fuori90((A1 + D1)/3)
               B4 = Fuori90((A1 + D1)/3)
               D3 = Distanza(B4,C4)
               '-------------------------------
               T5 = Array(T5,"  ",Format2(A),"+" & Format2(D2),Format2(B4),"+" & Format2(D3),Format2(C4),"+" & Format2(D2),Format2(B)) ' cinquina 4
               Call AddRigaTabella(T5,Bianco_,"center",3,Nero_,"Dubai Light")
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(240,240,0),RGB(0,0,0))
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,128,128))'*
               Call SetColoreCella(4,RGB(0,225,185),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,128,128))'*
               Call SetColoreCella(6,RGB(0,225,185),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,128,128))'*
               Call SetColoreCella(8,RGB(240,240,0),RGB(0,0,0))
               '-------------------------------
               '-------------------------------
               '-------------------------------
               T6 = Array(T6,"  ","  ","  ","  ","  ","  ","  ","  ")
               Call AddRigaTabella(T6,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))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '-------------------------------
               T7 = Array(T7,"  ","  ","  ","  ","  ","  ","  ","  ")
               Call AddRigaTabella(T7,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))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '
               '-------------------------------
               T8 = Array(T8,"  ","  ","  ","  ","  ","  ","  ","  ")
               Call AddRigaTabella(T8,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))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '-------------------------------
               '-------------------------------
               '
               '
               Call SetTableWidth("20%")
               CreaTabella
               '
            End If
         Next
      Next
   Next
   '------
End Sub

ecco lo script,ho aggiunto la ciclodinamica di Manna..sarebbe l'ultima tabella lo script la disegna la tabella
solo se le dist sono divisibile x 3,questa e la ciclodinamica di Manna..
scrivi 14 41 e vedrai la ciclodinamica di Manna..

Zetrix · 25 Ottobre 2024

[TT] [CA] [.. 53 .. 07 ..] C.8 Ambo 02416 [24/10/2024] [37.53.88.07.87]

Zetrix · 25 Ottobre 2024

TO 21 ambata contata 30 diretto stazione di MI

[TO] [.. 30 .. .. ..] C.1 Estratto 02416 [24/10/2024] [48.30.86.17.03]

caspita il 30 a TO a preso il freccia rossa e stato velocissimo..

Zetrix · 25 Ottobre 2024

[NZ] [07 .. .. .. ..] C.7 Estratto 02415 [22/10/2024] [07.77.67.17.46]

Zetrix · 25 Ottobre 2024

estrazione a dir poco deludente il 31 90 non e uscito ne a BA E ne a GE..
a BA e uscito il vert 13 e a GE il laterale 30

Zetrix · 25 Ottobre 2024

Pandit come ti trovi con la tabella sulla quadratura dei numeri ,se i numeri li vedi piccoli vi ho fatto vedere come
si possono ingrandire i numeri nella tabella..

Pandit · 26 Ottobre 2024

Grazie Zetrix sempre ottimi lavori, Chiaro e intuitivo

xToon

Advanced Premium Member

Advanced Premium Member

Super member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Super member

Advanced Premium Member

Super member

Advanced Premium Member

Advanced Premium Member

Super member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Super member