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
    giovedì 19 giugno 2025
    Bari
    32
    64
    67
    30
    17
    Cagliari
    39
    56
    77
    12
    35
    Firenze
    11
    16
    59
    72
    02
    Genova
    80
    79
    05
    03
    33
    Milano
    09
    87
    23
    88
    82
    Napoli
    56
    74
    85
    16
    61
    Palermo
    84
    21
    08
    18
    85
    Roma
    71
    84
    20
    54
    86
    Torino
    28
    36
    68
    49
    53
    Venezia
    14
    45
    39
    43
    42
    Nazionale
    73
    11
    46
    20
    26
    Estrazione Simbolotto
    Napoli
    43
    35
    11
    26
    40
Indietro
Alto