come faccio a controllare?

[LOTTOLEON]

Salve abbiamo qualche funzione in spaziometria oppure qualche script per il 10elotto 5 minuti

che mi dia la possibilita' di sapere

inserendo una stringa di x numeri

quale sia la frequenza il rit, cronologico e lo storico per la sorte indicata

e' importante che dia tutte e tre le indicazioni grazie

 

[claudio8]

Prova se ti è sufficente usare le funzioni predisposte su spaziometria vedi screen shot:


Per gli script, se hai dimestichezza, devi impostare inizialmente il tipo di archivio ImpostaArchivio10ELotto(2)
quindi utilizza tutte le funzioni con finale DL.
Ti inserisco un esempio di script, era sul 10elottoserale, ma modificando l'archivio opera sul 10elotto5m

'Option Explicit
Sub Main
    Dim Nu(20),aNum(20),TL,VL
    ImpostaArchivio10ELotto(2) ' n°'(1) x 10elottoserale, con il (2) archivio 10elotto5m sostituire
    Scrivi"Cerca nella estrazione 10eLotto Serale solo 3 Numeretti e giocali con le rispettive Unioni e vertibili",1
    Scrivi
    qt = InputBox("Quante estrazioni ? ",,100)
    Ini = EstrazioniArchivioDL - qt
    fin = EstrazioniArchivioDL
    sorte = CInt(InputBox("Quale sorte di verifica MINIMA",,3))
    cl = CInt(InputBox("Quanti colpi la verifica",,20))
    TL = Array(TL,"Id Data Trovata","stringa Estratti","Numeretti ","Sestina Pronostico","Esito","verifica primo esito valido","Colpo")
    Call InitTabella(TL)
    For es = Ini To fin
        k = 0
        For p = 1 To 20
            Nu(p) = EstrattoDL(es,p)
            If Nu(p) < 10 Then
                k = k + 1
                ReDim Preserve Num(qt)
                Num(1) = Nu(1)
                Num(2) = Nu(2)
                Num(3) = Nu(3)
            End If
            aNum(1) = Num(1) & Num(2)
            aNum(2) = Num(1) & Num(3)
            aNum(3) = Num(2) & Num(3)
            aNum(4) = Vert(aNum(1))
            aNum(5) = Vert(aNum(2))
            aNum(6) = Vert(aNum(3))
        Next
        If k = 3 Then
            Call VerificaEsitoDL(aNum,es + 1,sorte,cl,esito,clp,es1,Id)
            VL = Array(VL,GetInfoEstrazioneDL(es),StringaEstrattiDL(es),StringaNumeri(Num),StringaNumeri(aNum),esito,es1,clp)
            Call AddRigaTabella(VL)
            k = ""
        End If
    Next
    Call SetTableWidth("100%")
    CreaTabella
End Sub

Se non hai dimestichezza con gli script e non trovi niente in giro, aspetta che qualcuno ti dia una mano a realizzarlo.

Saluti

 

[LOTTOLEON]

pare che con le funzioni di spazio non si possa fare

attendiamo qualche bravo scripter che ci aiuti a risolvere grazie e ciao a tutti