Sub Main
'Mike58
Dim Nu(1),Ru(1),T
Dim qtEs,R,qFr,Ini,fin,k,n,rit,max,Incr,fre,Tot,MedFre,ic
qtEs = CInt(InputBox("Quante Estrazioni a Ritroso",,18))
R = ScegliRuota
qFr = CInt(InputBox("Quale presenza superiore > a : ",,4))
Ini = EstrazioneFin - qtEs
fin = EstrazioneFin
Tot = fin - Ini + 1
T = Array(T,"Numero","Presenza","Ritardo Corrente","Ritardo Storico","IncrMax","Indice di Convenienza")
Call InitTabella(T,,,,,"Arial Black")
For n = 1 To 90
Nu(1) = n
Ru(1) = R
Call StatisticaFormazioneTurbo(Nu,Ru,1,rit,max,Incr,fre,Ini,fin)
MedFre = Dividi(Tot,fre)
ic = Round(Dividi (rit,MedFre) ,2)
If fre >= qFr Then
T = Array(T,Nu(1),fre,rit,max,Incr,ic)
Call AddRigaTabella(T)
End If
Next
Scrivi "Ruota analizzata................ " & NomeRuota(R),1
Scrivi "Totali estrazioni analizzati.... " & Tot,1
Call CreaTabella(2)
End Sub