xToon

Zetrix · Giovedì alle 22:33

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 · Giovedì alle 22:43

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 · Giovedì alle 22:51

Provala con 64.01.82.73 a me va benissimo..

Zetrix · Giovedì alle 22:55

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

Zetrix · Giovedì alle 23:07

Zetrix · Giovedì alle 23:13

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 · Giovedì alle 23:18

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

Zetrix · Giovedì alle 23:22

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

Pandit · Giovedì alle 23:26

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 · Giovedì alle 23:37

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 · Giovedì alle 23:58

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 · Venerdì alle 00:24

Buonanotte Zetrix e Grazie.

Zetrix · Venerdì alle 08:15

buongiorno

, Pandit ho ridefinito meglio la tabella della ciclodinamica..

Zetrix · Venerdì alle 08:18

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 · Venerdì alle 09:56

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

Zetrix · Venerdì alle 11:32

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 · Venerdì alle 13:12

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

Zetrix · Venerdì alle 21:52

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 · Venerdì alle 22:00

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 · Sabato alle 00:08

Grazie Zetrix sempre ottimi lavori, Chiaro e intuitivo

xToon

Advanced Premium Member

Advanced Premium Member

Senior Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Senior Member

Advanced Premium Member

Senior Member

Advanced Premium Member

Advanced Premium Member

Senior Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Senior Member