x Luigi aiuto listato

[Roby]

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

 

[LuigiB]

Cioa Mike , ecco il listato con la correzione.
Riguardo al setup c'è un argomento apposta nel forum è li la link , se non lo vedi forse sara alla pagina successiva.

.
Sub Main
	ReDim aTitoli(7) ' titoli tabella
	Dim k ' controllo cicli
	Dim rt ' ruota
	Dim idEstr 'estrazione inizio analisi
	Dim idEstrStorico 
	
	' 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) =" " & FormatSpace(NomeRuota(rt),15) ' 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)
			
			ReDim aNumeri (1) ' vettore di comodo da passare alla funzione SerieEstrazioneStorico 
			aNumeri(1) = k
			ReDim aRuote (1) ' vettore di comodo da passare alla funzione SerieEstrazioneStorico 
			aRuote(1) =rt
			
			' aValori(7) = SerieEstrazioneStorico( EstrazioneFin - 300,EstrazioneFin, k,rt,1) <--- ERRORE
			idEstrStorico =SerieEstrazioneStorico( EstrazioneFin-300,EstrazioneFin, aNumeri, aRuote,1)
			If idEstrStorico  > 0 Then
				aValori(7) = DataEstrazione(idEstrStorico)
			Else
				aValori(7) ="-"
			End If
			
			

			' 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

 

[imported_n/a]

Grazie Luigi, non ci sarei mai arrivato, però ne faro tesoro per imparare.

Sei sempre oltre che gentilissimo, bravissimo.

Ciao Mike

 

[imported_n/a]

Ciao Luigi,nel listato del quale gentilmente hai fatto le correzione relativa alla richiesta della data del ritardo storico, purtroppo la data del ritardo attuale dei numeri vicini o superiori alle 100 estrazione da come data, la data delll'ultima estrazione.

Es. 32 a Roma ritardo storico 132 e attuale 132 data 15.01.2011
ES. 15 a bari etc.


Mentre sono corrette per tutti gli altri numeri.
Puoi se riesci dargli un occhio.

Ciao e ancora grazie

Mike

 

[LuigiB]

scusa ma non ho capito .. nella tabella compare una sola data quella dello storico.

 

[imported_n/a]

OK Luigi, ti stavo per riscrivere, infatti è sbagliato il senso del mio quesito, infatti la data storica non può essere che quella attuale per l'esempio riportato anche perche nel caso del n. 32 di roma nel range di estrazione stabilite non c'è altro ritardo superiore a quello attuale.

Scusami e grazie dell'attenzione.

Ciao
Mike