xToon

Zetrix · Mercoledì alle 21:22

grazie blacklotto, aggiorno di nuovo le tabelle..

Zetrix · Mercoledì alle 21:24

11-89 (TT)

Zetrix · Mercoledì alle 21:28

aggiorno le ruote

RO TO VE 11 89

Zetrix · Mercoledì alle 23:29

Zetrix · Giovedì alle 11:24

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 · Giovedì alle 11:32

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 · Ieri alle 08:35

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 · Ieri alle 19:53

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 · Ieri alle 22:49

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 · Ieri alle 22:55

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 · Ieri alle 23:12

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. · Ieri alle 23:21

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 · Ieri alle 23:27

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 · Ieri alle 23:30

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 · Ieri alle 23:43

attenti a quei due

Zetrix · Oggi alle 00:14

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 · Oggi alle 08:05

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 · Oggi alle 10:01

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 · Oggi alle 10:19

grazie Suriciumalignu,
come le trovate queste tabelle vorrei dimensionarle un po in altezza la tabella
forse un giorno vi spiego i miei studi che ho sull'ambata contata
ho diverse versioni sull'ambata contata e sto seguendo gli studi su queste tabelle..
innanzitutto dovete sapere che nella tabella delle estr a degli algoritmi

Zetrix · Oggi alle 10:30

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