Script

[zwigless]

Buongiorno, avrei bisogno di uno script che, ad una certa estrazione del mese da me impostata, sulla ruota di Bari mi fornisca i 5 numeri + usciti entro 10 colpi di gioco.

C'è qualcuno che ne ha già uno oppure sia capace di realizzarlo ?

Mi serve per L8. Grazie in anticipo a chi vorrà aiutarmi.

 

[joe]

Ciao, zwigless,

non ho capito se l'inizio che inserisci è compreso, o no, nelle 10 estrazioni.

Non ho potuto provare se funziona con L8 e neppure se funziona correttamente.

Quindi è da controllare ed eventualmente modificare.

La quantità di estrazioni che lo script considera

è quella indicata al centro della barra in basso nella finestra del programma.

Option Explicit
Sub Main
'Presenze nei 10 Colpi dopo Indice Mensile
'V.1 Script By Joe  
	Dim Ini,Fin,Es
	Dim R,I,Q,K
	Dim F,N,NU(1),P(90),RU(1),M
	R = NZ_
	I = Int(InputBox("Quale ?","INDICE MENSILE",1))
	Q = 10 ' Estrazioni Controllate
	RU(1) = R
	Ini = EstrazioneIni : Fin = EstrazioneFin
	For Es = Ini To Fin
		AvanzamentoElab Ini,Fin,Es
		If IndiceMensile(Es) = I Then
			For N = 1 To 90
				NU(1) = N
				P(N) = P(N) + SerieFreq(Es + 1,Es + Q,NU,RU,1)
				If P(N) > M Then M = P(N)
			Next
		End If
	Next
	For F = M To 0 Step - 1
		For N = 1 To 90
			If P(N) = F Then 
			K = K + 1
			Scrivi  "N° " & Format2(N)   &Space(2) &  FormatSpace(F,4) & Space(1) &"Pres."
			End If 
		Next
If K >= 5 Then Exit for
	Next
End Sub

Buona serata a tutt/i.

 

[zwigless]

Grazie Joe, funziona.
Occorre però cambiare questa riga
RU(R) = R con RU(1) = R Ciao

 

[joe]

Ciao,

Si hai ragione (funzionava per Bari)

dunque, ho corretto lo script ed anche limitato l'output

alle "5" maggiori "Presenze" come avevi richiesto.

 

[Ginger]

non potreste far capire qlc di più?