Ciao Eugenio.
Si ho accennato alla necessità di più contatori.
Uno per le "Presenze" in ogni ciclo ...
Uno per il Ritardo (in cicli)
Ho aggiunto un secondo contatore che, PER ADESSO, conta "i cicli".
Quindi più che un "diagramma di flusso completo" ...
all'interno del redigendo script si tratta di trovare il punto in cui inserire, codesto contatore.
E' abbastanza evidente ed intuitivo che dove si azzera il conteggio delle presenze
ed inizia un nuovo ciclo, è un "punto nodale" particolarmente significativo ed utile.
Sicchè ho inserito l'incremento del conteggio dei cicli proprio in questo punto.
Aggiungo che ciò fa parte delle abitudini e/o delle preferenze personali. O ... di scelte.
Si potrebbe scrivere diversamente.
Se funziona ... è giusto.
Vi potrebbero anche essere "letture differenti" di questo conteggio ...
ma se si sa "che cosa è" il risultato differente può essere "omologato",
confrontato, pareggiato, eguagliato.
Codice:
Option Explicit
Sub Main
Dim P,I,F 'Primario / Inizio / Fine
Dim N ' Ciclo -Enne- Estrazioni
Dim S 'Secondario
Dim E 'Estrazione
Dim Numeri(10)
Dim Ruota
Dim L
Dim Pos
Dim Q
Dim Bold
Dim CP,CC
Ruota = BA_
Scrivi NomeRuota(Ruota) & " ",0,0
For N = 1 To 10
Numeri(N) = N
Next
Scrivi StringaNumeri(Numeri,,True)
Scrivi
'DATI :
I = 3862 'Inizio Principale
F = EstrazioneFin 'Fine Principale
N = 9 'Numero di estrazioni per ciclo
For P = I To F Step 9 'Ciclo principaleI=z
CC = CC + 1 'Contatore Cicli Aumenta di 1 ad ogni passaggio
CP = 0 'CP = Contatore Presenze = 0
For S = 0 To N - 1 'Ciclo Secondario
E = P + S 'Estrazione nel ciclo
Scrivi E & " " & DataEstrazione(E) & " ",0,0
For Pos = 1 To 5 'leggo gli estratti uno ad uno
L = Estratto(E,Ruota,Pos) ''
For Q = 1 To 10
If Numeri(Q) = L Then
CP = CP + 1
ColoreTesto 2
Bold = True
End If
Next
Scrivi Format2(L),Bold,0 ''' Li Scrivo singolarmente
ColoreTesto 0 : Bold = False
If Pos < 5 Then Scrivi ".",False,False
Next
Scrivi
Next
ColoreTesto 1 : Scrivi "Ciclo N° " & CC,True : ColoreTesto 0
ColoreTesto 2 : Scrivi "Presenze " & CP,True : ColoreTesto 0
If CC = 50 Then Exit For
Scrivi String(32,"-")
Next
End Sub
Ho aumentato il numero di cicli ampliando il range di estrazioni
sino ad EstrazioneFin ma ho inserito contemporanemente "un limite"
a 50 cicli completi.
