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
    martedì 04 novembre 2025
    Bari
    21
    09
    35
    82
    53
    Cagliari
    49
    11
    85
    61
    83
    Firenze
    72
    21
    56
    70
    67
    Genova
    37
    47
    59
    23
    26
    Milano
    30
    84
    74
    47
    21
    Napoli
    66
    55
    43
    79
    15
    Palermo
    90
    88
    73
    45
    62
    Roma
    65
    23
    67
    05
    72
    Torino
    90
    15
    28
    59
    50
    Venezia
    52
    82
    10
    17
    80
    Nazionale
    14
    74
    44
    68
    62
    Estrazione Simbolotto
    Torino
    11
    07
    25
    17
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto