Script ritardo di casella

[simimi]

Buongiorno a tutti,
ho ritrovato questo vecchio script che non ricordo di chi sia, però mi va in errore.
Mi potreste aiutare a capire qual'è la routine che non funziona?
Grazie e buona giornata a tutti

simimi

' ============================================================
' SCRIPT: RITARDO DI CASELLA
' Compatibile con: Spaziometria e L8+
' Analisi: Tutte le ruote - Tutte le caselle (1° - 5° estratto)
' Descrizione: Per ogni ruota e per ogni casella (posizione),
' calcola quante estrazioni sono passate dall'ultima
' volta che ciascun numero (1-90) è uscito in
' quella specifica casella.
' ============================================================

Sub Main()

' --- PARAMETRI MODIFICABILI ---
Dim soglia As Integer
soglia = 50 ' Mostra solo numeri con ritardo >= a questo valore
' (metti 0 per vedere tutti i numeri)

' --- VARIABILI ---
Dim ruota As Integer
Dim casella As Integer
Dim numero As Integer
Dim es As Integer
Dim ultimaVolta As Integer
Dim ritardo As Integer
Dim estratto As Integer
Dim totEstr As Integer
Dim nomeRuota As String
Dim intestazione As String

totEstr = EstrazioneFin ' ultima estrazione disponibile in archivio

' --- INTESTAZIONE OUTPUT ---
Scrivi "============================================================", 1
Scrivi " RITARDO DI CASELLA - TUTTE LE RUOTE - TUTTE LE CASELLE", 1
Scrivi " Soglia ritardo: " & soglia & " estrazioni", 1
Scrivi " Estrazioni analizzate: " & totEstr, 1
Scrivi "============================================================", 1
Scrivi "", 1

' --- CICLO SU TUTTE LE RUOTE (1=BA ... 11=NZ) ---
For ruota = 1 To 11

nomeRuota = SiglaRuota(ruota)

Scrivi "------------------------------------------------------------", 1
Scrivi " RUOTA: " & nomeRuota, 1
Scrivi "------------------------------------------------------------", 1
Scrivi " Casella | Numero | Ritardo attuale", 1
Scrivi "------------------------------------------------------------", 1

' --- CICLO SU TUTTE LE CASELLE (1=1° estratto ... 5=5° estratto) ---
For casella = 1 To 5

' --- CICLO SU TUTTI I NUMERI (1-90) ---
For numero = 1 To 90

ultimaVolta = 0 ' reset: 0 = numero mai uscito in questa casella

' --- SCANSIONE ARCHIVIO DALLA PIU' RECENTE ALLA PIU' VECCHIA ---
For es = totEstr To 1 Step -1

estratto = Estratto(es, ruota, casella)

If estratto = numero Then
ultimaVolta = es
Exit For ' trovata l'ultima volta: uscita dal ciclo
End If

Next es

' --- CALCOLO RITARDO ---
If ultimaVolta = 0 Then
ritardo = totEstr ' mai uscito: ritardo = tutte le estrazioni
Else
ritardo = totEstr - ultimaVolta
End If

' --- OUTPUT SOLO SE SUPERA LA SOGLIA ---
If ritardo >= soglia Then
Scrivi " Casella " & casella & " | " & Format2(numero) & " | " & ritardo & " estrazioni", 1
End If

Next numero

Next casella

Scrivi "", 1

Next ruota

' --- FINE ---
Scrivi "============================================================", 1
Scrivi " ANALISI COMPLETATA", 1
Scrivi "============================================================", 1

End Sub