ricerca terno su tutte

[Roby]

qualcuno ha uno script per vedere il terno piu uscito in un determinato mese?grazie

 

[LuigiB]

Questo script funzionerà con la nuova versione del programma 1.1.83 che mettero in giornata.
Ho dovuto infatti inserire un nuova funzione nello spazioscript
per agevolare questa ricerca.
Per chi mi segue dal punto di vista della programmazione specifico che la nuova funzione inserita nel linguaggio si chiama
GetNewCollection e consente di istanziare un oggetto di tipo collection.
Le collection sono come dei contenitori che possono contenere degli
elementi a cui è possibile associare una chiave</u> sicche ad esempio in una collection facciamo finta di 100 elementi è possibile riottenerne
uno specifico richiamandolo attraverso la sua chiave.
Le collection possono contenere degli oggetti nella fattispecie
le classi.
Dovete sapere che il vbscript mette a disposizione un costrutto molto potente che serve per creare una classe ma cos'è una classe ?
Una classe è un oggetto che dispone di proprieta e metodi
Per esempio se volessimo identificare una persona attraverso l'uso di una classe potremmo scrivere

class Persona
   Nome 
   Cognome
end class

poi potremmo istanziare una variabile di tipo Persona
in questo modo

dim clsPersona
set clsPersona = New Persona

successivamente utilizzando la variabile clsPersona potremmo
riferirci ai suoi membri con

clsPersona.Nome = "Mario"
clsPersona.Cognome = "Rossi"

l'utilità della classe è che con una sola variabile di quel tipo
si hanno a disposizione diverse differenti informazioni
Una classe essendo un oggetto puo essere inserita in una collection
Una classe a sua volta puo contenere anche delle sue procedure e funzioni anche se in questo caso non è stato necessario usarle.
Ho spiegato questi concetti visto che questo script ne fa uso
Bene finita la teoria per quei pochi che mi seguono, ecco lo script
che pero ripeto funzionera con la prossima versione che mettero in giornata.

Class ItemTerno
	Dim aNum(3)
	Dim Presenze
End Class

Sub Main


	Dim K
	Dim sKey
	Dim j
	Dim aTerni
	Dim CollTerni
	Dim Ruota
	Dim e
	Dim clsTerno
	Dim idMese
	
	Ruota = ScegliRuota
	
	idMese = CInt(InputBox("Inserire mese da 1 a 12")) ' gennaio
	
	If idMese > 0 And idMese <= 12 And Ruota > 0 And Ruota <= 10 Then
	
			Set CollTerni = GetNewCollection
			
			
			For K = EstrazioneIni To EstrazioneFin
				
				If Mese(K) = idMese Then
					ReDim aNumProno(5)
					For e = 1 To 5
						aNumProno(e) = Estratto(K,Ruota,e)
					Next
					If aNumProno(1) > 0 Then
						
						aTerni = GetTerniEstrazione(aNumProno)
						
						For j = 1 To UBound(aTerni)
							
							sKey = "k"
							
							For e = 1 To 3
								sKey = sKey & Format2(aTerni(j,e))
							Next
							Set clsTerno = GetClassTerno(CollTerni,sKey)
							For e = 1 To 3
								
								clsTerno.aNum(e) = aTerni(j,e)
							Next
							
							clsTerno.Presenze = clsTerno.Presenze + 1	
							Call AddItemInCollTerni(clsTerno,sKey,CollTerni)		
						Next
					End If
				End If
				
				Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,K)
				If ScriptInterrotto Then Exit For
			Next
			
			ReDim aTitoli(2)
			aTitoli(1) = " Terno "
			aTitoli(2) = "  Presenze  "
		
			Call InitTabella(aTitoli)
			
			For Each clsTerno In CollTerni
				ReDim aValori(2)
				aValori(1) = " " & StringaNumeri(clsTerno.aNum) & " "
				aValori(2) = clsTerno.Presenze
				Call AddRigaTabella(aValori)
			Next	
			
			Call CreaTabella(2,0,0,20)
	
	End If
	
	
End Sub

Function GetTerniEstrazione(aNumProno)

	Dim k
	ReDim aNum(90)
	
	Call OrdinaMatrice(aNumProno,1)
	For k = 1 To 5
		aNum(k) = aNumProno(k)
	Next
	GetTerniEstrazione = SviluppoIntegrale(aNum,3)
End Function

Function GetClassTerno(CollTerni,sKey)
	
	On Error Resume Next
	Dim clsT
	
	Set clsT = CollTerni(sKey)

	If clsT Is Nothing Then
		Set clsT = New ItemTerno
		
	End If
	
	Set GetClassTerno = clsT
End Function

Sub AddItemInCollTerni(clsT,sKey,Coll)
	On Error Resume Next