xMike58 come formare una tabella con gli ambi diametrali

[Zetrix]

72_________ (41) _________ 25_________24

      -31___________-16___________-1

             +15___________+15

                   -0_______

[RO] [.. 41 .. .. ..] C.1 Estratto 02117 [04/05/2023] [06.41.68.25.44]

 

[Zetrix]

 

[Zetrix]

MIke come e sta tabella ho inserito anche gli ambi diam. i numeri si riescono a leggere bene
nella tabella oppure no, i colori dei numeri li ho messi di colore verde..
forse ho sbagliato a mettere due colonne giallo la devo rifare di nuovo la tabella..

 

[Mike58]

L'aspetto è come un vestito, ognuno a un suo stile, ma poi è anche importante come si porta.
Ia colorazione è una la cosa che deve piacere a te che ne fai uso.
Si !! quelle colonne gialle sono poche significative (orrende).

Ciao

 

[Zetrix]

si la tabella si puo sempre scegliere lo stile dei colori ci vuole un po di fantasia

 

[Zetrix]

Sub Main
   Dim T
   T = Array(T,"  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ")
   Call InitTabella(T)
   For n1 = 1 To 30
      n2 = DiametraleD(n1)
      n3 = Diametrale(n2)
      n4 = DiametraleD(n3)
      n5 = Fuori90(n1 + 30)
      n6 = DiametraleD(n5)
      n7 = Diametrale(n6)
      n8 = DiametraleD(n7)
      n9 = Fuori90(n1 + 60)
      n10 = DiametraleD(n9)
      n11 = Diametrale(n10)
      n12 = DiametraleD(n11)
      '
      n13 = DiametraleD(n1)
      n14 = DiametraleD(n4)
      n15 = DiametraleD(n5)
      n16 = DiametraleD(n8)
      n17 = DiametraleD(n9)
      n18 = DiametraleD(n12)
      '
      '
      T = Array(T,"",n1,n4,"",n5,n8,"",n9,n12,"","","",n13,n14,"",n15,n16,"",n17,n18,"","","")
      Call AddRigaTabella(T)
      For x = 1 To 21
         If x Then Call SetColoreCella((1),RGB(0,139,139),0)
         If x Then Call SetColoreCella((2),RGB(200,200,230),RGB(0,0100,100))
         If x Then Call SetColoreCella((3),RGB(200,200,230),RGB(0,0100,100))
         If x Then Call SetColoreCella((4),RGB(0,139,139),0)
         If x Then Call SetColoreCella((5),RGB(200,200,230),RGB(0,0100,100))
         If x Then Call SetColoreCella((6),RGB(200,200,230),RGB(0,0100,100))
         If x Then Call SetColoreCella((7),RGB(0,139,139),0)
         If x Then Call SetColoreCella((8),RGB(200,200,230),RGB(0,0100,100))
         If x Then Call SetColoreCella((9),RGB(200,200,230),RGB(0,0100,100))
         If x Then Call SetColoreCella((10),RGB(124,252,0),0)
         If x Then Call SetColoreCella((11),RGB(255,105,180),0)'.............
         If x Then Call SetColoreCella((12),RGB(242,245,0),0)
         If x Then Call SetColoreCella((13),RGB(200,200,230),RGB(0,0100,100))
         If x Then Call SetColoreCella((14),RGB(200,200,230),RGB(0,0100,100))
         If x Then Call SetColoreCella((15),RGB(0,139,139),0)
         If x Then Call SetColoreCella((16),RGB(200,200,230),RGB(0,0100,100))
         If x Then Call SetColoreCella((17),RGB(200,200,230),RGB(0,0100,100))
         If x Then Call SetColoreCella((18),RGB(0,139,139),0)
         If x Then Call SetColoreCella((19),RGB(200,200,230),RGB(0,0100,100))
         If x Then Call SetColoreCella((20),RGB(200,200,230),RGB(0,0100,100))
         If x Then Call SetColoreCella((21),RGB(0,139,139),0)
      Next
   Next
   Call SetTableWidth("25%")
   CreaTabella
End Sub

ecco lo script,vediamo te come la colori la tabella..
non le colorare in bianco e nero che sono orrende...

 

[Mike58]

No Zetrix, non mi interessa colorare la Tabella , quella la lascio alla fantasia propria.
Io Intervengo solo quando posso dare una mano ad elaborare un dato progetto.
Ciao

 

[Zetrix]

ciao MIke,Toon, vedete ho fatto questo disegno con visual 5 , stasera ho centrato il 34 a MI in 3 POS
peccato per 34 1 che non si e abbinato..
questi disegni li condivido nel gruppo privato, ma per questa volta vi farò vedere questo disegno con visual 5

MIKe mi ero dimenticato di dirti che l'ambata 9 che si giocava in 3 POS a Rm si doveva giocare anche il vert 90
infatti stasera a Rm e uscito il 90 in 3 POS
quindi la prossima nuova ambata che avrò in 3 POS devi giocare anche il vert per avere maggiore chance..
questa regola vale per tutte le ambate in generale, esempio se il 14 entra nelle porte girevole entra il 14 ed esce il 41
e cosi il 14 ti a fregato perche tu non ai giocato il 41..

 

[Zetrix]

toon come e sta tabella,forse la devo rifare di nuovo la tabella,
ma con un altro programma perche con gli script le tabelle non li disegna bene..

 

[Zetrix]

 

[Zetrix]

 

[Zetrix]

MIke come si fa a cambiare il carattere dei numeri in tabella vorrei mettere il verdana
che si leggono meglio i numeri in tabella..

Call AddRigaTabella(T,RGB(255,255,255),"Verdana")

ho provato cosi ma non va bene..

una cosa che non mi piace di queste tabelle e che disegna i rettangoli
invece di disegnare la tabella a quadretti..
forse e meglio che la tabella la disegno con un altro programma..

 

[Zetrix]

 

[Mike58]

MIke come si fa a cambiare il carattere dei numeri in tabella vorrei mettere il verdana
che si leggono meglio i numeri in tabella..

Call AddRigaTabella(T,RGB(255,255,255),"Verdana")

devi rispettare la sequenza parametri nella guida è indicata in modo dettagliato e comunque eccola
AddRigaTabella(T,RGB(255,255,255),,,,"Verdana")

per le altre cose per la quale non sei contento.... con excel o il free libreOffice potresti fare le tabelle sia per dimensione che per colorazione secondo la fantasia propria.

Ciao

 

[Zetrix]

grazie MIKe, questa tabella lo fatto con un altro programma,
gli altri programmi che ai elencati lasciamo stare..

 

[Zetrix]

ho messo questa riga ma mi da errore lo script

AddRigaTabella(T,RGB(255,255,255),,,,"Verdana")

Sub Main
   Dim T
   T = Array(T,"  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ","  ")
   Call InitTabella(T)
   For n1 = 1 To 30
      n2 = DiametraleD(n1)
      n3 = Diametrale(n2)
      n4 = DiametraleD(n3)
      n5 = Fuori90(n1 + 30)
      n6 = DiametraleD(n5)
      n7 = Diametrale(n6)
      n8 = DiametraleD(n7)
      n9 = Fuori90(n1 + 60)
      n10 = DiametraleD(n9)
      n11 = Diametrale(n10)
      n12 = DiametraleD(n11)
      '
      n13 = DiametraleD(n1)
      n14 = DiametraleD(n4)
      n15 = DiametraleD(n5)
      n16 = DiametraleD(n8)
      n17 = DiametraleD(n9)
      n18 = DiametraleD(n12)
      '
      '
      T = Array(T,"",n1,n4,"",n5,n8,"",n9,n12,"","","",n13,n14,"",n15,n16,"",n17,n18,"","","")
     AddRigaTabella(T,RGB(255,255,255),,,,"Verdana")
      For x = 1 To 21
         If x Then Call SetColoreCella((1),RGB(0,139,139),0)
         If x Then Call SetColoreCella((2),RGB(200,200,230),RGB(0,100,100))
         If x Then Call SetColoreCella((3),RGB(200,200,230),RGB(0,100,100))
         If x Then Call SetColoreCella((4),RGB(0,139,139),0)
         If x Then Call SetColoreCella((5),RGB(200,200,230),RGB(0,100,100))
         If x Then Call SetColoreCella((6),RGB(200,200,230),RGB(0,100,100))
         If x Then Call SetColoreCella((7),RGB(0,139,139),0)
         If x Then Call SetColoreCella((8),RGB(200,200,230),RGB(0,100,100))
         If x Then Call SetColoreCella((9),RGB(200,200,230),RGB(0,100,100))
         If x Then Call SetColoreCella((10),RGB(124,252,0),0)
         If x Then Call SetColoreCella((11),RGB(255,105,180),0)'.............
         If x Then Call SetColoreCella((12),RGB(242,245,0),0)
         If x Then Call SetColoreCella((13),RGB(200,200,230),RGB(0,100,100))
         If x Then Call SetColoreCella((14),RGB(200,200,230),RGB(0,100,100))
         If x Then Call SetColoreCella((15),RGB(0,139,139),0)
         If x Then Call SetColoreCella((16),RGB(200,200,230),RGB(0,100,100))
         If x Then Call SetColoreCella((17),RGB(200,200,230),RGB(0,100,100))
         If x Then Call SetColoreCella((18),RGB(0,139,139),0)
         If x Then Call SetColoreCella((19),RGB(200,200,230),RGB(0,100,100))
         If x Then Call SetColoreCella((20),RGB(200,200,230),RGB(0,100,100))
         If x Then Call SetColoreCella((21),RGB(0,139,139),0)
      Next
   Next
   Call SetTableWidth("28%")
   CreaTabella
End Sub

 

[Mike58]

ti dice che devi mettere la chiamata ovvero call addrigatabella(...........................).
quando usi le parentesi ci vuole la chiamata Call , e possibile anche senza chiamata call ma non ci vogliono le parentesi.

 

[Zetrix]

risolto mi ero dimenticato di scrivere il call center...............

 

[Zetrix]

toon se ti serve una tabella in particolare mi scrivi i dati della tabella e te la disegno
dopo farò una tabella con gli ambi diametrali

 

[Sakti]

Buono a sapersi, nel caso mi servisse ne approfitterò, grazie..