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ì 11 luglio 2025
    Bari
    39
    28
    27
    01
    80
    Cagliari
    54
    79
    69
    43
    61
    Firenze
    62
    60
    86
    80
    05
    Genova
    45
    10
    42
    79
    84
    Milano
    28
    59
    23
    46
    11
    Napoli
    01
    55
    52
    50
    39
    Palermo
    75
    17
    74
    82
    54
    Roma
    38
    13
    79
    25
    44
    Torino
    68
    29
    26
    40
    06
    Venezia
    46
    84
    64
    27
    67
    Nazionale
    72
    77
    46
    61
    23
    Estrazione Simbolotto
    Nazionale
    12
    34
    36
    10
    39
Indietro
Alto