xToon

Zetrix · 9 Ottobre 2024

grazie blacklotto, aggiorno di nuovo le tabelle..

Zetrix · 9 Ottobre 2024

11-89 (TT)

Zetrix · 9 Ottobre 2024

aggiorno le ruote

RO TO VE 11 89

Zetrix · 9 Ottobre 2024

Zetrix · 10 Ottobre 2024

nuova tecnica il triangolo vincente
si devono rilevare tre numeri della stessa decina uniti su una ruota e
si fa la Piramida su questi numeri

[NZ] [.. .. 49 .. ..] C. 4 Estratto 02405 [04/10/2024] [64.38.49.22.61]

per tentativo di ambo i diametrali dei numeri esclusi

1Ambo 49 68
2Ambo 49 59

[TT] [CA][49 .. .. .. 68] C.1 Ambo 02402 [28/09/2024] [49.67.26.29.68]

Zetrix · 10 Ottobre 2024

nell'ultima estr si rileva questa condizione su roma

Numeri in gioco 84 su RO per Estratto
In corso

Numeri in gioco 84.65 su RO TT NZ per Ambo
In corso
Numeri in gioco 84.51 su RO TT NZ per Ambo
In corso

Zetrix · 12 Ottobre 2024

vorrei regalarvi uno script che disegna tutte le tabelle su tutte le figure sulle estrazioni
la base dello script la scritto Mike58 , invece io ho ridefinito meglio la visione della tabella..
ma in questo forum molti mi hanno risposto male e non dovrei mettere nessuna tabella..
e quanto uno ti risponde male vuol dire che non a nessuna stima di te

scarfacetony · 12 Ottobre 2024

Zetrix ha scritto:
vorrei regalarvi uno script che disegna tutte le tabelle su tutte le figure sulle estrazioni
la base dello script la scritto Mike58 , invece io ho ridefinito meglio la visione della tabella..
ma in questo forum molti mi hanno risposto male e non dovrei mettere nessuna tabella..
e quanto uno ti risponde male vuol dire che non a nessuna stima di te

Buonasera,a me interesserebbe,poi fregatene di chi ti risponde male.... Vai avanti con la tua bravura e passione

Zetrix · 12 Ottobre 2024

scarface lo script non solo a te interesserebbe ma anche agli altri
soltanto che te ai avuto il coraggio di rispondere gli altri no
a me mi hanno sempre insegnato se uno ti risponde male te li rispondi malissimo

Zetrix · 12 Ottobre 2024

scarface lo script disegna questa tabella ma e solo una parte della tabella
la tabella si puo dimensionare in altezza e si fa una modifica nello script

Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")

vedi il numero ,5, tra le virgole, se si modifica questo numero si dimensiona in altezza la tabella
se scrivo 2 la riga della tabella si ridimensiona
adesso provo a ridimensionarla la tabella cosi vedi la differenza della tabella

Zetrix · 12 Ottobre 2024

la tabella lo ridimensionata invece di 5 ho messo 2 vedi la differenza con l'altra tabella
se metti 0 la tabella diventa piu ristretta di questa tabella
ma se scrivi 5 i numeri si leggono bene nella tabella
questa e la tabella con la figura 1 lo script ti fa vedere tutte e 9 le tabelle dalla figura 1 sino alla figura 9

Alien. · 12 Ottobre 2024

Zetrix ha scritto:
vorrei regalarvi uno script che disegna tutte le tabelle su tutte le figure sulle estrazioni
la base dello script la scritto Mike58 , invece io ho ridefinito meglio la visione della tabella..
ma in questo forum molti mi hanno risposto male e non dovrei mettere nessuna tabella..
e quanto uno ti risponde male vuol dire che non a nessuna stima di te

Ciao Zetrix quello che dici non è vero non centra la stima è lui che ha problemi e va curato da uno molto competente questo è un forum del lotto non dove uno deve sfogare le proprie frustrazioni della vita che abbiamo tutti. Vai tranquillo continua le tue ricerche.

Zetrix · 12 Ottobre 2024

Codice:

Sub Main
   Dim Na(30),Nu(5),aN(5),Ru(1)
   Dim Num1,Num2,Num3,Num4,Num5
   Dim x,y,k,z,s,r,es,Ruota,Nk
   Dim T
   tv = InputBox("Quante estrazioni vuoi controllare ?",,0)
   ex = EstrazioneFin - tv
   For es = ex To ex
      Messaggio(es)
      T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","   "," I "," II "," III "," IV "," V ","  ")
      '
      Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
      For Ruota = 1 To 12
         If Ruota = 11 Then Ruota = 12 End If
         For p = 1 To 5
            aN(p) = Estratto(es,Ruota,p)
            Nu(p) = Figura(Estratto(es,Ruota,p))
         Next
         '-----------------------------------------------
         '
         T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
         Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
         For y = 1 To 90 Step 9
            'x = 2
            If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
            If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
            If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
            If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
            If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
            If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
            If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
            If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
            If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
            If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
            If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
            If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
            If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
            If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
            If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
         Next
         Call SetColoreCella(1,RGB(59,159,182),0)
         Call SetColoreCella(7,RGB(59,159,182),0)
         Call SetColoreCella(13,RGB(59,159,182),0)
         Call SetColoreCella(14,RGB(59,159,182),0)
      Next
      CreaTabella
      T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
      '
      Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
      For Ruota = 1 To 12
         If Ruota = 11 Then Ruota = 12 End If
         For p = 1 To 5
            aN(p) = Estratto(es,Ruota,p)
            Nu(p) = Figura(Estratto(es,Ruota,p))
         Next
         '-----------------------------------------------
         '
         T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
         Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
         For y = 2 To 90 Step 9
            '
            If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
            If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
            If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
            If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
            If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
            If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
            If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
            If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
            If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
            If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
            If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
            If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
            If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
            If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
            If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
         Next
         Call SetColoreCella(1,RGB(59,159,182),0)
         Call SetColoreCella(7,RGB(59,159,182),0)
         Call SetColoreCella(13,RGB(59,159,182),0)
         Call SetColoreCella(14,RGB(59,159,182),0)
      Next
      CreaTabella
      T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
      '
      Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
      For Ruota = 1 To 12
         If Ruota = 11 Then Ruota = 12 End If
         For p = 1 To 5
            aN(p) = Estratto(es,Ruota,p)
            Nu(p) = Figura(Estratto(es,Ruota,p))
         Next
         '-----------------------------------------------
         '
         T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
         Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
         For y = 3 To 90 Step 9
            'x = 2
            If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
            If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
            If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
            If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
            If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
            If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
            If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
            If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
            If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
            If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
            If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
            If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
            If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
            If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
            If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
         Next
         Call SetColoreCella(1,RGB(59,159,182),0)
         Call SetColoreCella(7,RGB(59,159,182),0)
         Call SetColoreCella(13,RGB(59,159,182),0)
         Call SetColoreCella(14,RGB(59,159,182),0)
      Next
      CreaTabella
      T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
      '
      Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
      For Ruota = 1 To 12
         If Ruota = 11 Then Ruota = 12 End If
         For p = 1 To 5
            aN(p) = Estratto(es,Ruota,p)
            Nu(p) = Figura(Estratto(es,Ruota,p))
         Next
         '-----------------------------------------------
         '
         T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
         Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
         For y = 4 To 90 Step 9
            'x = 2
            If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
            If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
            If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
            If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
            If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
            If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
            If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
            If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
            If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
            If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
            If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
            If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
            If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
            If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
            If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
         Next
         Call SetColoreCella(1,RGB(59,159,182),0)
         Call SetColoreCella(7,RGB(59,159,182),0)
         Call SetColoreCella(13,RGB(59,159,182),0)
         Call SetColoreCella(14,RGB(59,159,182),0)
      Next
      CreaTabella
      T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
      '
      Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
      For Ruota = 1 To 12
         If Ruota = 11 Then Ruota = 12 End If
         For p = 1 To 5
            aN(p) = Estratto(es,Ruota,p)
            Nu(p) = Figura(Estratto(es,Ruota,p))
         Next
         '-----------------------------------------------
         '
         T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
         Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
         For y = 5 To 90 Step 9
            'x = 2
            If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
            If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
            If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
            If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
            If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
            If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
            If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
            If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
            If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
            If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
            If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
            If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
            If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
            If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
            If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
         Next
         Call SetColoreCella(1,RGB(59,159,182),0)
         Call SetColoreCella(7,RGB(59,159,182),0)
         Call SetColoreCella(13,RGB(59,159,182),0)
         Call SetColoreCella(14,RGB(59,159,182),0)
      Next
      CreaTabella
      T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
      '
      Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
      For Ruota = 1 To 12
         If Ruota = 11 Then Ruota = 12 End If
         For p = 1 To 5
            aN(p) = Estratto(es,Ruota,p)
            Nu(p) = Figura(Estratto(es,Ruota,p))
         Next
         '-----------------------------------------------
         '
         T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
         Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
         For y = 6 To 90 Step 9
            'x = 2
            If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
            If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
            If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
            If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
            If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
            If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
            If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
            If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
            If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
            If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
            If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
            If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
            If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
            If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
            If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
         Next
         Call SetColoreCella(1,RGB(59,159,182),0)
         Call SetColoreCella(7,RGB(59,159,182),0)
         Call SetColoreCella(13,RGB(59,159,182),0)
         Call SetColoreCella(14,RGB(59,159,182),0)
      Next
      CreaTabella
      T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
      '
      Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
      For Ruota = 1 To 12
         If Ruota = 11 Then Ruota = 12 End If
         For p = 1 To 5
            aN(p) = Estratto(es,Ruota,p)
            Nu(p) = Figura(Estratto(es,Ruota,p))
         Next
         '-----------------------------------------------
         '
         T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
         Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
         For y = 7 To 90 Step 9
            'x = 2
            If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
            If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
            If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
            If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
            If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
            If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
            If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
            If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
            If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
            If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
            If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
            If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
            If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
            If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
            If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
         Next
         Call SetColoreCella(1,RGB(59,159,182),0)
         Call SetColoreCella(7,RGB(59,159,182),0)
         Call SetColoreCella(13,RGB(59,159,182),0)
         Call SetColoreCella(14,RGB(59,159,182),0)
      Next
      CreaTabella
      T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
      '
      Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
      For Ruota = 1 To 12
         If Ruota = 11 Then Ruota = 12 End If
         For p = 1 To 5
            aN(p) = Estratto(es,Ruota,p)
            Nu(p) = Figura(Estratto(es,Ruota,p))
         Next
         '-----------------------------------------------
         '
         T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
         Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
         For y = 8 To 90 Step 9
            'x = 2
            If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
            If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
            If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
            If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
            If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
            If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
            If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
            If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
            If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
            If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
            If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
            If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
            If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
            If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
            If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
         Next
         Call SetColoreCella(1,RGB(59,159,182),0)
         Call SetColoreCella(7,RGB(59,159,182),0)
         Call SetColoreCella(13,RGB(59,159,182),0)
         Call SetColoreCella(14,RGB(59,159,182),0)
      Next
      CreaTabella
      T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
      '
      Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
      For Ruota = 1 To 12
         If Ruota = 11 Then Ruota = 12 End If
         For p = 1 To 5
            aN(p) = Estratto(es,Ruota,p)
            Nu(p) = Figura(Estratto(es,Ruota,p))
         Next
         '-----------------------------------------------
         '
         T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
         Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
         For y = 9 To 90 Step 9
            'x = 2
            If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
            If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
            If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
            If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
            If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
            If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
            If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
            If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
            If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
            If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
            If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
            If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
            If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
            If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
            If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
         Next
         Call SetColoreCella(1,RGB(59,159,182),0)
         Call SetColoreCella(7,RGB(59,159,182),0)
         Call SetColoreCella(13,RGB(59,159,182),0)
         Call SetColoreCella(14,RGB(59,159,182),0)
      Next
      CreaTabella
      '
   Next
End Sub

scarface ecco lo script

Zetrix · 12 Ottobre 2024

Ciao Alien, lasciamo stare che gia di problemi ce ne sono tanti,
ieri ho giocato il 7 90 a BA e stasera e uscito a VE ..e che vogliamo fare..
io non gioco a tutte ..ogni tanto gioco a tutte..e brava la lottomatica..

Zetrix · 12 Ottobre 2024

attenti a quei due

Zetrix · 13 Ottobre 2024

Codice:

Sub Main
   Dim Na(30),Nu(5),aN(5),Ru(1)
   Dim Num1,Num2,Num3,Num4,Num5
   Dim x,y,k,z,s,r,es,Ruota,Nk
   Dim T
   x = InputBox("Quale numero vuoi evidenziare in tabella ?",,0)
   tv = InputBox("Quante estrazioni vuoi controllare ?",,0)
   ex = EstrazioneFin - tv
   For es = ex To ex
      For x = x To x
         Messaggio(es)
         T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","   "," I "," II "," III "," IV "," V ","  ")
         '
         Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
         For Ruota = 1 To 12
            If Ruota = 11 Then Ruota = 12 End If
            For p = 1 To 5
               aN(p) = Estratto(es,Ruota,p)
               Nu(p) = Figura(Estratto(es,Ruota,p))
            Next
            '-----------------------------------------------
            '
            T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
            Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
            For y = 1 To 90 Step 9
               'x = 2
               If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
               If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
               If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
               If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
               If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
               If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
               If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
               If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
               If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
               If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
               If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
               If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
               If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
               If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
               If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
            Next
            Call SetColoreCella(1,RGB(59,159,182),0)
            Call SetColoreCella(7,RGB(59,159,182),0)
            Call SetColoreCella(13,RGB(59,159,182),0)
            Call SetColoreCella(14,RGB(59,159,182),0)
         Next
         CreaTabella
         T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
         '
         Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
         For Ruota = 1 To 12
            If Ruota = 11 Then Ruota = 12 End If
            For p = 1 To 5
               aN(p) = Estratto(es,Ruota,p)
               Nu(p) = Figura(Estratto(es,Ruota,p))
            Next
            '-----------------------------------------------
            '
            T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
            Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
            For y = 2 To 90 Step 9
               '
               If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
               If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
               If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
               If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
               If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
               If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
               If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
               If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
               If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
               If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
               If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
               If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
               If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
               If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
               If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
            Next
            Call SetColoreCella(1,RGB(59,159,182),0)
            Call SetColoreCella(7,RGB(59,159,182),0)
            Call SetColoreCella(13,RGB(59,159,182),0)
            Call SetColoreCella(14,RGB(59,159,182),0)
         Next
         CreaTabella
         T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
         '
         Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
         For Ruota = 1 To 12
            If Ruota = 11 Then Ruota = 12 End If
            For p = 1 To 5
               aN(p) = Estratto(es,Ruota,p)
               Nu(p) = Figura(Estratto(es,Ruota,p))
            Next
            '-----------------------------------------------
            '
            T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
            Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
            For y = 3 To 90 Step 9
               'x = 2
               If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
               If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
               If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
               If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
               If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
               If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
               If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
               If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
               If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
               If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
               If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
               If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
               If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
               If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
               If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
            Next
            Call SetColoreCella(1,RGB(59,159,182),0)
            Call SetColoreCella(7,RGB(59,159,182),0)
            Call SetColoreCella(13,RGB(59,159,182),0)
            Call SetColoreCella(14,RGB(59,159,182),0)
         Next
         CreaTabella
         T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
         '
         Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
         For Ruota = 1 To 12
            If Ruota = 11 Then Ruota = 12 End If
            For p = 1 To 5
               aN(p) = Estratto(es,Ruota,p)
               Nu(p) = Figura(Estratto(es,Ruota,p))
            Next
            '-----------------------------------------------
            '
            T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
            Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
            For y = 4 To 90 Step 9
               'x = 2
               If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
               If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
               If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
               If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
               If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
               If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
               If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
               If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
               If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
               If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
               If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
               If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
               If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
               If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
               If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
            Next
            Call SetColoreCella(1,RGB(59,159,182),0)
            Call SetColoreCella(7,RGB(59,159,182),0)
            Call SetColoreCella(13,RGB(59,159,182),0)
            Call SetColoreCella(14,RGB(59,159,182),0)
         Next
         CreaTabella
         T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
         '
         Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
         For Ruota = 1 To 12
            If Ruota = 11 Then Ruota = 12 End If
            For p = 1 To 5
               aN(p) = Estratto(es,Ruota,p)
               Nu(p) = Figura(Estratto(es,Ruota,p))
            Next
            '-----------------------------------------------
            '
            T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
            Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
            For y = 5 To 90 Step 9
               'x = 2
               If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
               If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
               If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
               If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
               If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
               If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
               If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
               If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
               If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
               If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
               If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
               If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
               If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
               If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
               If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
            Next
            Call SetColoreCella(1,RGB(59,159,182),0)
            Call SetColoreCella(7,RGB(59,159,182),0)
            Call SetColoreCella(13,RGB(59,159,182),0)
            Call SetColoreCella(14,RGB(59,159,182),0)
         Next
         CreaTabella
         T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
         '
         Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
         For Ruota = 1 To 12
            If Ruota = 11 Then Ruota = 12 End If
            For p = 1 To 5
               aN(p) = Estratto(es,Ruota,p)
               Nu(p) = Figura(Estratto(es,Ruota,p))
            Next
            '-----------------------------------------------
            '
            T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
            Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
            For y = 6 To 90 Step 9
               'x = 2
               If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
               If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
               If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
               If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
               If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
               If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
               If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
               If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
               If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
               If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
               If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
               If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
               If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
               If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
               If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
            Next
            Call SetColoreCella(1,RGB(59,159,182),0)
            Call SetColoreCella(7,RGB(59,159,182),0)
            Call SetColoreCella(13,RGB(59,159,182),0)
            Call SetColoreCella(14,RGB(59,159,182),0)
         Next
         CreaTabella
         T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
         '
         Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
         For Ruota = 1 To 12
            If Ruota = 11 Then Ruota = 12 End If
            For p = 1 To 5
               aN(p) = Estratto(es,Ruota,p)
               Nu(p) = Figura(Estratto(es,Ruota,p))
            Next
            '-----------------------------------------------
            '
            T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
            Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
            For y = 7 To 90 Step 9
               'x = 2
               If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
               If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
               If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
               If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
               If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
               If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
               If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
               If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
               If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
               If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
               If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
               If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
               If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
               If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
               If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
            Next
            Call SetColoreCella(1,RGB(59,159,182),0)
            Call SetColoreCella(7,RGB(59,159,182),0)
            Call SetColoreCella(13,RGB(59,159,182),0)
            Call SetColoreCella(14,RGB(59,159,182),0)
         Next
         CreaTabella
         T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
         '
         Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
         For Ruota = 1 To 12
            If Ruota = 11 Then Ruota = 12 End If
            For p = 1 To 5
               aN(p) = Estratto(es,Ruota,p)
               Nu(p) = Figura(Estratto(es,Ruota,p))
            Next
            '-----------------------------------------------
            '
            T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
            Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
            For y = 8 To 90 Step 9
               'x = 2
               If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
               If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
               If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
               If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
               If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
               If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
               If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
               If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
               If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
               If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
               If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
               If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
               If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
               If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
               If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
            Next
            Call SetColoreCella(1,RGB(59,159,182),0)
            Call SetColoreCella(7,RGB(59,159,182),0)
            Call SetColoreCella(13,RGB(59,159,182),0)
            Call SetColoreCella(14,RGB(59,159,182),0)
         Next
         CreaTabella
         T = Array(T,Replace(DataEstrazione(es),"/",".")," I "," II "," III "," IV "," V ","  "," I "," II "," III "," IV "," V ","  ")
         '
         Call InitTabella(T,RGB(59,159,182),"center",5,Nero_,"WIDE LATIN")
         For Ruota = 1 To 12
            If Ruota = 11 Then Ruota = 12 End If
            For p = 1 To 5
               aN(p) = Estratto(es,Ruota,p)
               Nu(p) = Figura(Estratto(es,Ruota,p))
            Next
            '-----------------------------------------------
            '
            T = Array(T,SiglaRuota(Ruota),aN(1),aN(2),aN(3),aN(4),aN(5),SiglaRuota(Ruota),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),SiglaRuota(Ruota))
            Call AddRigaTabella(T,Bianco_,"center",5,,"WIDE LATIN")
            For y = 9 To 90 Step 9
               'x = 2
               If Nu(1) = y Then Call SetColoreCella(8,RGB(240,240,0),RGB(0,100,100))
               If Nu(2) = y Then Call SetColoreCella(9,RGB(240,240,0),RGB(0,100,100))
               If Nu(3) = y Then Call SetColoreCella(10,RGB(240,240,0),RGB(0,100,100))
               If Nu(4) = y Then Call SetColoreCella(11,RGB(240,240,0),RGB(0,100,100))
               If Nu(5) = y Then Call SetColoreCella(12,RGB(240,240,0),RGB(0,100,100))
               If aN(1) And Nu(1) = y Then Call SetColoreCella(2,RGB(255,204,0),RGB(0,100,100))
               If aN(2) And Nu(2) = y Then Call SetColoreCella(3,RGB(255,204,0),RGB(0,100,100))
               If aN(3) And Nu(3) = y Then Call SetColoreCella(4,RGB(255,204,0),RGB(0,100,100))
               If aN(4) And Nu(4) = y Then Call SetColoreCella(5,RGB(255,204,0),RGB(0,100,100))
               If aN(5) And Nu(5) = y Then Call SetColoreCella(6,RGB(255,204,0),RGB(0,100,100))
               If aN(1) = x Then Call SetColoreCella(2,RGB(240,0,240),RGB(230,230,230))
               If aN(2) = x Then Call SetColoreCella(3,RGB(240,0,240),RGB(230,230,230))
               If aN(3) = x Then Call SetColoreCella(4,RGB(240,0,240),RGB(230,230,230))
               If aN(4) = x Then Call SetColoreCella(5,RGB(240,0,240),RGB(230,230,230))
               If aN(5) = x Then Call SetColoreCella(6,RGB(240,0,240),RGB(230,230,230))
            Next
            Call SetColoreCella(1,RGB(59,159,182),0)
            Call SetColoreCella(7,RGB(59,159,182),0)
            Call SetColoreCella(13,RGB(59,159,182),0)
            Call SetColoreCella(14,RGB(59,159,182),0)
         Next
         CreaTabella
         '
      Next
   Next
End Sub

scarface mi sono dimenticato in tabella si puo anche evidenziare un numero a scelta
esempio vuoi evidenziare il 90 scrivi in inputbox il 90 se no non scrivere niente

Zetrix · 13 Ottobre 2024

buona domenica
grazie Pandit,Alien, lo so che siete entusiasti delle mie tabelle daltronde ce la mia super visione nello script..
e si nota la differenza nella tabella e cosi in tutti gli altri miei script..ma non avete visto ancora altre mie tabelle..

Zetrix · 13 Ottobre 2024

Numeri in gioco 57 su GE TO per Estratto
[GE] [.. .. .. .. 57] C.1 Estratto 02410 [12/10/2024] [06.79.21.30.57]

Numeri in gioco 57.57.80.15.64 su TT NZ per Ambo
[NZ] [57 .. .. .. 64] C.1 Ambo 02410 [12/10/2024] [57.33.85.74.64]

queste tabelle non le avete mai viste nel forum
ambata contata
in giallo sono i numeri estratti
in verde sono gli algoritmi della tabella delle estrazioni
in blu sono i numeri di calcolo
ho realizzato piu di cinquanta tabelle con la versione ambata contata e questa e una variante di gioco

Zetrix · 13 Ottobre 2024

grazie Suriciumalignu,
vorrei dimensionarle un po in altezza la tabella
forse un giorno vi spiego i miei studi sull'ambata contata
ho diverse versioni sull'ambata contata e sto seguendo queste tabelle..
considerate che i numeri estratti sono sovrapposti ai numeri degli algoritmi

Zetrix · 13 Ottobre 2024

questa e la tabella degli algoritmi ma segue un altra tabella
adesso i numeri estratti si sommano con questi numeri ma spiegare queste cose
non e semplice perche come vi ho detto ci sono diversi studi sull'ambata contata

xToon

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member