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
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28

Ultimi Messaggi

Indietro
Alto