Novità

xToon

Stato
Chiusa ad ulteriori risposte.
9227.png

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

9228.PNG
[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]
 
Ultima modifica:
9280.png

nell'ultima estr si rileva questa condizione su roma

9281.PNG

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
 
Ultima modifica:
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
 
Ultima modifica:
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
Clicca per espandere...
Buonasera,a me interesserebbe,poi fregatene di chi ti risponde male.... Vai avanti con la tua bravura e passione
 
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
 
9289.PNG

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
 
Ultima modifica:
9293.PNG

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
 
Ultima modifica:
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
Clicca per espandere...
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.
 
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
 
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..
 
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
 
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..
 
Ultima modifica:
9294.PNG

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
 
9295.PNG

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
 
Ultima modifica:
Tabella Ambata contata1.png

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
 
Ultima modifica:
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 05 aprile 2025
    Bari
    10
    58
    03
    61
    14
    Cagliari
    04
    67
    36
    85
    87
    Firenze
    70
    45
    80
    62
    06
    Genova
    05
    66
    32
    59
    89
    Milano
    20
    56
    02
    87
    47
    Napoli
    60
    63
    75
    72
    06
    Palermo
    14
    80
    30
    76
    70
    Roma
    73
    42
    36
    79
    08
    Torino
    26
    74
    83
    78
    31
    Venezia
    06
    60
    85
    76
    40
    Nazionale
    44
    11
    71
    06
    37
    Estrazione Simbolotto
    Genova
    26
    14
    36
    31
    44
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto