Option Explicit
Sub Main
'''calcola ritardo sulle 10 ruote per i 50 numeri usciti dell'estrazione precedente
Dim i,r,p,n,ru,retrit,y,rr,Inizio,qt,nsorte
Dim ruota(10,3),ar(1)
qt = CInt(InputBox("Quante estrazioni vuoi elaborare",,100))
nsorte = InputBox("Sorte da calcolare",,2)
Inizio = EstrazioneFin - qt
Scrivi "Calcola Ritardi e Massimi per la sorte almeno dell'ambo",1
Scrivi "Dall'estrazione n." & Inizio & "/" & " all' estrazione n." & EstrazioneFin & "/" & DataEstrazione(EstrazioneFin),1
Scrivi "Richiesto n.estrazioni da controllare..." & qt,1
Scrivi "Richiesto di calcolare per sorte = " & nsorte,1
Scrivi
For i = Inizio To EstrazioneFin
Messaggio(i)
y = 0
ReDim numeri(55)
For r = 1 To 10
For p = 1 To 5
n = Estratto(i - 1,r,p)
y = y + 1
numeri(y) = Format2(n)
Next
Next
Call EliminaRipetuti(numeri)
'''caricato la arrays con i numeri dell'estrazione precedente
''''calcolo ritardi sulle 10 ruote
For ru = 1 To 10
ar(1) = ru
Call StatisticaFormazioneTurbo(numeri,ar,nsorte,retrit,,,,3950,i)
If retrit = 0 Then
ruota(ru,1) = ru
If ruota(ru,2) > ruota(ru,3) Then
ruota(ru,3) = ruota(ru,2)
End If
ruota(ru,2) = 0
Else
ruota(ru,1) = ru
ruota(ru,2) = ruota(ru,2) + 1
End If
Next
'''
For rr = 1 To 10
Scrivi i - 1 & " " & SiglaRuota(ruota(rr,1)) & " Rit." & ruota(rr,2) & " Max." & ruota(rr,3)
Next
ColoreTesto(1)
Scrivi "--------" & i-1 & " nr. " & StringaNumeri(numeri,".")
ColoreTesto(0)
Next
End Sub