Ritengo sia utile avere il riferimento al Ritardo corrente.
Lo si ottiene inserendo subito dopo l'istruzione con cui viene esposta la data,
questa nuova riga di codice : Scrivi FormatSpace(Fin - Es,3,1) & " | ",1,0
E' evidente che il ritardo CORRENTE indica da quante estrazioni non si verifica la presenza della sorte,
oppure cresce in senso inverso con retrocedere nel tempo delle Estrazioni.
Didatticamente è Fin-Es. Differenza in estrazioni tra la ultima (Fin) e quella Es in cui è presente l'evento.
Analogamente possiamo calcolare e riprodurre a video quelli di cui è fatta richiesta.
Prima ancora però è utile avere un titolo per ogni colonna (con Data Rc e Ruota/e)
Lo si ottiene aggiungendo in fondo allo script (subito prima di End Sub) queste poche righe di codice.
Scrivi Space(4) & "Data" & Space(3) & "| Rc ",1,0
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi "|" & FormatSpace(NomeRuota(R),16),1,0
Next
Scrivi "|",1
Scrivi
Con un solo ciclo For-Next viene scritto il nome della Ruota (per esteso considerando che ci sono spazi sufficienti).
In ultimo ricordando che il RitC è Fin-Es con un ciclo For-Next identico al precedente,
possiamo produrre un resoconto dei ritardi di Estratto ed Ambo ... per ogni Ruota
Aggiungeno ancora prima di End Sub e dopo ave battezzato le colonne con il loro nome lo si ottiene con
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi NomeRuota(R),1
Scrivi "Rc_Estr" & FormatSpace(Fin - A(R),4,1)
Scrivi "Rc_Ambo" & FormatSpace(Fin - B(R),4,1)
Scrivi String(12,"-")
Next
Con questo si dovrebbe avere un piccolo script per mostrare in grafica e sinteticamente la situazione attuale,
riguardo le ruote la frequenza ed il ritardo degli Estratti nel loro casuale ritmo del ripetersi a colpo.
