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 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
    giovedì 12 giugno 2025
    Bari
    26
    16
    67
    08
    12
    Cagliari
    67
    31
    37
    76
    80
    Firenze
    03
    63
    28
    09
    43
    Genova
    68
    38
    53
    86
    85
    Milano
    66
    41
    88
    07
    53
    Napoli
    11
    32
    09
    24
    79
    Palermo
    07
    44
    76
    30
    35
    Roma
    03
    64
    30
    65
    29
    Torino
    40
    46
    31
    32
    39
    Venezia
    88
    67
    46
    04
    51
    Nazionale
    76
    67
    49
    34
    56
    Estrazione Simbolotto
    Napoli
    23
    03
    04
    17
    02
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto