Non ricordo quale script?
Questo...
Option Explicit
Sub Main
Dim Ini,Fin,Q
Dim CdP,P,R,K,N,Es,E,X
R = BA_ 'Ruota------------------------------->cambiare qui
CdP = 5 'Presenze-------------------------->cambiare per presenze
Fin = 10334'Ultima Estrazione Considerata
Q = 78 'Quantità Estrazioni
Ini = Fin + 1 - Q 'Calcolo Inizio Periodo--------> cambiare qui per cicli considerati
'
For N = 1 To 90
If EstrattoFrequenzaTurbo(R,N,Ini,Fin) = CdP Then
K = K + 1
ReDim Preserve L(K)
L(K) = N
End If
Next
ColoreTesto 2
Scrivi
Scrivi NomeRuota(R) & " ",True,False
Scrivi StringaNumeri(L,,True),True
Scrivi
ColoreTesto 0
For Es = Fin + 1 To Fin + 9
Scrivi DataEstrazione(Es) & " ",0,0
For P = 1 To 5
E = Estratto(Es,R,P)
For X = 1 To K
If E = L(X) Then ColoreTesto 2
Next
Scrivi Format2(E) & " ",0,0
ColoreTesto 0
Next
Scrivi
Next
End Sub