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
    venerdì 11 settembre 2026
    Bari
    53
    20
    40
    62
    16
    Cagliari
    33
    22
    88
    17
    06
    Firenze
    56
    02
    58
    87
    73
    Genova
    25
    74
    64
    59
    78
    Milano
    38
    31
    49
    90
    28
    Napoli
    71
    68
    84
    36
    66
    Palermo
    07
    69
    19
    48
    65
    Roma
    38
    44
    84
    47
    53
    Torino
    90
    43
    47
    48
    21
    Venezia
    26
    87
    14
    71
    07
    Nazionale
    62
    43
    83
    67
    06
    Estrazione Simbolotto
    Palermo
    40
    21
    05
    30
    01
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto