Cinzia27 |
|
| Ciao, Santani. Ecco lo script. 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 pp = 1 To 89 For pp1 = pp + 1 To 90 n(1) = pp n(2) = pp1 Scrivi mx=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(rt,4,1) & " " & FormatSpace(cc,4,1) cc = 0 If es>mx Then mx=es End If Next rtt=EstrazioneFin-mx ColoreTesto 1 Scrivi " Ritardo attuale "&FormatSpace(rtt,4,1),1 ColoreTesto 0
Next
Next End Sub Edited by Cinzia27 - 20/1/2018, 22:27
|
| |