quote:
Sub Main()
Dim nu1(90)
Dim nu2(90)
Dim nu3(90)
Dim ru(1)
ru(1) = InputBox("Inserisci la Ruota",,8)
ruo = ru(1)
u = 0.700 'il valore minimo di Ic (Indice di convenienza)
es = EstrazioneFin
ColoreTesto(2)
Scrivi "Tabellone Analitico in Vericale"
Scrivi DataEstrazione(es)
Scrivi
Scrivi FormatSpace("Ruota",8) & FormatSpace("Posizione",15) & FormatSpace("Formazione",25) & _
FormatSpace("Ritardo Attuale",25) & FormatSpace("RSL",15) & FormatSpace("RSL/RC",10)
Scrivi String(95,"-")
For pos = 1 To 5
rsl = 0 : ic = 0
GeneraAnalitico es
For rit = 0 To TabelloneAnalitico(0,0,0) + 1
If TabelloneAnalitico(rit,ruo,pos) > 0 Then
k = k + 1
nu1(k) = TabelloneAnalitico(rit,ruo,pos)
flag = 1
End If
If TabelloneAnalitico(rit,ruo,pos) = 0 And flag = 1 Then
rr = SerieRitardo(EstrazioneIni,EstrazioneFin,nu1,ru,1,0)
For q = 1 To rr
GeneraAnalitico EstrazioneFin - q
For rit2 = 0 To TabelloneAnalitico(0,0,0) + 1
If TabelloneAnalitico(rit2,ruo,pos) > 0 Then
k2 = k2 + 1
nu2(k2) = TabelloneAnalitico(rit2,ruo,pos)
flag2 = 1
End If
If TabelloneAnalitico(rit2,ruo,pos) = 0 And flag2 = 1 Then
rr2 = SerieRitardo(EstrazioneIni,EstrazioneFin - q,nu2,ru,1,0)
If StringaNumeri(nu1) = StringaNumeri(nu2) Then
rsl = rsl + 1
End If
ic = rsl/rr
Erase nu2
flag2 = 0 : k2 = 0
End If
Next
Next
If ic => u Then riga = "**" Else riga = " "
ColoreTesto(1)
Scrivi FormatSpace(NomeRuota(ruo),11) & FormatSpace(pos,8) & _
FormatSpace(StringaNumeri(nu1),34) & FormatSpace(rr,21) & FormatSpace(rsl,15) & FormatNumber(ic,3) & " " & riga
Erase nu1
flag = 0 : k = 0 : rsl = 0
End If
GeneraAnalitico EstrazioneFin
Next
Scrivi String(95,"-")
Next
End Sub
