Novità

xSalvo50 e chi puo sistemare una tabella al 10elotto

Zetrix

Zetrix

Advanced Premium Member
buongiorno, volevo chiedere a Salvo50 se metto uno script del 10elotto puoi aiutarmi a sistemare una tabella
che evidenzia le terzine di somma..
in teoria ho scritto la formula a+b=c , ma evidenzia tutti i numeri nella tabella,
quindi ho sbagliato qualcosa e forse si deve aggiungere qualche IF nello script..
 
11185.PNG

questa e la tabella del 10elotto, se evidenzio una figura qualsiasi e tutto ok,
ma se devo evidenziare una terzina di somma colora tutti i numeri nella tabella..
invece dovrebbe colorare solo i tre numeri della terzina di somma..
 
Ciao a Tutti

Ciao Zetrix

Mi dispiace, ma non so come aiutarti, tu sei molto più bravo di me con i colori.
 
Ciao Salvo, ho risolto l'errore mi sono accorto che avevo fatto uno sbaglio a scrivere una riga nello script
ti ringrazio lo stesso per l'interesse se qualcuno e interessato a questa tabella posso mettere lo script..
forse Alien e interessato a questa tabella del 10elotto..
colorare una tabella non e poi tanto difficile la difficoltà sta nell'impostare lo script per realizzare la tabella..
 
11187.PNG

Salvo ecco la tabella, si nota che la tabella cambia aspetto se si cambia la modalità del tipo di scrittura,
es, qui ho cambiato il tipo di scrittura e quindi e diversa dell'altra tabella..
si possono scrivere diversi caratteri a secondo del tipo di scrittura che si vuole nella tabella,
es, nell'altra tabella ho usato la scrittura "Raavi" invece su questa tabella ho usato "ocr a extended"
ma ci sono centinaia di tipi di carattere che si possono scrivere e dare un aspetto migliore alla tabella..
ma i programmatori conoscono tutti i tipi di scrittura..
 
Ultima modifica:
Codice: 
Sub Main
   Dim T,T2,T1,T3,T4,T5,T6,T7,T8,T9,T10
   Dim A,B,C,D,Y,R,V,K,L,N
   Dim N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N13,N14,N15
   Dim A2,B2,C2,D2,TV,EX,qq,Xfine,Ext
   Dim S1,S2,S3,P1,P2,P3
   Dim F(20),E,X(3)
   Dim ES,RS,S
   Dim Numeri(50),Numero(50),Numere(50),Numera(50),EStrat(20),Anumeri(10)
   'X = InputBox("Quale Figura vuoi",,0)
   TV = InputBox("Quante Estrazione vuoi controllare",,0)
   EX = EstrazioniArchivioDL - TV
   For K = EX To EX
      For P1 = 1 To 18
         For P2 = P1 + 1 To 19
            For P3 = P2 + 1 To 20
               '
               F(1) = EstrattoDL(K,1)
               F(2) = EstrattoDL(K,2)
               F(3) = EstrattoDL(K,3)
               F(4) = EstrattoDL(K,4)
               F(5) = EstrattoDL(K,5)
               F(6) = EstrattoDL(K,6)
               F(7) = EstrattoDL(K,7)
               F(8) = EstrattoDL(K,8)
               F(9) = EstrattoDL(K,9)
               F(10) = EstrattoDL(K,10)
               F(11) = EstrattoDL(K,11)
               F(12) = EstrattoDL(K,12)
               F(13) = EstrattoDL(K,13)
               F(14) = EstrattoDL(K,14)
               F(15) = EstrattoDL(K,15)
               F(16) = EstrattoDL(K,16)
               F(17) = EstrattoDL(K,17)
               F(18) = EstrattoDL(K,18)
               F(19) = EstrattoDL(K,19)
               F(20) = EstrattoDL(K,20)
               '------------------------
               EStrat(1) = EstrattoDL(K,1)
               EStrat(2) = EstrattoDL(K,2)
               EStrat(3) = EstrattoDL(K,3)
               EStrat(4) = EstrattoDL(K,4)
               EStrat(5) = EstrattoDL(K,5)
               EStrat(6) = EstrattoDL(K,6)
               EStrat(7) = EstrattoDL(K,7)
               EStrat(8) = EstrattoDL(K,8)
               EStrat(9) = EstrattoDL(K,9)
               EStrat(10) = EstrattoDL(K,10)
               EStrat(11) = EstrattoDL(K,11)
               EStrat(12) = EstrattoDL(K,12)
               EStrat(13) = EstrattoDL(K,13)
               EStrat(14) = EstrattoDL(K,14)
               EStrat(15) = EstrattoDL(K,15)
               EStrat(16) = EstrattoDL(K,16)
               EStrat(17) = EstrattoDL(K,17)
               EStrat(18) = EstrattoDL(K,18)
               EStrat(19) = EstrattoDL(K,19)
               EStrat(20) = EstrattoDL(K,20)
               '
               If ScriptInterrotto Then Exit Sub
               '------------------------
               OrdinaMatrice F,1
               '---------------------------------
               A = EStrat(P1)
               B = EStrat(P2)
               C = EStrat(P3)
               If(A + B) = C Then
                  If(A + B) = C Then
                     X(1) = A
                     X(2) = B
                     X(3) = C
                  End If
                  '-------------------------------
                  '-------------------------------
                  T1 = Array(T1,Format2(F(1))," ",Format2(F(2))," ",Format2(F(3))," ",Format2(F(4))," ",Format2(F(5)))
                  Call InitTabella(T1,Blu_,"center",7,Nero_,"ocr a extended")
                  Call SetColoreCella(1,RGB(0,0,255),RGB(170,170,255))
                  Call SetColoreCella(3,RGB(0,0,255),RGB(170,170,255))
                  Call SetColoreCella(5,RGB(0,0,255),RGB(170,170,255))
                  Call SetColoreCella(7,RGB(0,0,255),RGB(170,170,255))
                  Call SetColoreCella(9,RGB(0,0,255),RGB(170,170,255))
                  '-------------------------------
                  '-------------------------------
                  If X(1) = F(1) Or X(2) = F(1) Or X(3) = F(1) Then Call SetColoreCella(1,RGB(9,194,204),RGB(225,225,225))'
                  If X(1) = F(2) Or X(2) = F(2) Or X(3) = F(2) Then Call SetColoreCella(3,RGB(25,200,30),RGB(225,225,225))'
                  If X(1) = F(3) Or X(2) = F(3) Or X(3) = F(3) Then Call SetColoreCella(5,RGB(254,152,82),RGB(225,225,225))'
                  If X(1) = F(4) Or X(2) = F(4) Or X(3) = F(4) Then Call SetColoreCella(7,RGB(158,189,87),RGB(225,225,225))'
                  If X(1) = F(5) Or X(2) = F(5) Or X(3) = F(5) Then Call SetColoreCella(9,RGB(255,100,90),RGB(225,225,225))'
                  '-------------------------------
                  N1 =(F(2) - F(1)) : N1 =("+") & N1
                  N2 =(F(3) - F(2)) : N2 =("+") & N2
                  N3 =(F(4) - F(3)) : N3 =("+") & N3
                  N4 =(F(5) - F(4)) : N4 =("+") & N4
                  '
                  If Distanza(F(1),F(6)) = 30 Then N5 =("+30") & N5 Else N5 =(" ") End If
                  If Distanza(F(2),F(7)) = 30 Then N6 =("+30") & N6 Else N6 =(" ") End If
                  If Distanza(F(3),F(8)) = 30 Then N7 =("+30") & N7 Else N7 =(" ") End If
                  If Distanza(F(4),F(9)) = 30 Then N8 =("+30") & N8 Else N8 =(" ") End If
                  If Distanza(F(5),F(10)) = 30 Then N9 =("+30") & N9 Else N9 =(" ") End If
                  '
                  T2 = Array(T2,(N5),(N1),(N6),(N2),(N7),(N3),(N8),(N4),(N9))
                  Call AddRigaTabella(T2,Bianco_,"center",3,Nero_,"ocr a extended")
                  Call SetColoreCella(1,RGB(255,255,255),RGB(0,150,0))
                  Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,150))
                  Call SetColoreCella(3,RGB(255,255,255),RGB(0,150,0))
                  Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,150))
                  Call SetColoreCella(5,RGB(255,255,255),RGB(0,150,0))
                  Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,150))
                  Call SetColoreCella(7,RGB(255,255,255),RGB(0,150,0))
                  Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,150))
                  Call SetColoreCella(9,RGB(255,255,255),RGB(0,150,0))
                  '--------------------------------
                  '-------------------------------
                  '-------------------------------
                  '-------------------------------
                  T3 = Array(T3,Format2(F(6))," ",Format2(F(7))," ",Format2(F(8))," ",Format2(F(9))," ",Format2(F(10)))
                  Call AddRigaTabella(T3,Blu_,"center",7,Nero_,"ocr a extended")
                  Call SetColoreCella(1,RGB(0,0,255),RGB(170,170,255))
                  Call SetColoreCella(3,RGB(0,0,255),RGB(170,170,255))
                  Call SetColoreCella(5,RGB(0,0,255),RGB(170,170,255))
                  Call SetColoreCella(7,RGB(0,0,255),RGB(170,170,255))
                  Call SetColoreCella(9,RGB(0,0,255),RGB(170,170,255))
                  '-------------------------------
                  '-------------------------------
                  If X(1) = F(6) Or X(2) = F(6) Or X(3) = F(6) Then Call SetColoreCella(1,RGB(209,194,20),RGB(225,225,225))'
                  If X(1) = F(7) Or X(2) = F(7) Or X(3) = F(7) Then Call SetColoreCella(3,RGB(255,160,91),RGB(225,225,225))'
                  If X(1) = F(8) Or X(2) = F(8) Or X(3) = F(8) Then Call SetColoreCella(5,RGB(254,82,82),RGB(225,225,225))'
                  If X(1) = F(9) Or X(2) = F(9) Or X(3) = F(9) Then Call SetColoreCella(7,RGB(41,183,220),RGB(225,225,225))'
                  If X(1) = F(10) Or X(2) = F(10) Or X(3) = F(10) Then Call SetColoreCella(9,RGB(255,100,90),RGB(225,225,225))'
                  '-------------------------------
                  '-------------------------------
                  N1 =(F(7) - F(6)) : N1 =("+") & N1
                  N2 =(F(8) - F(7)) : N2 =("+") & N2
                  N3 =(F(9) - F(8)) : N3 =("+") & N3
                  N4 =(F(10) - F(9)) : N4 =("+") & N4
                  '
                  If Distanza(F(6),F(11)) = 30 Then N5 =("+30") & N5 Else N5 =(" ") End If
                  If Distanza(F(7),F(12)) = 30 Then N6 =("+30") & N6 Else N6 =(" ") End If
                  If Distanza(F(8),F(13)) = 30 Then N7 =("+30") & N7 Else N7 =(" ") End If
                  If Distanza(F(9),F(14)) = 30 Then N8 =("+30") & N8 Else N8 =(" ") End If
                  If Distanza(F(10),F(15)) = 30 Then N9 =("+30") & N9 Else N9 =(" ") End If
                  '
                  '
                  T4 = Array(T4,(N5),(N1),(N6),(N2),(N7),(N3),(N8),(N4),(N9))
                  Call AddRigaTabella(T4,Bianco_,"center",3,Nero_,"ocr a extended")
                  Call SetColoreCella(1,RGB(255,255,255),RGB(0,150,0))
                  Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,150))
                  Call SetColoreCella(3,RGB(255,255,255),RGB(0,150,0))
                  Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,150))
                  Call SetColoreCella(5,RGB(255,255,255),RGB(0,150,0))
                  Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,150))
                  Call SetColoreCella(7,RGB(255,255,255),RGB(0,150,0))
                  Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,150))
                  Call SetColoreCella(9,RGB(255,255,255),RGB(0,150,0))
                  '--------------------------------
                  '
                  '-------------------------------
                  T5 = Array(T5,Format2(F(11))," ",Format2(F(12))," ",Format2(F(13))," ",Format2(F(14))," ",Format2(F(15)))
                  Call AddRigaTabella(T5,Blu_,"center",7,Nero_,"ocr a extended")
                  Call SetColoreCella(1,RGB(0,0,255),RGB(170,170,255))
                  Call SetColoreCella(3,RGB(0,0,255),RGB(170,170,255))
                  Call SetColoreCella(5,RGB(0,0,255),RGB(170,170,255))
                  Call SetColoreCella(7,RGB(0,0,255),RGB(170,170,255))
                  Call SetColoreCella(9,RGB(0,0,255),RGB(170,170,255))
                  '-------------------------------
                  '
                  '-------------------------------
                  If X(1) = F(11) Or X(2) = F(11) Or X(3) = F(11) Then Call SetColoreCella(1,RGB(9,194,204),RGB(225,225,225))'
                  If X(1) = F(12) Or X(2) = F(12) Or X(3) = F(12) Then Call SetColoreCella(3,RGB(225,125,200),RGB(225,225,225))'
                  If X(1) = F(13) Or X(2) = F(13) Or X(3) = F(13) Then Call SetColoreCella(5,RGB(49,199,206),RGB(225,225,225))'
                  If X(1) = F(14) Or X(2) = F(14) Or X(3) = F(14) Then Call SetColoreCella(7,RGB(255,62,158),RGB(225,225,225))'
                  If X(1) = F(15) Or X(2) = F(15) Or X(3) = F(15) Then Call SetColoreCella(9,RGB(255,100,90),RGB(225,225,225))'
                  '-------------------------------
                  N1 =(F(12) - F(11)) : N1 =("+") & N1
                  N2 =(F(13) - F(12)) : N2 =("+") & N2
                  N3 =(F(14) - F(13)) : N3 =("+") & N3
                  N4 =(F(15) - F(14)) : N4 =("+") & N4
                  '
                  If Distanza(F(11),F(16)) = 30 Then N5 =("+30") & N5 Else N5 =(" ") End If
                  If Distanza(F(12),F(17)) = 30 Then N6 =("+30") & N6 Else N6 =(" ") End If
                  If Distanza(F(13),F(18)) = 30 Then N7 =("+30") & N7 Else N7 =(" ") End If
                  If Distanza(F(14),F(19)) = 30 Then N8 =("+30") & N8 Else N8 =(" ") End If
                  If Distanza(F(15),F(20)) = 30 Then N9 =("+30") & N9 Else N9 =(" ") End If
                  '
                  T6 = Array(T6,(N5),(N1),(N6),(N2),(N7),(N3),(N8),(N4),(N9))
                  Call AddRigaTabella(T6,Bianco_,"center",3,Nero_,"ocr a extended")
                  Call SetColoreCella(1,RGB(255,255,255),RGB(0,150,0))
                  Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,150))
                  Call SetColoreCella(3,RGB(255,255,255),RGB(0,150,0))
                  Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,150))
                  Call SetColoreCella(5,RGB(255,255,255),RGB(0,150,0))
                  Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,150))
                  Call SetColoreCella(7,RGB(255,255,255),RGB(0,150,0))
                  Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,150))
                  Call SetColoreCella(9,RGB(255,255,255),RGB(0,150,0))
                  '--------------------------------
                  '-------------------------------
                  '-------------------------------
                  '-------------------------------
                  T7 = Array(T7,Format2(F(16))," ",Format2(F(17))," ",Format2(F(18))," ",Format2(F(19))," ",Format2(F(20)))
                  Call AddRigaTabella(T7,Blu_,"center",7,Nero_,"ocr a extended")
                  Call SetColoreCella(1,RGB(0,0,255),RGB(170,170,255))
                  Call SetColoreCella(3,RGB(0,0,255),RGB(170,170,255))
                  Call SetColoreCella(5,RGB(0,0,255),RGB(170,170,255))
                  Call SetColoreCella(7,RGB(0,0,255),RGB(170,170,255))
                  Call SetColoreCella(9,RGB(0,0,255),RGB(170,170,255))
                  '-------------------------------
                  '-------------------------------
                  If X(1) = F(16) Or X(2) = F(16) Or X(3) = F(16) Then Call SetColoreCella(1,RGB(40,186,138),RGB(225,225,225))'
                  If X(1) = F(17) Or X(2) = F(17) Or X(3) = F(17) Then Call SetColoreCella(3,RGB(25,200,30),RGB(225,225,225))'
                  If X(1) = F(18) Or X(2) = F(18) Or X(3) = F(18) Then Call SetColoreCella(5,RGB(54,182,182),RGB(225,225,225))'
                  If X(1) = F(19) Or X(2) = F(19) Or X(3) = F(19) Then Call SetColoreCella(7,RGB(224,169,41),RGB(225,225,225))'
                  If X(1) = F(20) Or X(2) = F(20) Or X(3) = F(20) Then Call SetColoreCella(9,RGB(255,50,190),RGB(225,225,225))'
                  '-------------------------------
                  '-------------------------------
                  N1 =(F(17) - F(16)) : N1 =("+") & N1
                  N2 =(F(18) - F(17)) : N2 =("+") & N2
                  N3 =(F(19) - F(18)) : N3 =("+") & N3
                  N4 =(F(20) - F(19)) : N4 =("+") & N4
                  '
                  T8 = Array(T8,"  ",(N1)," ",(N2)," ",(N3)," ",(N4)," ")
                  Call AddRigaTabella(T8,Bianco_,"center",3,Nero_,"ocr a extended")
                  Call SetColoreCella(1,RGB(255,255,255),RGB(255,0,0))
                  Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,150))
                  Call SetColoreCella(3,RGB(255,255,255),RGB(255,0,0))
                  Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,150))
                  Call SetColoreCella(5,RGB(255,255,255),RGB(255,0,0))
                  Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,150))
                  Call SetColoreCella(7,RGB(255,255,255),RGB(255,0,0))
                  Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,150))
                  Call SetColoreCella(9,RGB(255,255,255),RGB(255,0,0))
                  '--------------------------------
                  Ext = DataEstrazioneDL(K)
                  T9 = Array(T9,Ext,"  ","10elotto"," ","  "," "," "," "," ")
                  Call AddRigaTabella(T9,Blu_,"center",2,Nero_,"ocr a extended")
                  Call SetColoreCella(1,RGB(0,0,255),RGB(225,225,225))
                  Call SetColoreCella(3,RGB(0,0,255),RGB(225,225,225))
                  Call SetColoreCella(5,RGB(0,0,255),RGB(225,225,225))
                  Call SetColoreCella(7,RGB(0,0,255),RGB(225,225,225))
                  Call SetColoreCella(9,RGB(0,0,255),RGB(225,225,225))
                  '-------------------------------
                  T10 = Array(T10,"  ","  ","  "," ","  "," "," "," "," ")
                  Call AddRigaTabella(T10,Bianco_,"center",2,Nero_,"ocr a extended")
                  '-------------------------------
                  Call SetTableWidth("35%")
                  CreaTabella
                  '
                  ScriviEstrazioneDL(K)
                  Scrivi GetInfoEstrazioneDL(K)
                  Anumeri(1) = Fuori90(A + A)
                  Anumeri(2) = Fuori90(B + B)
                  Anumeri(3) = Fuori90(C + A)
                  Anumeri(4) = Fuori90(C + B)
                  N = N + 1
                  Numeri(N) = Fuori90(A + A)
                  Numero(N) = Fuori90(B + B)
                  Numere(N) = Fuori90(C + A)
                  Numera(N) = Fuori90(C + B)
                  '----------------------------
                  Xfine = Xfine + 1
                  Scrivi
                  Call ImpostaGiocataDL(1,Anumeri,K,10,0)
                  Call GiocaDL(K)
               End If
               If Xfine = 30 Then Exit For
            Next
            If Xfine = 30 Then Exit For
         Next
         If Xfine = 30 Then Exit For
      Next
      If Xfine = 30 Then Exit For
   Next
   Scrivi StringaNumeri(Numeri,"."),0,1,0,6,5
   Scrivi StringaNumeri(Numero,"."),0,1,0,6,5
   Scrivi StringaNumeri(Numere,"."),0,1,0,6,5
   Scrivi StringaNumeri(Numera,"."),0,1,0,6,5
   Scrivi TempoTrascorso,1
End Sub

Salvo ho un altro modo di scrivere gli script ma devo dire grazie a Mike58..
colorare una tabella e un gioco da ragazzi..
spero che possa essere utile a qualcuno questa tabella del 10elotto,
se si vuole cambiare aspetto alla tabella si deve cambiare il tipo di scrittura es, "Raavi"
questo script genera le terzine di somma al 10elotto..
ciao
 
Ultima modifica:
Codice: 
Sub Main
   Dim T,T2,T1,T3,T4,T5,T6,T7,T8,T9,T10
   Dim A,B,C,D,Y,R,V,K,L,N
   Dim N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N13,N14,N15
   Dim A2,B2,C2,D2,TV,EX,qq,Xfine,Ext
   Dim S1,S2,S3
   Dim F(20),E,X
   Dim ES,RS,S
   Dim Numeri(50),EStrat(20),Anumeri(10)
   X = InputBox("Quale Figura vuoi",,0)
   TV = InputBox("Quante Estrazione vuoi controllare",,0)
   EX = EstrazioniArchivioDL - TV
   For K = EX To EX
      '
      F(1) = EstrattoDL(K,1)
      F(2) = EstrattoDL(K,2)
      F(3) = EstrattoDL(K,3)
      F(4) = EstrattoDL(K,4)
      F(5) = EstrattoDL(K,5)
      F(6) = EstrattoDL(K,6)
      F(7) = EstrattoDL(K,7)
      F(8) = EstrattoDL(K,8)
      F(9) = EstrattoDL(K,9)
      F(10) = EstrattoDL(K,10)
      F(11) = EstrattoDL(K,11)
      F(12) = EstrattoDL(K,12)
      F(13) = EstrattoDL(K,13)
      F(14) = EstrattoDL(K,14)
      F(15) = EstrattoDL(K,15)
      F(16) = EstrattoDL(K,16)
      F(17) = EstrattoDL(K,17)
      F(18) = EstrattoDL(K,18)
      F(19) = EstrattoDL(K,19)
      F(20) = EstrattoDL(K,20)
      '------------------------
      EStrat(1) = EstrattoDL(K,1)
      EStrat(2) = EstrattoDL(K,2)
      EStrat(3) = EstrattoDL(K,3)
      EStrat(4) = EstrattoDL(K,4)
      EStrat(5) = EstrattoDL(K,5)
      EStrat(6) = EstrattoDL(K,6)
      EStrat(7) = EstrattoDL(K,7)
      EStrat(8) = EstrattoDL(K,8)
      EStrat(9) = EstrattoDL(K,9)
      EStrat(10) = EstrattoDL(K,10)
      EStrat(11) = EstrattoDL(K,11)
      EStrat(12) = EstrattoDL(K,12)
      EStrat(13) = EstrattoDL(K,13)
      EStrat(14) = EstrattoDL(K,14)
      EStrat(15) = EstrattoDL(K,15)
      EStrat(16) = EstrattoDL(K,16)
      EStrat(17) = EstrattoDL(K,17)
      EStrat(18) = EstrattoDL(K,18)
      EStrat(19) = EstrattoDL(K,19)
      EStrat(20) = EstrattoDL(K,20)
      '
      If ScriptInterrotto Then Exit Sub
      '------------------------
      OrdinaMatrice F,1
      '---------------------------------
      '-------------------------------
      '-------------------------------
      T1 = Array(T1,Format2(F(1))," ",Format2(F(2))," ",Format2(F(3))," ",Format2(F(4))," ",Format2(F(5)))
      Call InitTabella(T1,Blu_,"center",7,Nero_,"Raavi")
      Call SetColoreCella(1,RGB(0,0,255),RGB(170,170,255))
      Call SetColoreCella(3,RGB(0,0,255),RGB(170,170,255))
      Call SetColoreCella(5,RGB(0,0,255),RGB(170,170,255))
      Call SetColoreCella(7,RGB(0,0,255),RGB(170,170,255))
      Call SetColoreCella(9,RGB(0,0,255),RGB(170,170,255))
      '-------------------------------
      'X = 4
      '-------------------------------
      If Figura(X) = Figura(F(1)) Then Call SetColoreCella(1,RGB(9,194,204),RGB(225,225,225))'
      If Figura(X) = Figura(F(2)) Then Call SetColoreCella(3,RGB(25,200,30),RGB(225,225,225))'
      If Figura(X) = Figura(F(3)) Then Call SetColoreCella(5,RGB(254,152,82),RGB(225,225,225))'
      If Figura(X) = Figura(F(4)) Then Call SetColoreCella(7,RGB(158,189,87),RGB(225,225,225))'
      If Figura(X) = Figura(F(5)) Then Call SetColoreCella(9,RGB(255,100,90),RGB(225,225,225))'
      '-------------------------------
      N1 =(F(2) - F(1)) : N1 =("+") & N1
      N2 =(F(3) - F(2)) : N2 =("+") & N2
      N3 =(F(4) - F(3)) : N3 =("+") & N3
      N4 =(F(5) - F(4)) : N4 =("+") & N4
      '
      If Distanza(F(1),F(6)) = 30 Then N5 =("+30") & N5 Else N5 =(" ") End If
      If Distanza(F(2),F(7)) = 30 Then N6 =("+30") & N6 Else N6 =(" ") End If
      If Distanza(F(3),F(8)) = 30 Then N7 =("+30") & N7 Else N7 =(" ") End If
      If Distanza(F(4),F(9)) = 30 Then N8 =("+30") & N8 Else N8 =(" ") End If
      If Distanza(F(5),F(10)) = 30 Then N9 =("+30") & N9 Else N9 =(" ") End If
      '
      T2 = Array(T2,(N5),(N1),(N6),(N2),(N7),(N3),(N8),(N4),(N9))
      Call AddRigaTabella(T2,Bianco_,"center",3,Nero_,"Raavi")
      Call SetColoreCella(1,RGB(255,255,255),RGB(0,150,0))
      Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,150))
      Call SetColoreCella(3,RGB(255,255,255),RGB(0,150,0))
      Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,150))
      Call SetColoreCella(5,RGB(255,255,255),RGB(0,150,0))
      Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,150))
      Call SetColoreCella(7,RGB(255,255,255),RGB(0,150,0))
      Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,150))
      Call SetColoreCella(9,RGB(255,255,255),RGB(0,150,0))
      '--------------------------------
      '-------------------------------
      '-------------------------------
      '-------------------------------
      T3 = Array(T3,Format2(F(6))," ",Format2(F(7))," ",Format2(F(8))," ",Format2(F(9))," ",Format2(F(10)))
      Call AddRigaTabella(T3,Blu_,"center",7,Nero_,"Raavi")
      Call SetColoreCella(1,RGB(0,0,255),RGB(170,170,255))
      Call SetColoreCella(3,RGB(0,0,255),RGB(170,170,255))
      Call SetColoreCella(5,RGB(0,0,255),RGB(170,170,255))
      Call SetColoreCella(7,RGB(0,0,255),RGB(170,170,255))
      Call SetColoreCella(9,RGB(0,0,255),RGB(170,170,255))
      '-------------------------------
      '-------------------------------
      If Figura(X) = Figura(F(6)) Then Call SetColoreCella(1,RGB(209,194,20),RGB(225,225,225))'
      If Figura(X) = Figura(F(7)) Then Call SetColoreCella(3,RGB(255,160,91),RGB(225,225,225))'
      If Figura(X) = Figura(F(8)) Then Call SetColoreCella(5,RGB(254,82,82),RGB(225,225,225))'
      If Figura(X) = Figura(F(9)) Then Call SetColoreCella(7,RGB(41,183,220),RGB(225,225,225))'
      If Figura(X) = Figura(F(10)) Then Call SetColoreCella(9,RGB(255,100,90),RGB(225,225,225))'
      '-------------------------------
      '-------------------------------
      N1 =(F(7) - F(6)) : N1 =("+") & N1
      N2 =(F(8) - F(7)) : N2 =("+") & N2
      N3 =(F(9) - F(8)) : N3 =("+") & N3
      N4 =(F(10) - F(9)) : N4 =("+") & N4
      '
      If Distanza(F(6),F(11)) = 30 Then N5 =("+30") & N5 Else N5 =(" ") End If
      If Distanza(F(7),F(12)) = 30 Then N6 =("+30") & N6 Else N6 =(" ") End If
      If Distanza(F(8),F(13)) = 30 Then N7 =("+30") & N7 Else N7 =(" ") End If
      If Distanza(F(9),F(14)) = 30 Then N8 =("+30") & N8 Else N8 =(" ") End If
      If Distanza(F(10),F(15)) = 30 Then N9 =("+30") & N9 Else N9 =(" ") End If
      '
      '
      T4 = Array(T4,(N5),(N1),(N6),(N2),(N7),(N3),(N8),(N4),(N9))
      Call AddRigaTabella(T4,Bianco_,"center",3,Nero_,"Raavi")
      Call SetColoreCella(1,RGB(255,255,255),RGB(0,150,0))
      Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,150))
      Call SetColoreCella(3,RGB(255,255,255),RGB(0,150,0))
      Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,150))
      Call SetColoreCella(5,RGB(255,255,255),RGB(0,150,0))
      Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,150))
      Call SetColoreCella(7,RGB(255,255,255),RGB(0,150,0))
      Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,150))
      Call SetColoreCella(9,RGB(255,255,255),RGB(0,150,0))
      '--------------------------------
      '-------------------------------
      T5 = Array(T5,Format2(F(11))," ",Format2(F(12))," ",Format2(F(13))," ",Format2(F(14))," ",Format2(F(15)))
      Call AddRigaTabella(T5,Blu_,"center",7,Nero_,"Raavi")
      Call SetColoreCella(1,RGB(0,0,255),RGB(170,170,255))
      Call SetColoreCella(3,RGB(0,0,255),RGB(170,170,255))
      Call SetColoreCella(5,RGB(0,0,255),RGB(170,170,255))
      Call SetColoreCella(7,RGB(0,0,255),RGB(170,170,255))
      Call SetColoreCella(9,RGB(0,0,255),RGB(170,170,255))
      '-------------------------------
      'X = 4
      '-------------------------------
      If Figura(X) = Figura(F(11)) Then Call SetColoreCella(1,RGB(9,194,204),RGB(225,225,225))'
      If Figura(X) = Figura(F(12)) Then Call SetColoreCella(3,RGB(225,125,200),RGB(225,225,225))'
      If Figura(X) = Figura(F(13)) Then Call SetColoreCella(5,RGB(49,199,206),RGB(225,225,225))'
      If Figura(X) = Figura(F(14)) Then Call SetColoreCella(7,RGB(255,62,158),RGB(225,225,225))'
      If Figura(X) = Figura(F(15)) Then Call SetColoreCella(9,RGB(255,100,90),RGB(225,225,225))'
      '-------------------------------
      N1 =(F(12) - F(11)) : N1 =("+") & N1
      N2 =(F(13) - F(12)) : N2 =("+") & N2
      N3 =(F(14) - F(13)) : N3 =("+") & N3
      N4 =(F(15) - F(14)) : N4 =("+") & N4
      '
      If Distanza(F(11),F(16)) = 30 Then N5 =("+30") & N5 Else N5 =(" ") End If
      If Distanza(F(12),F(17)) = 30 Then N6 =("+30") & N6 Else N6 =(" ") End If
      If Distanza(F(13),F(18)) = 30 Then N7 =("+30") & N7 Else N7 =(" ") End If
      If Distanza(F(14),F(19)) = 30 Then N8 =("+30") & N8 Else N8 =(" ") End If
      If Distanza(F(15),F(20)) = 30 Then N9 =("+30") & N9 Else N9 =(" ") End If
      '
      T6 = Array(T6,(N5),(N1),(N6),(N2),(N7),(N3),(N8),(N4),(N9))
      Call AddRigaTabella(T6,Bianco_,"center",3,Nero_,"Raavi")
      Call SetColoreCella(1,RGB(255,255,255),RGB(0,150,0))
      Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,150))
      Call SetColoreCella(3,RGB(255,255,255),RGB(0,150,0))
      Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,150))
      Call SetColoreCella(5,RGB(255,255,255),RGB(0,150,0))
      Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,150))
      Call SetColoreCella(7,RGB(255,255,255),RGB(0,150,0))
      Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,150))
      Call SetColoreCella(9,RGB(255,255,255),RGB(0,150,0))
      '--------------------------------
      '-------------------------------
      '-------------------------------
      '-------------------------------
      T7 = Array(T7,Format2(F(16))," ",Format2(F(17))," ",Format2(F(18))," ",Format2(F(19))," ",Format2(F(20)))
      Call AddRigaTabella(T7,Blu_,"center",7,Nero_,"Raavi")
      Call SetColoreCella(1,RGB(0,0,255),RGB(170,170,255))
      Call SetColoreCella(3,RGB(0,0,255),RGB(170,170,255))
      Call SetColoreCella(5,RGB(0,0,255),RGB(170,170,255))
      Call SetColoreCella(7,RGB(0,0,255),RGB(170,170,255))
      Call SetColoreCella(9,RGB(0,0,255),RGB(170,170,255))
      '-------------------------------
      '-------------------------------
      If Figura(X) = Figura(F(16)) Then Call SetColoreCella(1,RGB(40,186,138),RGB(225,225,225))'
      If Figura(X) = Figura(F(17)) Then Call SetColoreCella(3,RGB(25,200,30),RGB(225,225,225))'
      If Figura(X) = Figura(F(18)) Then Call SetColoreCella(5,RGB(54,182,182),RGB(225,225,225))'
      If Figura(X) = Figura(F(19)) Then Call SetColoreCella(7,RGB(224,169,41),RGB(225,225,225))'
      If Figura(X) = Figura(F(20)) Then Call SetColoreCella(9,RGB(255,50,190),RGB(225,225,225))'
      '-------------------------------
      '-------------------------------
      N1 =(F(17) - F(16)) : N1 =("+") & N1
      N2 =(F(18) - F(17)) : N2 =("+") & N2
      N3 =(F(19) - F(18)) : N3 =("+") & N3
      N4 =(F(20) - F(19)) : N4 =("+") & N4
      '
      T8 = Array(T8,"  ",(N1)," ",(N2)," ",(N3)," ",(N4)," ")
      Call AddRigaTabella(T8,Bianco_,"center",3,Nero_,"Raavi")
      Call SetColoreCella(1,RGB(255,255,255),RGB(255,0,0))
      Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,150))
      Call SetColoreCella(3,RGB(255,255,255),RGB(255,0,0))
      Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,150))
      Call SetColoreCella(5,RGB(255,255,255),RGB(255,0,0))
      Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,150))
      Call SetColoreCella(7,RGB(255,255,255),RGB(255,0,0))
      Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,150))
      Call SetColoreCella(9,RGB(255,255,255),RGB(255,0,0))
      '--------------------------------
      Ext = DataEstrazioneDL(K)
      T9 = Array(T9,Ext,"  ","10elotto"," ","  "," "," "," "," ")
      Call AddRigaTabella(T9,Blu_,"center",2,Nero_,"Raavi")
      Call SetColoreCella(1,RGB(0,0,255),RGB(225,225,225))
      Call SetColoreCella(3,RGB(0,0,255),RGB(225,225,225))
      Call SetColoreCella(5,RGB(0,0,255),RGB(225,225,225))
      Call SetColoreCella(7,RGB(0,0,255),RGB(225,225,225))
      Call SetColoreCella(9,RGB(0,0,255),RGB(225,225,225))
      '-------------------------------
      T10 = Array(T10,"  ","  ","  "," ","  "," "," "," "," ")
      Call AddRigaTabella(T10,Bianco_,"center",2,Nero_,"Raavi")
      '-------------------------------
      Call SetTableWidth("35%")
      CreaTabella
      '
      ScriviEstrazioneDL(K)
      Scrivi GetInfoEstrazioneDL(K)
      Anumeri(1) = E
      N = N + 1
      Numeri(N) = Format2(E)
      '----------------------------
      Xfine = Xfine + 1
      Scrivi
      Call ImpostaGiocataDL(1,Anumeri,K,10,0)
      Call GiocaDL(K)
      If Xfine = 10 Then Exit For
   Next
   Scrivi TempoTrascorso,1
End Sub

aggiungo questo script evidenzia la figura al 10elotto..
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 21 marzo 2026
    Bari
    17
    81
    25
    89
    06
    Cagliari
    83
    36
    05
    76
    69
    Firenze
    06
    43
    60
    21
    44
    Genova
    84
    56
    21
    75
    33
    Milano
    79
    24
    89
    05
    02
    Napoli
    76
    65
    70
    31
    05
    Palermo
    29
    07
    67
    62
    18
    Roma
    66
    10
    89
    57
    28
    Torino
    18
    40
    85
    09
    04
    Venezia
    51
    22
    11
    66
    73
    Nazionale
    41
    66
    86
    52
    44
    Estrazione Simbolotto
    Firenze
    06
    38
    14
    12
    02
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto