Novità

xToon

Stato
Chiusa ad ulteriori risposte.
Alien ai visto il montepremi del superenalotto e arrivato quasi a 90 miloni di EURO
quanto arriva a 100 milioni di EURO fanno vedere che e stato vinto in qualche città
e nessuno sa chi a incassato il malloppo
secondo la mia visione questo gioco e una truffa e questo gioco deve cambiare
cosi non va bene per niente
ai visto le vincite che danno ai 2,3,4, danno una miseria 5 euro,20 euro,260 euro,
e la differenza del 4 al 5 e abnorme ai 5 danno 40 mila euro
e in tutta italia hanno realizzato solo 5 vincite con il 5
secondo la mia visione questo gioco devono togliere il super star che non serve a niente
e devono mettere le vincite con 1 + jolly, 2 + jolly, 3+jolly, 4+jolly,5+jolly,
te dirai e perche non fanno questo gioco vuoi la risposta e perche siamo in italia il paese dei balocchi
e nessuno si ribella a questo stato di cose perche sono tutti magnacci e si abbuffano di soldi.
 
9297.PNG

[CA] [.. .. 47 75 ..] C.1 Ambo 02410 [12/10/2024] [12.33.47.75.42]
 
Ultima modifica:
nessuno a detto grazie dello script che ho messo sull'ambata contata
aspettate adesso che vi metto gli altri script.
e dovrei mettere anche i miei studi sull'ambata contata su questo forum
aspettate il panettone a natale.
 
Ultima modifica:
Ciao Zetrix,

dai un pochino in più di tempo, non sempre ci si collega al forum.
Per conto mio, ripeto, grazie per quanto doni a noi utenti, e, certo che ti ringrazio per lo script che hai inserito, e, rinnovo il bravo, per quanto impegno impieghi nelle tue ricerche che condividi.
Mi pare, che già tempo fa ti scrissi che non ne hai bisogno dei complimenti, nemmeno degli applausi per i tuoi lavori, ma " gioisci " per la folta schiera che segue ogni tuo scritto, e la quantità, non fa " rumore ", ma automaticamente gratificano i tuoi sforzi nel migliorarti sempre di più, seguendoti costantemente.
Per conto mio, se davvero vuoi la partecipazione, e hai voglia, come hai sempre dimostrato, di voler andare avanti, dovresti pazientare, e gli interessati arriveranno, permettendo a chiunque, magari di farti qualche domanda, chiederti qualche modifica, tanto da creare parte dell'utenza che ti segue, un bel gruppo.
Oppure, invita alla discussione in merito ai tuoi studi, invoglia a partecipare.
Per conto mio, avendo tu questa bella passione per le tabelle, si potrebbe chiedere a Giuseppa di darti uno spazio come aveva il nostro Baffoblù, dove poterti esprimere come meglio credi nei tuoi lavori, suddividendo a tuo piacere le sezioni che vorrai aprire, e ovviamente seguire.
E, stanne certo che gli interessati arriveranno, e per il forum sarebbe un buon risveglio alla passione.
Avresti tutto ben ordinato, senza passare da una discussione all'altra in un unico post.
Te lo auguro una concessione di spazio del forum, ammesso che tu lo voglia.

👍👍👍

chi condivide questa iniziativa per Zetrix, e vuole dire la sua .....
 
Ciao Blacklotto,

ti ringrazio per le considerazioni che ai scritto su di me, ma voglio essere sincero non voglio i complimenti e nemmeno bravo
voglio almeno che dicono grazie per gli script che condivido nel forum
su uno script ci metto una giornata per scriverlo oltre agli studi che ci metto nello script e dopo vedi che tutto
il lavoro che fai nessuno scrive grazie per lo script
anche se devo dire che questa discussione l'avevo scritto per Toon che volevo spiegarli come si dimensiona
una tabella ma a quanto vedo sembra che non partecipa piu in questo forum
poi ho continuato a mettere le tabelle e a regalare alcuni dei miei script perche di script ne ho piu di cinquemila
si ai letto bene e di tabelle ne posso mettere quante ne voglio ma alcune volte ti fanno passare la voglia
di continuare a mettere le tabelle e anche gli script e tu sai meglio di me che scrivere uno script non e facile
sulla discussione come BAFFOBLU no non mi posso paragonare al BAFFO
BAFFOBLU era unico nella sua specialità della SpazioMetria ho visto i suoi lavori e mi dispiace perche avrei
voluto farli vedere le mie tabelle e i miei lavori e sono sicuro che ne sarebbe rimasto entusiasto delle mie tabelle..
E concludo visto e considerato che ho messo uno script sull'ambata contata e nessuno a scritto grazie
da adesso non ne metterò neanche uno script e quanto voglio al massimo metterò qualche tabella e
gli script ognuno se li scrivono per conto loro cosi vedranno cosa significa scrivere uno script
 
Ultima modifica:
9299.png

[TT] [VE] [78 .. .. .. 90] C.1 Ambo 02410 [12/10/2024] [78.03.85.07.90]
 
Ultima modifica:
Ti comprendo benissimo, e non ti do torto, ma nemmeno ragione.
La tua bravura dovrebbe essere condivisa, non " congelata " nel tuo computer, e portare avanti le tue considerazioni del gioco del lotto, cosa che si sta perdendo col tempo, definitivamente.
Se chi ti ha insegnato a fare li script, o comunque iniziare a comporli, avrebbe pensato come pensi tu ora, oggi non sapresti fare molto, e non è un listato che fa arricchire un giocatore, e nemmeno le ricerche, purtroppo.
E questo è un male a pensarla così, tra qualche anno, non ci sarà più nessuno che ne sarà capace.
Le tue tabelle, sono belle, ma se non le si possono usare, a lungo andare, non interesseranno più.

ciao !
 
blacklotto non comprendo quello che vorresti dire mi stai dicendo che devo mettere le tabelle
e devo mettere anche lo script se no a lungo andare le tabelle non interesseranno più a nessuno
ma chi le vuole mettere le tabelle
ma dove sta scritto che devo mettere lo script
alcuni script li ho condivisi nel forum ma non hanno detto grazie male peggio per loro,vuol dire che i miei script ad
alcuni gli fanno skifo,e allora questi non meritano niente.
 
Ultima modifica:
9305.PNG

[TT] [RO] [.. 71 .. .. 42] C.6 Ambo 02410 [12/10/2024] [63.71.88.50.42]
 
Ultima modifica:
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 buonasera,
Non ero a casa in questi giorni,adesso lo copio subito,grazie anche per le dritte per ingrandire e rimpicciolire la tabella.
Continua con le tue ricerche e studi.... "Tutto il resto è Noia"...
 
scarface non scrivo solo in questo forum ma anche in un altro forum
e aggiorno le tabelle

lotto.PNG
 
Ultima modifica:
x Pandit,Scarface,Alien,Blacklotto, e chi volesse collaborare posso scrivere una nuova discussione
che tratta una tematica sull'ambata contata
in questo forum mi sembra che nessuno tratta questa tematica forse non sanno nemmeno come si
calcola una ambata contata
fatemi sapere se siete daccordo a questa iniziativa e vi spiegherò come si calcola una ambata contata
anche se sono un po indeciso se scrivere questa tematica sull'ambata contata su questo forum
considerato che qualcuno mi a risposto male..
 
Ultima modifica:
x Pandit,Scarface,Alien,Blacklotto, e chi volesse collaborare posso scrivere una nuova discussione
che tratta una tematica sull'ambata contata
in questo forum mi sembra che nessuno tratta questa tematica forse non sanno nemmeno come si
calcola una ambata contata
fatemi sapere se siete daccordo a questa iniziativa e vi spiegherò come si calcola una ambata contata
anche se sono un po indeciso se scrivere questa tematica sull'ambata contata su questo forum
considerato che qualcuno mi a risposto male..
Presente
 
Vedi l'allegato 2291475

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
Gentilissimo Sig. Zetrix
se ciò non la disturba vorrei appropriarmi della sua idea, per trasportarla in un foglio Excel di cui le allego l'immagine:

1729013271042.png

Sono una piccola serie di fogli dove cerco, a volte riuscendoci, di sviluppare il mio cervello. No. Non mi sono espresso male. Poiché sembra che quel cattivone, il mio cervello, le idee le perda per strada, assieme ai ricordi. E allora, per tenerlo in funzione (si fa per dire) mi diletto a fare non ricordo neanche cosa.
Avevo questo foglietto dove, tutta sola, sola, campeggiava la tabella degli estratti. Poi, girovagando tra i post, ho visto la sua tabella. E' stato un colpo di fulmine! Dev'essere mia! Neanche fosse la Cucinotta da giovane (ma anche ora...).
Per ricrearla fo utilizzato una semplice formula: =RESTO(INT(C2/10) + RESTO(C2; 10) - 1; 9) + 1 (variando C e 2 seconda della cella interessata).
Se lei non ha nulla in contrario, solo se lei non ha nulla in contrario, vorrei renderla disponibile a tutti.
Onestamente non so a cosa serva. Ho letto più e più volte quello che ha scritto. Ma non capisco. Non perché, sia chiaro, lei non abbia spiegato con chiarezza, solo perché l'Alzheimer di cui soffro mi rende, spesso, un perfetto incapace di comprendere ciò che leggo.
Quindi, se lei non ha nulla in contrario a che io la metta a disposizione, mi farebbe piacere, a mo' di spiegazione, un piccolo riassunto di quello a cui serve e come utilizzarla. Potrei semplicemente metterla, come nota, sul foglio.
Nel frattempo la saluto
Baciccia
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 16 novembre 2024
    Bari
    17
    28
    73
    90
    07
    Cagliari
    41
    07
    61
    17
    06
    Firenze
    24
    88
    48
    02
    16
    Genova
    13
    87
    35
    62
    75
    Milano
    14
    75
    67
    88
    06
    Napoli
    10
    09
    63
    53
    78
    Palermo
    48
    07
    76
    86
    42
    Roma
    77
    75
    06
    14
    29
    Torino
    29
    23
    68
    70
    72
    Venezia
    88
    12
    09
    45
    30
    Nazionale
    73
    21
    67
    02
    84
    Estrazione Simbolotto
    Torino
    28
    33
    23
    03
    31
Indietro
Alto