aiuto per script con lunghette e capogioco

[Roby]

ciao
vorrei creare uno script da inserire in spaziometria
ma non so neanche da che parte incominciare,
quello che vorrei io è creare una lista di almeno venti
righe che mi rappresentino
i 4 maggiori ritardi su tutte le ruote + le lunghette in
cinquina del mmaggiore ritardo per ambo sempre su tutte le ruote.

ringrazio anticipatamente chi mi vorrà produrre questo script

ciao

 

[esselotto]

ti vorrei aiutare ma con le frequenze e ritardi non vado daccordo
personalmente script del genere cerco di evitarli

comunque qualcuno ti risponderà di certo.
esselotto

 

[LuigiB]

riguardo i maggiori ritardi ti do uno script che gia avevo e che comapre
anche nel setup del programma.
Per le lunghette in cinquina purtroppo il problema è un'altro
ci sono 2 strategie la prima la sa fare chiunque e consiste nel sviluppare tutte le cinquine e vedere quelal piu ritardata , quastta funzione non è performante e farla in script è improponibile ci vorrebbe un tempo di elaborazione astronomico , la seconda strategia è piu complessa ma non mi va di portarla in script perche trasversalmente
darei delle dritte di algoritmi ad un certo imbecille che purtroppo ancora si aggira in questi luoghi percio non posso farlo.
Ecco uno script che alimenta una tabella con tutti i ritardi e li ordina in modo decrescente.

 Sub Main
	
	ReDim aTitoli(3) ' 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"

	' 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 10 ' 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(3) ' abbiamo 3 titoli quindi anche qui dimensioniamo con 3 colonne
			aValori(1) = Format2(k) ' numero
			aValori(2) = NomeRuota(rt) ' nome ruota
			aValori(3) = RitardoEstratto(k,idEstr,rt) ' valore del ritardo di quel numero su quella ruota
			
			' con questo blocco if coloro le righe che agguiungo in funzione del loro ritardo
			If aValori(3) > 0 And aValori(3) <= 30 Then
				Call AddRigaTabella(aValori,Verde_,"right")
			ElseIf aValori(3) > 30 And aValori(3) <= 50 Then
				Call AddRigaTabella(aValori,Giallo_,"right")
			
			ElseIf aValori(3) > 50 And aValori(3) <= 80 Then
				Call AddRigaTabella(aValori,Magenta_,"right")
			ElseIf aValori(3) > 80 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]

Mi scuso per l'intrusione in questo post ma volevo solo dare il mio apprezzamento a Luigi e paolox per questo script ricco di nuove funzioni vedi la colorazione delle fascie di ritardo.
Sarà sicuramente una base per arricchire gli script e personalizzarli.

Poi ne approfitto per dire a luigi che scaricata la versione di spaziometria 1.1.78 la funzione resoconto parziale l'ho già resa operativa e funziona alla grande ed è utile allo scopo.

Grazie 1000
Ciao Mike

 

[LuigiB]

ciao Mike, nella directory test degli script trovi sia questo script che ho postato qui sia altri script che dimostrano le varie funzioni del linguaggio .
Un saluto

 

[imported_n/a]

Verissimo visto solo ora,penso che ci sono molti esempi validi ma preferisco fare un passo alla volta e memorizzare quelle cose che fanno al mio scopo.
da poco sto sperimentanto grazie a te questo fantastico mondo degli script e cerco di imparare poco per volta.

ciao alla prossima
Mike

 

[paolox]

grazie luigi
ho dovuto cambiare pc

ora tutto ok

ciao