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 24 gennaio 2026
    Bari
    26
    24
    81
    30
    32
    Cagliari
    84
    81
    48
    08
    49
    Firenze
    64
    30
    70
    12
    89
    Genova
    76
    71
    63
    88
    27
    Milano
    01
    28
    09
    06
    90
    Napoli
    74
    26
    50
    76
    24
    Palermo
    09
    75
    88
    65
    13
    Roma
    66
    13
    21
    65
    73
    Torino
    78
    02
    90
    51
    16
    Venezia
    23
    55
    60
    47
    17
    Nazionale
    14
    70
    74
    68
    20
    Estrazione Simbolotto
    Bari
    09
    18
    15
    38
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto