Novità

xToon

Stato
Chiusa ad ulteriori risposte.
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..
 
9427.PNG

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
 
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..
 
Grazie mille Zetrix, ci conto, e so che Tu hai un'inventiva e una capacità matematica non indifferente..
Grazie..
 
Pandit ai visto quanti script ho ma ne ho tantissimi ho anche molte tecniche ma per adesso non li voglio mettere
nel forum..
 
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.. 💪
 
9429.PNG

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
 
Ultima modifica:
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
 
Ultima modifica:
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..
 
Ultima modifica:
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
 
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..
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 04 luglio 2025
    Bari
    08
    45
    67
    28
    03
    Cagliari
    70
    57
    26
    88
    80
    Firenze
    83
    77
    22
    86
    67
    Genova
    04
    20
    78
    36
    47
    Milano
    12
    53
    34
    18
    57
    Napoli
    07
    19
    35
    75
    10
    Palermo
    06
    65
    11
    07
    23
    Roma
    01
    53
    48
    80
    46
    Torino
    30
    44
    71
    05
    21
    Venezia
    45
    67
    14
    44
    40
    Nazionale
    22
    27
    05
    18
    67
    Estrazione Simbolotto
    Nazionale
    12
    31
    32
    04
    44
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto