Novità

Storico Ritardi

Rosanna58

Member
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
 
ciao ecco lo script controllare se ci sono errori
verificare se i risultati sono corretti
ciao:)
Codice:
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
 
Test della funzione "ElencoRitardiTurbo"

Codice:
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
Codice:
  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
 
Ultima modifica:
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.
 
claudio8;n1953949 ha scritto:
Test della funzione "ElencoRitardiTurbo"

Codice:
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
Codice:
 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
 
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
 
Rosanna58;n1953896 ha scritto:
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]
LOGOSILOP.gif
[/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]
stickman.gif
[/TD]
[/TR]
[TR]
[TD]Buona serata a tutti.[/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD]Silop ;) ;) ;)[/TD]
[/TR]
[/TABLE]
 
Codice:
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

Codice:
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
 
Ultima modifica:
Ciao Claudio il problema si pone quando voglio tutti i ritardi da 1 a estrazionefin. Io avevo scritto la la riga If limR
 
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.

Immagine.jpg
 
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.
 
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:)
 
I legend, fai girare questo script e dimmi dove sta l'errore
Codice:
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.
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 novembre 2024
    Bari
    52
    79
    70
    83
    51
    Cagliari
    83
    14
    82
    89
    26
    Firenze
    57
    35
    33
    05
    14
    Genova
    38
    74
    16
    88
    25
    Milano
    86
    75
    87
    21
    05
    Napoli
    59
    07
    30
    78
    29
    Palermo
    30
    75
    52
    57
    22
    Roma
    22
    16
    03
    74
    23
    Torino
    28
    55
    72
    53
    22
    Venezia
    38
    77
    85
    23
    02
    Nazionale
    43
    23
    83
    72
    02
    Estrazione Simbolotto
    Torino
    42
    18
    32
    07
    24
Indietro
Alto