Cinzia27 |
|
| Ecco lo script modificato. Il 1° ritardo non è reale perché inizia dalla 7440. Ciao Cinzia Sub Main()
Dim n(2),ru()
'Ritardo più ruote tutti gli ambi (Cinzia)
'----------------------------
'Sezione modificabile
x=3' quantità ruote, se cambi aggiungi o togli le sottostanti ruote
'specifica le ruote
r1=2 'CA
r2=4 'GE
r3=6 'NA
Redim preserve ru(x)
ru(1)=r1
ru(2)=r2
ru(3)=r3
'----------------------------
f=UBound(ru)
For h=1 To f
Scrivi " "&NomeRuota(ru(h))& " ",1,0
Next
Scrivi
For ex = EstrazioneFin-921 To EstrazioneFin 'varia per ritardi superiori
For pp = 1 To 89
For pp1 = pp + 1 To 90
n(1) = pp
n(2) = pp1
If SerieFreq(ex,ex,n,ru,2)>0 Then
If SerieFreq(ex+1,EstrazioneFin,n,ru,2)=0 Then
rtt=SerieRitardo(EstrazioneFin-2000,EstrazioneFin,n,ru,2)
Scrivi
cc=0
For es = 7440 To EstrazioneFin
cc = cc + 1
If SerieFreq(es,es,n,ru,2) > 0 Then
Scrivi FormatSpace(u,4,1) & " L' ambo " & StringaNumeri(n) _
& " è sortito alla " & FormatSpace(es,4,1) & " in una delle " & f & " ruote con rit " & FormatSpace(cc,4,1)
cc = 0
End If
Next
ColoreTesto 1
Scrivi " Ritardo attuale "&FormatSpace(rtt,4,1),1
ColoreTesto 0
End If
End If
Next
Next
Next
End Sub |
| | |
