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
    sabato 28 giugno 2025
    Bari
    41
    76
    54
    04
    17
    Cagliari
    34
    52
    84
    54
    55
    Firenze
    21
    60
    89
    51
    03
    Genova
    36
    40
    46
    03
    73
    Milano
    32
    80
    01
    68
    12
    Napoli
    63
    34
    22
    85
    10
    Palermo
    21
    85
    64
    15
    65
    Roma
    48
    25
    42
    47
    50
    Torino
    51
    25
    14
    20
    28
    Venezia
    82
    48
    73
    53
    29
    Nazionale
    46
    55
    10
    32
    44
    Estrazione Simbolotto
    Napoli
    25
    01
    41
    45
    38

Ultimi Messaggi

Indietro
Alto