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
    venerdì 10 gennaio 2025
    Bari
    40
    61
    11
    86
    37
    Cagliari
    31
    02
    51
    68
    87
    Firenze
    73
    55
    34
    52
    18
    Genova
    11
    40
    27
    82
    20
    Milano
    80
    71
    65
    19
    10
    Napoli
    50
    30
    03
    01
    36
    Palermo
    66
    42
    43
    76
    89
    Roma
    05
    22
    62
    35
    39
    Torino
    17
    58
    62
    86
    69
    Venezia
    43
    89
    14
    04
    40
    Nazionale
    64
    76
    35
    40
    19
    Estrazione Simbolotto
    Bari
    08
    07
    37
    33
    38
Indietro
Alto