Storico Ritardi

[Rosanna58]

Ciao a tutti, stò cercando uno script che mi crei una tabella degl'ultimi 18 ritardi di un numero e/o una formazione su una determinata ruota, esiste già qualcosa del genere? Grazie per l'aiuto

 

[i legend]

Ciao basta utilizzare la funzione elenco ritardi turbo
È solo una riga. Ciao

 

[i legend]

ciao ecco lo script controllare se ci sono errori
verificare se i risultati sono corretti
ciao

non riesco a scrivere
cmq il codice è facilissimo
basta fare un ciclo for dei 90 numeri
lanciare la funzione elenco ritardi turbo
fare un ciclo  delle tot quantita della array di ritorno e scrivere la stringa che ti serve
lo script l ho fatto ma non riesco ad incollarlo

 

[claudio8]

Test della funzione "ElencoRitardiTurbo"

Sub Main
    Dim anum(90),n,aRit,aruo(11),aretrit,v
    ReDim aretrit(100),retIdEstr(100)
    Ini = EstrazioneFin - 100
    fin = EstrazioneFin
    sorte = 1
    aruo(1) = 1
    Scrivi " n° .. rit.  data estrazione"
    For n = 1 To 61 Step 60
        anum(1) = n
        Call ElencoRitardiTurbo (anum,aruo,sorte,Ini,fin,aretrit,retIdEstr)
        For v = 1 To UBound(aretrit)
        Scrivi  " "& FormatSpace(n,2,1) & " .. " & FormatSpace(aretrit(v),3,1) & " .. " & DataEstrazione(retIdEstr(v))
        Next
    Next
    Scrivi  "data estrazinone fine archivio " & DataEstrazione(EstrazioneFin)
End Sub

X Luigi.... spero di non sbagliarmi, i ritardi sono esatti, ma le date estrazioni relative sono errate, vengono scritte in corrispondenza del ritardo precedente.. in quest'ultima estrazione di bari sono stati estratti sia il n° 1 che il 61, entrambi risultano "data estrazione fuori dal range", mentre la data ultima di archivio 21/1/20106 appare con il ritardo precedente.
Ciao

come scritto sopra, modificando il codice, usando ( v-1) a "retIdEstr " il tutto va alla perfezione

  For v = 2 To UBound(aretrit)
        Scrivi  " "& FormatSpace(n,2,1) & " .. " & FormatSpace(aretrit(v),3,1) & " .. " & DataEstrazione(retIdEstr((v-1)))
        Next

ri Ciao

ps: con ElencoRitardi andiamo ancora peggio

la mia versione è la 1.5.76

 

[i legend]

Ciao io non avevo utilizzato l array idestr
Ma ho fatto una verifica e ho lo stesso problema di Claudio
For I = ubound (aRit) To Lim step-1
Scrivi formattastringa (aRit ( i),"000")&" | ",1,0
Scrivi dataestrazione ( aIdEstrI(i-1)&" | "
Next
Scusate da cell.

 

[Rosanna58]

Test della funzione "ElencoRitardiTurbo"

Sub Main
Dim anum(90),n,aRit,aruo(11),aretrit,v
ReDim aretrit(100),retIdEstr(100)
Ini = EstrazioneFin - 100
fin = EstrazioneFin
sorte = 1
aruo(1) = 1
Scrivi " n° .. rit. data estrazione"
For n = 1 To 61 Step 60
anum(1) = n
Call ElencoRitardiTurbo (anum,aruo,sorte,Ini,fin,aretrit,retIdEstr)
For v = 1 To UBound(aretrit)
Scrivi " "& FormatSpace(n,2,1) & " .. " & FormatSpace(aretrit(v),3,1) & " .. " & DataEstrazione(retIdEstr(v))
Next
Next
Scrivi "data estrazinone fine archivio " & DataEstrazione(EstrazioneFin)
End Sub

X Luigi.... spero di non sbagliarmi, i ritardi sono esatti, ma le date estrazioni relative sono errate, vengono scritte in corrispondenza del ritardo precedente.. in quest'ultima estrazione di bari sono stati estratti sia il n° 1 che il 61, entrambi risultano "data estrazione fuori dal range", mentre la data ultima di archivio 21/1/20106 appare con il ritardo precedente.
Ciao

come scritto sopra, modificando il codice, usando ( v-1) a "retIdEstr " il tutto va alla perfezione

 For v = 2 To UBound(aretrit)
Scrivi " "& FormatSpace(n,2,1) & " .. " & FormatSpace(aretrit(v),3,1) & " .. " & DataEstrazione(retIdEstr((v-1)))
Next

ri Ciao

Grazie claudio8 e i legend per la veloce risposta, purtroppo non sono capace di programmare e quindi domando a chi ne sà piu' di me.
Nello script come posso selezionare la ruota di calcolo dei ritardi?
Sarebbe possibile selezionare oltre la ruota anche il numero del quale conoscere gl'ultimi 18 ritardi?
Grazie mille per il tempo che mi dedicate

 

[i legend]

Ciao Rosanna 58 al momento crediamo ci possa essere una piccola incongruenza nell output appena si risolve se riesco posto lo script con la scelta della ruota e di quanti ritardi vuoi visualizzare,
ma ripeto al momento è inutile modificare lo script postato da claudio se non restituisce dati corretti
x
claudio
ho provato a confrontare Ubound(aRit) con Ubound(aIdEstrRit)
come è logico coincidono
numero 1 su Bari
aRit(ubound(arit)=0
ma
aIdestrRit(Uboun(aIdEstrRit))=0?
Aspettiamo Lumi

 

[silop2005]

Ciao a tutti, stò cercando uno script che mi crei una tabella degl'ultimi 18 ritardi di un numero e/o una formazione su una determinata ruota, esiste già qualcosa del genere? Grazie per l'aiuto

=============================== [TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 832"]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]ho aggiornato SPMT vers. 1.5.76 e relativo plug in SVP vers. 1.0.55[/TD]
[/TR]
[TR]
[TD]Ciao Rosanna58 ,[/TD]
[/TR]
[TR]
[TD]credo che potresti utilizzare direttamente il programma Spaziometria[/TD]
[/TR]
[TR]
[TD]sulla barra sotto selezioni la ruota e il periodo temporale che desideri[/TD]
[/TR]
[TR]
[TD]poi[/TD]
[/TR]
[TR]
[TD]vai sulla barra sopra e clicca su :[/TD]
[/TR]
[TR]
[TD]"Statistiche"[/TD]
[/TR]
[TR]
[TD]poi "Su Formazioni"[/TD]
[/TR]
[TR]
[TD]poi su "Statistiche veloci"[/TD]
[/TR]
[TR]
[TD]e metti il numero o la combinazione che preferisci [/TD]
[/TR]
[TR]
[TD]la sorte che preferisci[/TD]
[/TR]
[TR]
[TD]e fai partire cliccando sul "lampo"[/TD]
[/TR]
[TR]
[TD]quando ha finito l'elaborazione, vedi la finestra piccola sotto,[/TD]
[/TR]
[TR]
[TD]hai la possibilità di scaricare in excell o altro[/TD]
[/TR]
[TR]
[TD]due tabelle : con "ESPORTA" vedi tutti i dati elaborati[/TD]
[/TR]
[TR]
[TD]con "RITARDI RUOTA" vedi solo i ritardi elaborati del numero e/o combinazione.[/TD]
[/TR]
[TR]
[TD]=============================================[/TD]
[/TR]
[TR]
[TD]Prova e divertiti.[/TD]
[/TR]
[TR]
[TD]Buona serata a tutto il forum. [/TD]
[/TR]
[TR]
[TD]=============================================[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Buona serata a tutti.[/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD]Silop [/TD]
[/TR]
[/TABLE]

 

[claudio8]

Sub Main
    Dim anum(90),n,aRit,aruo(11),aretrit,v,Qr,r
    ReDim aretrit(100),retIdEstr(100)
    r = CInt(InputBox("SU CHE RUOTA DI RICERCA?",,1))
    Qr = CInt(InputBox("Quanti ritardi vuoi cercare?",,10))
    
    Ini = EstrazioneFin - 1000
    fin = EstrazioneFin
    sorte = 1 'estratto
    aruo(1) = r
    Scrivi "  n°..  rit.  data estrazione"
    For n = 1 To 90
            anum(1) = n
        co = 0
        Call ElencoRitardiTurbo (anum,aruo,sorte,Ini,fin,aretrit,retIdEstr)
        For v = UBound(aretrit) To 1 Step - 1
            co = co + 1
            Scrivi " " & FormatSpace(n,2,1) & " .. " & FormatSpace(aretrit(v),3,1) & " .. " & DataEstrazione(retIdEstr(v-1))
            If co = Qr Then Exit For
        Next
        Scrivi " . . . . . . . . . . . . .  "
    Next
    Scrivi "data estrazione fine archivio " & DataEstrazione(EstrazioneFin)
End Sub

questo script elabora i ritardi che specifichi in input su tutti numeri da 1 a 90

Sub Main
    Dim anum(90),n,aRit,aruo(11),aretrit,v,Qr,r
    ReDim aretrit(100),retIdEstr(100)
    r = CInt(InputBox("SU CHE RUOTA DI RICERCA?",,1))
    Qr = CInt(InputBox("Quanti ritardi vuoi cercare?",,10))
    n = CInt(InputBox("Per quale numero vuoi cercare?",,16))
    Ini = EstrazioneFin - 1000
    fin = EstrazioneFin
    sorte = 1 'estratto
    aruo(1) = r
    Scrivi "  n°..  rit.  data estrazione"
    'For n = 1 To 90
            anum(1) = n
        co = 0
        Call ElencoRitardiTurbo (anum,aruo,sorte,Ini,fin,aretrit,retIdEstr)
        For v = UBound(aretrit) To 1 Step - 1
            co = co + 1
            Scrivi " " & FormatSpace(n,2,1) & " .. " & FormatSpace(aretrit(v),3,1) & " .. " & DataEstrazione(retIdEstr(v-1))
            If co = Qr Then Exit For
        Next
        Scrivi " . . . . . . . . . . . . .  "
    'Next
    Scrivi "data estrazione fine archivio " & DataEstrazione(EstrazioneFin)
End Sub

con questo scegli solo 1 numero per la ricerca

 

[claudio8]

x I Legend, ho rigirato "la frittata" x risolvere il problema nell'immediato.

 

[i legend]

Ciao Claudio il problema si pone quando voglio tutti i ritardi da 1 a estrazionefin. Io avevo scritto la la riga If limR

 

[Joe91]

Ciao a tutti.

Concordo con quanto v'ha scritto Luigi.

Si tratta principalmente ... di interpretare i risultati prodotti dallo script di Claudio.

Calcolati manualmente, coincidono con quelli fornite dalle istuzioni preposte.

 

[claudio8]

I legend, il problema c'è ed in maniera + grave è presente al capezzale di ElencoRitardi non turbo.
Il fatto di poterlo raggirare, dipende solo da chi fa il costrutto, e non tutti gli utenti di spaziometria sanno fare script, chi usa script già fatti, magari anche datati, queste cose non le nota e da per scontato che funzionino.
un saluto.

 

[i legend]

ciao Claudio all ' idEstr fa riferimento il rit precedente.
ho capito la logica che ha seguito luigi.
dai un occhio al modulo che ha suggerito Silop, cosi forse è piu chiaro come viene utilizzato
Ciao a tutti

 

[claudio8]

I legend, fai girare questo script e dimmi dove sta l'errore

Sub Main
    Dim anum(90),n,aRit,aruo(11),aretrit,v
    ReDim aretrit(100),retIdEstr(100)
    Ini = EstrazioneFin - 100
    fin = EstrazioneFin
    sorte = 1
    aruo(1) = 1
    Scrivi " n° .. rit. data estrazione"
    For n = 1 To 61 Step 60
        anum(1) = n
        Call ElencoRitardi(anum,aruo,sorte,Ini,fin,aretrit,retIdEstr)
        For v = 1 To UBound(aretrit)
            Scrivi " " & FormatSpace(n,2,1) & " .. precedentemente all'estr. del " & DataEstrazione(retIdEstr(v))& " il rit. è: " & FormatSpace(aretrit(v),3,1)          
        Next
    Next
  
    Scrivi "data estrazinone fine archivio " & DataEstrazione(EstrazioneFin)
End Sub

adesso andiamo a leggere quanto scritto sulla specifica della funzione:
aRetRitardi
Torna un vettore contenente i ritardi parte dall'indice 1. (esempio ruota BA rit 9, dell n° 1 ad esclusione del ritardo 0 verificatosi all'estrazione del 21/1/2015)

'aRetIdEStr
' Torna un vettore contenente gli id delle estrazioni alle quali corrisponde il ritardo presente nel vettore.

Quindi se il ritardo è 9, l'id deve essere quello del 19/01/2015.

Il ritardo si conteggia sempre in riferimento all'estrazione avvenuta. ( o perlomeno, se non lo si fa così lo si deve specificare.