Richiesta script

[vinci]

Ciao a tutti, avrei bisogno di un grande favore
se qualche volenteroso potesse realizzare questo script:

Ad ogni estrazione prendere in considerazione le ultime 9 estrazioni
di 2 ruote con la possibilità di poterle scegliere selezionandole.
Individuare i numeri usciti almeno 3 volte
nel totale dei numeri usciti sulle due ruote nelle 9 estrazioni,
e metterli in gioco per 1 solo colpo sulle due ruote selezionate.
Ad ogni estrazione ripetere il procedimento
con la possibilità di avere il rendiconto dell'ultimo anno.

Ringrazio in anticipo chi potrà aiutarmi

 

[LuigiB]

Option Explicit
Sub Main
	ReDim aRuote(0)
	Dim nRuoteSel
	Dim idEstr
	Const nColpiIndietro = 9
	Const nPresMinima = 3
	Const nSorte =2
	ReDim aPoste (5)
	
	
	aPoste(nSorte) = 1 ' 
	
	nRuoteSel = ScegliRuote(aRuote)
	ReDim Preserve aRuote(nRuoteSel)
	
	If nRuoteSel > 0 Then
		For idEstr = EstrazioneIni To EstrazioneFin
			
			ReDim aNumInGioco(0)
			If GetNumIngioco(aRuote,nColpiIndietro,idEstr,aNumInGioco,nPresMinima ,nSorte) Then
			
				Call ImpostaGiocata( 1,aNumInGioco ,aRuote,aPoste )
				Call Gioca (idEstr)
				
			End If
		Next
		Call ScriviResoconto
	End If
End Sub
Function GetNumIngioco(aRuote,nColpiIndietro,idEstr,aNumInGioco,nPresMinima , nSorte)
	Dim k,e,r,n
	ReDim aPresenze(90)
	For k = idEstr To(idEstr - nColpiIndietro) + 1 Step - 1
		If k > 0 Then
			For r = 1 To UBound(aRuote)
				For e = 1 To 5
					n = Estratto(k,aRuote(r),e)
					aPresenze(n) = aPresenze(n) + 1
				Next
			Next
		End If
	Next
	n =0
	For k = 1 To 90
		If aPresenze(k) >= nPresMinima Then
			n = n +1
			ReDim Preserve aNumInGioco(n)
			aNumInGioco(n) = k	
		End If
	Next
	
	If  n >= nSorte  And n <= 10  Then
		GetNumIngioco = True 
	End If 
End Function

 

[vinci]

Grazie Luigi, però non gira e mi da questo tipo di errore

errore script!
55-file al ready open
linea : 1
colonna : 0
source : spaziometria

 

[LuigiB]

e gli altri script ti girano ?

 

[80Sete]

Lo script funziona, se può essere utile il mio intervento.

 

[LuigiB]

si grazie è una conferma. Vinci verifica se hai la versione piu aggiornata del programma

 

[Antonin]

Anche a me funziona con la versione 1.3.11.

 

[claudio8]

Con la 1.3.16 funziona tutto, meno il metodo che sulla ruota di ba ... 2800 casi con 8 positivi .