SuperEnalotto,le sequenze numeriche,

[Zetrix]

 

[Zetrix]

 

[Alien.]

Ciao Zetrix puoi inserire lo script come detto sopra, grazie.

 

[Zetrix]

Ciao Alien, quale script ti interessa, ne ho scritti tantissimi sulle sequenze del SuperEnalotto..
ti interessa elaborare i numeri della sestina del SuperEnalotto ?

 

[Zetrix]

Option Explicit
Sub Main
   Dim T,T2,T1,T3,T4,T5,T6,T7,T8,T9,T10
   Dim A,B,C,D,X,Y,R,V,K,L,G
   Dim N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N13,N14,N15
   Dim A2,B2,C2,D2,Anumeri(10)
   Dim S1,S2,S3
   Dim F(3),E,EXT,N,TV,EX,RT,Estrat(6)
   Dim ES,RS,S,Z
   Dim P1,P2,P3
   Dim ambata(2),ambo(2),ruota(5),ruote(5),posta(1),poste(2)
   Dim NUMERI(50),qq,Xfine
   TV = InputBox("Quante Estrazione vuoi controllare",,0)
   EX = EstrazioniArchivioSE - TV
   For K = EX To EX
      For P1 = 1 To 5
         For P2 = P1 + 1 To 6
            For E = 1 To 90
               '---------------------------
               Estrat(1) = EstrattoSE(K,1)
               Estrat(2) = EstrattoSE(K,2)
               Estrat(3) = EstrattoSE(K,3)
               Estrat(4) = EstrattoSE(K,4)
               Estrat(5) = EstrattoSE(K,5)
               Estrat(6) = EstrattoSE(K,6)
               '------------------------
               If ScriptInterrotto Then Exit Sub
               '------------------------
               A = Estrat(P1)
               B = Estrat(P2)
               '
               F(1) = A
               F(2) = E
               F(3) = B
               '
               OrdinaMatrice F,1
               qq = qq + 1
               Messaggio(ES & "  Tcomb.Elab: " & qq & "   Trovate " & Xfine & "  Su 40  Impostato N = " & E)
               '---------------------------------
               '-------------------------------
               '-------------------------------
               T1 = Array(T1,Format2(F(1))," ",Format2(F(2))," ",Format2(F(3)))
               Call InitTabella(T1,Bianco_,"center",3,Nero_,"Raavi")
               Call SetColoreCella(1,RGB(0,0,255),RGB(250,250,250))
               Call SetColoreCella(2,RGB(0,0,255),RGB(0,0,0))
               Call SetColoreCella(3,RGB(0,0,255),RGB(250,250,250))
               Call SetColoreCella(4,RGB(0,0,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(0,0,255),RGB(250,250,250))
               Call SetColoreCella(6,RGB(0,0,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(0,0,255),RGB(250,250,250))
               Call SetColoreCella(8,RGB(0,0,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(0,0,255),RGB(250,250,250))
               Call SetColoreCella(10,RGB(0,0,255),RGB(0,0,0))
               Call SetColoreCella(11,RGB(0,0,255),RGB(250,250,250))
               '-------------------------------
               If E = F(1) Then Call SetColoreCella(1,RGB(255,0,0),RGB(250,250,250))
               If E = F(2) Then Call SetColoreCella(3,RGB(255,0,0),RGB(250,250,250))
               If E = F(3) Then Call SetColoreCella(5,RGB(255,0,0),RGB(250,250,250))
               '
               N1 = Fuori90(F(2) - F(1)) : N1 =("+") & N1
               N2 = Fuori90(F(3) - F(2)) : N2 =("+") & N2
               '
               '
               T2 = Array(T2,"  ",(N1),"  ",(N2),"  ")
               Call AddRigaTabella(T2,Bianco_,"center",3,Nero_,"Raavi")
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               '--------------------------------
               '-------------------------------
               N1 = Fuori90(F(2) - F(1))
               N2 = Fuori90(F(3) - F(2))
               '---------------------------------
               If N1 > N2 Then N3 = N1 - N2 : N3 = "-" & N3 End If
               If N2 > N1 Then N3 = N2 - N1 : N3 = "+" & N3 End If
               '
               If N1 = N2 Then N3 = N1 - N2 : N3 = "-" & N3 End If
               '
               T3 = Array(T3,"  ","  ",(N3),"  ","  ")
               Call AddRigaTabella(T3,Bianco_,"center",3,Nero_,"Raavi")
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               '--------------------------------
               '---------------------------------------------------------------------
               '--------------------------------
               T4 = Array(T4,"  ","  ","  ","  ","  ")
               Call AddRigaTabella(T4,Bianco_,"center",3,Nero_,"Raavi")
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               '--------------------------------
               '--------------------------------
               '--------------------------------
               If N3 = 0 Then
                  '
                  Call SetTableWidth("20%")
                  CreaTabella
                  ScriviEstrazioneSE(K)
                  Scrivi GetInfoEstrazioneSE(K)
                  Anumeri(1) = E
                  N = N + 1
                  NUMERI(N) = Format2(E)
                  '------------------------------
                  Call ImpostaGiocataSE(1,Anumeri,K,10,0)
                  Call GiocaSE(K)
                  Scrivi
                  Xfine = Xfine + 1
                  Scrivi
               End If
               If Xfine = 36 Then Exit For
            Next
            If Xfine = 36 Then Exit For
         Next
         If Xfine = 36 Then Exit For
      Next
   Next
   Scrivi StringaNumeri(NUMERI,"."),0,1,0,6,5
   Scrivi NumeriRipetuti(NUMERI),0,1,2,0,5
   Scrivi TempoTrascorso,1
End Sub

questo script elabora due numeri di calcolo..
se ti interessa tre numeri di calcolo ti metto lo script,
se ti interessa quattro numeri di calcolo ti metto lo script,
se ti interessa cinque numeri di calcolo ti metto lo script,
fammi sapere..