Novità

xMike58 come formare una tabella con gli ambi diametrali

5933.png
Codice:
72_________ (41) _________ 25_________24

      -31___________-16___________-1

             +15___________+15

                   -0_______


[RO] [.. 41 .. .. ..] C.1 Estratto 02117 [04/05/2023] [06.41.68.25.44]
 
Ultima modifica:
5972.PNG

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..
 
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).:ROFLMAO:

Ciao
 
Codice:
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...:)
 
Ultima modifica:
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
 
5971.PNG

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..
 
Ultima modifica:
5977.png

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..
 
Ultima modifica:
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..
 
Ultima modifica:
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
 
5990.png

grazie MIKe, questa tabella lo fatto con un altro programma,
gli altri programmi che ai elencati lasciamo stare..
 
Ultima modifica:
ho messo questa riga ma mi da errore lo script

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

Codice:
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
 
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.
 
5995.png

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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 10 giugno 2025
    Bari
    48
    32
    74
    59
    08
    Cagliari
    77
    73
    72
    18
    66
    Firenze
    56
    33
    86
    23
    75
    Genova
    81
    29
    70
    25
    28
    Milano
    27
    21
    87
    88
    90
    Napoli
    80
    57
    86
    24
    43
    Palermo
    47
    30
    37
    69
    27
    Roma
    57
    51
    16
    18
    50
    Torino
    61
    11
    12
    83
    33
    Venezia
    11
    21
    53
    74
    39
    Nazionale
    29
    48
    42
    83
    81
    Estrazione Simbolotto
    Napoli
    31
    25
    11
    06
    16

Ultimi Messaggi

Indietro
Alto