Vorrei Script sulla storia di un numero

[jp4]

Sarebbe possibile avere uno script che dia come risultato la storia dei ritardi di un numero su una ruota?
ecco un esempio pratico (non reale) di come potrebbe presentarsi

Archivio dal 1939 (dieci ruote)
Ruota Bari
Numero 1
1') 22 settembte 1939 - rit 12
2') 14 ottobre 1939 - rit 3
3') 13 gennaio 1940 - rit 12
ecc ecc...

Dove il numero seguito da parentesi è il numero progressivo di uscita
Di seguito chiaramente la data
infine: Il ritardo che aveva al momento in cui è uscito

Si può fare in modo che l'elenco possa riguardare invece di un solo numero, tutti i 90 numeri, cioe' tutti in un solo output?
In questo caso sarà necessario un quarto settore in cui indicare il numero a cui si riferiscono i dati di quella riga.
Lo so, sarà un elenco lungo ma può essere utile per confronti.

Grazie per la collaborazione

 

[salvo50]

Ciao a Tutti!

Vedi se va bene questo.

Option Explicit
Sub Main
    Dim num,s,ru,es,Ini,po,rit,fin,ruota,tmp
    fin = EstrazioneFin
    ru = InputBox("Inserisci numero ruota ( 1 - 10)",ruota,9)
    tmp = InputBox("Quante estrazioni vuoi calcolare il numero?",,1000)
    num = CInt(InputBox("quale numero vuoi cercare?",,43))
    s =(" ambata su ruota di" & " " & NomeRuota(ru))
    s = s & " " & "numero  " & " " & Format2(num) & "   "
    Scrivi s
    Scrivi ""
    Ini = fin - tmp
    For es = Ini To fin
        po = Posizione(es,ru,num)
        rit = es - Ini
        If po > 0 Then
            Scrivi es & " " & DataEstrazione(es) & " " & NomeRuota(ru),0,0
            Scrivi " " & StringaEstratti(es,ru) & " Rilevato ---> " & Format2(num),0,0
            Scrivi " In posizione  " & po & "  " & "con ritardo di " & Format2(rit),0,0
            Scrivi " " & "colpi"
            Ini = es
        End If
    Next
End Sub

 

[jp4]

Salvo Grazie.
Ora lo provo e vediamo di tirare fuori qualche buon risultato

 

[i legend]

Ciao magari si potrebbe provare con elenco ritardi ciao

 

[salvo50]

Ciao I Leggend!

Ho messo i 90 numeri in un solo output

Option Explicit
Sub Main
    Dim num,s,ru,es,Ini,po,rit,fin,ruota,tmp
    fin = EstrazioneFin
    ru = InputBox("Inserisci numero ruota ( 1 - 10)",ruota,6)
    tmp = InputBox("Quante estrazioni vuoi calcolare il numero?",,900)
    For num = 1 To 90 : Messaggio num
        ColoreTesto 2
        Scrivi String(95,"*")
        ColoreTesto 0
        Ini = fin - tmp
        If ScriptInterrotto Then Exit For
        For es = Ini To fin
            AvanzamentoElab Ini,fin,es
            If ScriptInterrotto Then Exit For
            po = Posizione(es,ru,num)
            rit = es - Ini
            If po > 0 Then
                Scrivi es & " " & DataEstrazione(es) & " " & NomeRuota(ru),0,0
                Scrivi " " & StringaEstratti(es,ru) & " Rilevato ---> " & Format2(num),0,0
                Scrivi " In posizione  " & po & "  " & "con ritardo di " & Format2(rit),0,0
                Scrivi " " & "colpi",1
                ColoreTesto 1
                Scrivi String(95,"*")
                ColoreTesto 0
                Ini = es
            End If
        Next
    Next
End Sub

 

[jp4]

X Salvo
inoltre gli hai piazzato anche la posizione di uscita determinata !!! Grazie

x i legend
elenco ritardi
cos'è una funzione di L8? vado a vedere

Mi dava errore. Ho aggiunto scriptinterrotto alle variabili dichiarate - nel rigo 3 che inizia con Dim .
Ho fatto bene ? O comporta errori?

 

[jp4]

Elenco ritardi
l'ho trovata
È una statistica di spaziometria

 

[salvo50]

X Salvo
inoltre gli hai piazzato anche la posizione di uscita determinata !!! Grazie

Lo script non è mio, io gli ho solo aggiunto l'inserimento della ruota e dell'estrazione tramite inputbox

Mi dava errore. Ho aggiunto scriptinterrotto alle variabili dichiarate - nel rigo 3 che inizia con Dim .
Ho fatto bene ? O comporta errori?

Non ho capito che errore ti dava e come hai risolto

 

[i legend]

Ciao Salvo ,jp4
ho provato ad elaborare con la funzione che avevo suggerito
per favore provatela, se lo script risultasse errato potremmo tentare altre vie
Salvo Errori ed Omissis

Option Explicit
'Controllore Salvo errori ed omissis
'Script per jp4 su Lottoced
Sub Main
    Dim aR(1):aR(1) = ScegliRuota
    Dim Ini:Ini = EstrazioneIni
    Dim Fin:Fin = EstrazioneFin
    Dim N,i,sNum,P
    Dim aN(1)
    Scrivi "Nome Ruota:          " & NomeRuota(aR(1))
    Scrivi "Studio:              Ritardi estratto"
    Scrivi "Inizio Analisi:      " & GetInfoEstrazione(Ini)
    Scrivi "Fine Analisi:        " & GetInfoEstrazione(Fin)
    Scrivi
    For N = 1 To 90
        Scrivi FormatSpace(" ",80),,,RGB(240,240,240)
        Scrivi FormatSpace("ID    Estr.   Rit.   Concorso                   Estratti          Posizione",80),1,,RGB(240,240,240),vbBlue
        aN(1) = N
        ReDim aRit(0),aIdEstr(0)
        Call ElencoRitardiTurbo(aN,aR,1,Ini,Fin,aRit,aIdEstr)
        sNum = ""
        For i = 1 To UBound(aRit)
            sNum = StringaEstratti(aIdEstr(i),aR(1))
            Scrivi FormatSpace(i,4,1) & Space(3) & FormatSpace(aN(1),4,1) & Space(3) & _
            FormatSpace(aRit(i),4,1) & Space(3) & _
            GetInfoEstrazione(aIdEstr(i)) & Space(3) & sNum & Space(5) & Posizione(aIdEstr(i),aR(1),N)
        Next
        Scrivi
    Next
End Sub

Ciao a Tutti
P.s
Sul mio pc sembra andare ad una velocita ragionevole ditemi voi come lo trovate

 

[jp4]

Non ho capito che errore ti dava e come hai risolto

errore 500, variabile non definita


x i legend
lo provo

 

[salvo50]

Ciao a Tutte/i

Per I Leggend, provato è ottimo.

Per Jp4, io ho scaricato il mio è non mi dà nessun errore, però se a te dà quell'errore, devi capire qual'è la variabile che non è inserita nella riga dove c'è <Dim> ed inserirla, oppure puoi mettere la spunta a <Option Explicit>.

 

[jp4]

Ciao i legend,
provato con spaziometria. Ha una eleganza nei dettagli, tipo le finestre ecc.
E funziona anche lui bene

Ciao a Tutte/i
, devi capire qual'è la variabile che non è inserita nella riga dove c'è <Dim> ed inserirla,

Come ho già detto, ho fatto proprio così. Voleva che aggiungessi la parola "scripinterrotto" nella lista delle variabili da dimensionare

 

[salvo50]

Come ho già detto, ho fatto proprio così. Voleva che aggiungessi la parola "scripinterrotto" nella lista delle variabili da dimensionare

Non capivo perchè scriptinterrotto è una funzione quindi non va messa in Dim, però se è come l'hai scritta tu è sbagliata, per questo dava errore, si vede che quando hai fatto copia-incolla è saltata una t , come ha fatto non lo sappiamo, discorso chiuso.

L'ho fatto anche in tabella

Option Explicit
Sub Main
    Dim num,s,ru,es,Ini,po,rit,fin,ruota,tmp
    fin = EstrazioneFin
    ru = InputBox("Inserisci numero ruota ( 1 - 10)",ruota,6)
    tmp = InputBox("Quante estrazioni vuoi calcolare il numero?",,100)
    ReDim at(7)
    at(1) = " Num.estraz.  "
    at(2) = " Data  "
    at(3) = " Ruota "
    at(4) = "       Estratti       "
    at(5) = " Numero "
    at(6) = " Posizione  "
    at(7) = " Ritardo "
    Call InitTabella(at,1,,4,5)
    For num = 1 To 90 : Messaggio num
        Ini = fin - tmp
        If ScriptInterrotto Then Exit For
        For es = Ini To fin
            AvanzamentoElab Ini,fin,es
            If ScriptInterrotto Then Exit For
            po = Posizione(es,ru,num)
            rit = es - Ini
            If po > 0 Then
                ReDim av(7)
                av(1) = es
                av(2) = DataEstrazione(es)
                av(3) = NomeRuota(ru)
                av(4) = StringaEstratti(es,ru)
                av(5) = num
                av(6) = po
                av(7) = rit
                Call AddRigaTabella(av,,,3)
                Ini = es
            End If
        Next
    Next
    Call CreaTabella
End Sub