Richiesta scrip per tabella enalotto

[kamarina]

Ciao a tutti,
sarei grato se qualche amico volesse farmi uno script dove mi ritorni la tabella che trascrivo
sperando che tutto sia comprensibile. Grazie anticipatamente e buona giornata a tutti
kamarina

Periodo in esame -------Da 02.03.2013 a 06.04.2013 ( deve essere variabile)

------------------------------------------------------------
Numeri da analizzare 9.14.32.38.46.63 (da inserire di volta in volta)
------------------------------------------------------------
Numeri spia (eventuale possibilità di ricerca spia)




Data e num estraz colonna vincente punti4 punti3 punti2 punti1

02.03.2013 [2000] 48.64.07.16.40.90 0 0 0 0
05.03.2013 [2001] 71.27.23.57.78.90 0 0 0 0
07.03.2013 [2002] 75.64.50.11.73.77 0 0 0 0
09.03.2013 [2003] 45.12.88.11.64.89 0 0 0 0
12.03.2013 [2004] 56.18.69.67.02.90 0 0 0 0
14.03.2013 [2005] 38.80.84.42.72.88 0 0 0 1
19.03.2013 [2007] 33.51.29.67.64.87 0 0 0 0
21.03.2013 [2008] 82.74.89.76.81.86 0 0 0 0
23.03.2013 [2009] 82.20.58.85.83.84 0 0 0 0
26.03.2013 [2010] 80.44.72.48.39.04 0 0 0 0
28.03.2013 [2011] 46.29.30.08.33.38 0 0 1 2
30.03.2013 [2012] 68.01.31.44.10.12 0 0 0 0
02.04.2013 [2013] 04.53.38.35.43.66 0 0 0 1
04.04.2013 [2014] 09.46.61.12.38.88 1 4 6 4
06.04.2013 [2015] 68.84.38.54.69.72 0 0 0 1

----------------------------------------------------- --------------------------
Presenze Totali 1 1 2 5
Ritardi attuali 1 1 1 0


--------------------------------------------------------------------------------

NOTA- I Numeri delle colonne vincenti NON corrispondono a quelli reali-sono riportati solo per esempio

 

[Mike58]

Ciao Kamarina, mi sembra di vedere un mio vecchio output, e percià ho modificato al volo un mio script.
Vedi se ti può essere utile, poi per il ritardo e frequenza per ora non so'.

Intanto prova questo è utile per verifica colonne vincente.

Sub Main()
    ImpostaArchivio10ELotto(1)
    Dim Nn(30)
    qe = InputBox("Quante estrazioni visualizi",,10)
    ScegliNumeri(Nn)
    Ini = EstrazioniArchivioSE - qe
    Fin = EstrazioniArchivioSE
    Scrivi "........ Da " & DataEstrazioneSE(Ini) & " a " & DataEstrazioneSE(fin),1
    Scrivi
    Scrivi " Evidenzia numeri giocati sulla combinazione SuperEnalotto ",1
    Scrivi"------------------------------------------------------------"
    ColoreTesto 2
    Scrivi "Numeri in gioco " & StringaNumeri(Nn),1
    ColoreTesto 0
    Scrivi"------------------------------------------------------------"
    For Es = Ini To Fin
        tot = 0
        Scrivi DataEstrazioneSE(es) & " ",0,0
        Scrivi "[" & Es & "] ",0,0
        For P = 1 To 6
            ColoreTesto 1
            For x = 1 To UBound(Nn)
                '------------scrivi numeri colori --------------------------------
                If EstrattoSE(Es,P) = Nn(x) Then
                
                    ColoreTesto 2 
                
                    tot = tot + 1 
                End If
                '-------------------------------------------------------------------
            Next
            Scrivi Format2(EstrattoSE(Es,P)),1,0
            ColoreTesto 0
            Scrivi ".",0,0
        Next
        ColoreTesto 7
        Scrivi " - Punteggio max -> " & tot,1
        ColoreTesto 0
        
        If tot = 0 Then Tot0=Tot0 + 1
        If Tot = 1 Then Tot1 = Tot1+1
        If tot = 2 Then Tot2=Tot2 + 1
        If Tot = 3 Then Tot3 = Tot3+1
        If tot = 4 Then Tot4=Tot4 + 1
        If Tot = 5 Then Tot5 = Tot5+1
        If Tot = 6 Then Tot6 = Tot6+1


    Next
    Scrivi
    Scrivi"--------------------------------------------------------------"
    
    Scrivi "Punti zero    "  & " = " & tot0
    Scrivi "Punti Uno     "  & " = " & tot1
    Scrivi "Punti Due     "  & " = " & tot2
    Scrivi "Punti Tre     "  & " = " & tot3
    Scrivi "Punti Quattro "  & " = " & tot4
    Scrivi "Punti cinque  "  & " = " & tot5
    Scrivi "Punti sei     "  & " = " & tot6
    Scrivi"--------------------------------------------------------------"


    
End Sub

 

[kamarina]

Grazie Mike58
ciao, kamarina