s o f t w a r e    l e a d e r    p e r   i l   g i o c o   d e l   l o t t o

SuperEnalotto

Vediamo come è possibile utilizzare LottoScript per determinare i successi dei metodi per il SuperEnalotto. Ovviamente non potremo avere un resoconto economico, in quanto le vincite non dipendono da quote fisse ma dal montepremi e dal numero di vincitori e non sono stimabili a priori.

Cominciamo col realizzare una funzione che calcola il numero di numeri corrispondenti a quelli da noi impostati, ad una data estrazione. Tale funzione accetta come parametro il numero dell'estrazione e fornisce come risultato il numero di numeri del superenalotto indovinati, cercando tra i primi 6. (Lasciamo perdere per il momento il discorso del 5+1).
Tale funzione ha questo aspetto:

Function quantigiusti(n)

Dim giusti , s

For i= 1 To 6

    s=EstrattoSuper (n,i)

    For j = 1 To q

        if s=numeri(j) Then

End Function

La variabile "giusti" conta quanti numeri abbiamo indovinato, la variabile s memorizza l'estratto i-esimo di quella estrazione (n) in modo da velocizzare la successiva ricerca nel vettore "numeri" che contiene un numero di elementi pari a q. Chiaramente, siccome nè q nè numeri() è definito o passato alla funzione, tali valori saranno definiti esternamente a tutte le routines dello script , in modo che tutte le vedano come disponibili per l'uso.

In altre parole, prima della procedura Sub Main() che caratterizza ogni script, scriveremo:

Dim numeri(3)
Dim q

Impostiamo cioè quanti numeri saranno oggetto della ricerca (come esempio in questo caso, 3). Sia q che numeri() valgono in tutto lo script perchè sono esterni ad ogni routine. Invece, per esempio, le variabili i, j, giusti, s, della funzione quantigiusti valgono solo dentro essa. Riassumendo il nostro script è ora il seguente

Dim numeri(3)
Dim q

q=3

Sub main()

End Sub


Function quantigiusti(n) 
Dim giusti , s

For i= 1 To 6
	s=EstrattoSuper (n,i)

 	For j = 1 To q
		if s=numeri(j) Then 
			giusti=giusti+1
		end if	
 	Next 
Next
quantigiusti = giusti

End Function 

Non ci resta che scrivere la parte più importante dello script cioè la sub Main (principale). Con essa utilizzeremo la funzione  che abbiamo precedentemente scritto per scrivere sulla finestra di output direttamente il risultato. Non dobbiamo prima dimenticare di impostare dei valori per i 3 numeri oggetto della ricerca. Alla fine lo script sarà il seguente (evidenziamo in blu la parte relativa alla sub main):

Dim numeri(3)
Dim q

q=3

Sub main()

numeri(1)= 2
numeri(2)= 45
numeri(3)= 56

For n= EstrazioneFin -300 To EstrazioneFin 
	Scrivi DataEstrazione (n) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n))
Next 


End Sub


Function quantigiusti(n) 
Dim giusti , s

For i= 1 To 6
	s=EstrattoSuper (n,i)

 	For j = 1 To q
		if s=numeri(j) Then 
			giusti=giusti+1
		end if	
 	Next 
Next
quantigiusti = giusti

End Function 

Come si vede la ricerca è fatta sulle ultime 301 estrazioni ma il valore può essere facilmente adeguato alle proprie esigenze in modo da coprire l'intervallo desiderato.