R
Roby
Guest
Ciao Luigi,mi rivolgo ancora a te per la correzione del listato che mi cerca il ritardo storico di un numero nelle ultime 300 estrazioni.
Ho preso ad esempio l'help delle creazioni tabelle che trovo bello come ho avuto modo di menifestarti l'apprezzamento in un'altra occasione.
Il problema è che non riesco a far riconoscere la data estrazione al ritardo storico ho anche provato la nuova funzione ' serieestrazionestorico' ma mi da errore, purtroppo è un po che ci sbatto la testa, se puoi dammi una dritta.
PS. non vedo più la sezione per scaricare gli aggiornamenti per spaziometria ( sarà una sparizione momentanea o c'è altro link ? )
Ciao GRAZIE e allego listato
Mike
Sub Main
ReDim aTitoli(7) ' titoli tabella
Dim k ' controllo cicli
Dim rt ' ruota
Dim idEstr 'estrazione inizio analisi
' imposto l'estrazione sull'ultima disponibile
idEstr = EstrazioniArchivio
' faccio scorrere un testo che indica da quale estrazione parte l'analisi
Call TestoInBandaPassante("Ritardo dei numeri all'estrazione " & GetInfoEstrazione(idEstr))
' preimposto i titoli delle colonne
aTitoli(1) = "Numero"
aTitoli(2) = "Ruota "
aTitoli(3) = "Ritardo storico"
aTitoli(4) = "Ritardo attuale"
aTitoli(5) = "Frequenza(100)"
aTitoli(6) = "Frequenza(18)"
aTitoli(7) = "data storico"
' inizializzo la tabella
Call InitTabella(aTitoli,1,,,5)
' faccio un ciclo dove calcolo il ritardo sulle 10 ruote di tutti i 90 numeri
' mano mano aggiungo una nuova riga alla tabella
For rt = 1 To 12 ' ciclo ruote
For k = 1 To 90 ' ciclo numeri
' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
ReDim aValori(7) ' abbiamo 3 titoli quindi anche qui dimensioniamo con 3 colonne
aValori(1) = Format2(k) ' numero
aValori(2) = NomeRuota(rt) ' nome ruota
aValori(3) = EstrattoStorico(rt,k,EstrazioneFin - 300,EstrazioneFin) ' valore del ritardo di quel numero su quella ruota
aValori(4) = EstrattoRitardo(rt,k,EstrazioneFin - 200,EstrazioneFin)
aValori(5) = EstrattoFrequenza(rt,k,EstrazioneFin - 100,EstrazioneFin)
aValori(6) = EstrattoFrequenza(rt,k,EstrazioneFin - 18,EstrazioneFin)
'aValori(7) = DataEstrazione(aValori(3),1)
aValori(7) = SerieEstrazioneStorico(EstrazioneFin-300,EstrazioneFin,k,rt,1)
' con questo blocco if coloro le righe che agguiungo in funzione del loro ritardo
If aValori(3) > 90 And aValori(3) <= 99 Then
Call AddRigaTabella(aValori,Verde_,"right")
ElseIf aValori(3) > 99 And aValori(3) <= 110 Then
Call AddRigaTabella(aValori,Giallo_,"right")
ElseIf aValori(3) > 110 And aValori(3) <= 120 Then
Call AddRigaTabella(aValori,Magenta_,"right")
ElseIf aValori(3) > 120 Then
Call AddRigaTabella(aValori,Rosso_,"right")
End If
Next
Next
' ora che ho terminato l'analisi e ho finito di accodare le righe
' creo la tabella e la ordino per la colonna 3 che rappresenta il ritardo
Call CreaTabella(3)
End Sub
Ho preso ad esempio l'help delle creazioni tabelle che trovo bello come ho avuto modo di menifestarti l'apprezzamento in un'altra occasione.
Il problema è che non riesco a far riconoscere la data estrazione al ritardo storico ho anche provato la nuova funzione ' serieestrazionestorico' ma mi da errore, purtroppo è un po che ci sbatto la testa, se puoi dammi una dritta.
PS. non vedo più la sezione per scaricare gli aggiornamenti per spaziometria ( sarà una sparizione momentanea o c'è altro link ? )
Ciao GRAZIE e allego listato
Mike
Sub Main
ReDim aTitoli(7) ' titoli tabella
Dim k ' controllo cicli
Dim rt ' ruota
Dim idEstr 'estrazione inizio analisi
' imposto l'estrazione sull'ultima disponibile
idEstr = EstrazioniArchivio
' faccio scorrere un testo che indica da quale estrazione parte l'analisi
Call TestoInBandaPassante("Ritardo dei numeri all'estrazione " & GetInfoEstrazione(idEstr))
' preimposto i titoli delle colonne
aTitoli(1) = "Numero"
aTitoli(2) = "Ruota "
aTitoli(3) = "Ritardo storico"
aTitoli(4) = "Ritardo attuale"
aTitoli(5) = "Frequenza(100)"
aTitoli(6) = "Frequenza(18)"
aTitoli(7) = "data storico"
' inizializzo la tabella
Call InitTabella(aTitoli,1,,,5)
' faccio un ciclo dove calcolo il ritardo sulle 10 ruote di tutti i 90 numeri
' mano mano aggiungo una nuova riga alla tabella
For rt = 1 To 12 ' ciclo ruote
For k = 1 To 90 ' ciclo numeri
' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
ReDim aValori(7) ' abbiamo 3 titoli quindi anche qui dimensioniamo con 3 colonne
aValori(1) = Format2(k) ' numero
aValori(2) = NomeRuota(rt) ' nome ruota
aValori(3) = EstrattoStorico(rt,k,EstrazioneFin - 300,EstrazioneFin) ' valore del ritardo di quel numero su quella ruota
aValori(4) = EstrattoRitardo(rt,k,EstrazioneFin - 200,EstrazioneFin)
aValori(5) = EstrattoFrequenza(rt,k,EstrazioneFin - 100,EstrazioneFin)
aValori(6) = EstrattoFrequenza(rt,k,EstrazioneFin - 18,EstrazioneFin)
'aValori(7) = DataEstrazione(aValori(3),1)
aValori(7) = SerieEstrazioneStorico(EstrazioneFin-300,EstrazioneFin,k,rt,1)
' con questo blocco if coloro le righe che agguiungo in funzione del loro ritardo
If aValori(3) > 90 And aValori(3) <= 99 Then
Call AddRigaTabella(aValori,Verde_,"right")
ElseIf aValori(3) > 99 And aValori(3) <= 110 Then
Call AddRigaTabella(aValori,Giallo_,"right")
ElseIf aValori(3) > 110 And aValori(3) <= 120 Then
Call AddRigaTabella(aValori,Magenta_,"right")
ElseIf aValori(3) > 120 Then
Call AddRigaTabella(aValori,Rosso_,"right")
End If
Next
Next
' ora che ho terminato l'analisi e ho finito di accodare le righe
' creo la tabella e la ordino per la colonna 3 che rappresenta il ritardo
Call CreaTabella(3)
End Sub