[CODE
'Somma Ultimi Ritardi (10 ritardi di 10 ruote)
'Scritto da Joe91 Maggio 2007
'SELEZIONARE LE AMBATE PRENDENDOLE A 2 A 2 IN DECINA NATURALE
Sub Main
Dim R(10)
Dim NN(1)
For RR = 1 To 10
Scrivi NomeRuota(rr)
R(1) = RR
fin = EstrazioneFin
For n = 1 To 90
NN(1) = n
a = fin
For Rit = 1 To 10
A = SerieUltima(a - 250,a,N,RR) - 1
Next
If fin - a > 270 Then Scrivi Format2(N) & " " & Fin - a
Next
Scrivi
Next
End Sub
Function SerieUltima(ini,fin,n,rr)
For Es = ini To fin
If Posizione(es,rr,n) > 0 Then SerieUltima = es
Next
End Function
][/CODE]
'Somma Ultimi Ritardi (10 ritardi di 10 ruote)
'Scritto da Joe91 Maggio 2007
'SELEZIONARE LE AMBATE PRENDENDOLE A 2 A 2 IN DECINA NATURALE
Sub Main
Dim R(10)
Dim NN(1)
For RR = 1 To 10
Scrivi NomeRuota(rr)
R(1) = RR
fin = EstrazioneFin
For n = 1 To 90
NN(1) = n
a = fin
For Rit = 1 To 10
A = SerieUltima(a - 250,a,N,RR) - 1
Next
If fin - a > 270 Then Scrivi Format2(N) & " " & Fin - a
Next
Scrivi
Next
End Sub
Function SerieUltima(ini,fin,n,rr)
For Es = ini To fin
If Posizione(es,rr,n) > 0 Then SerieUltima = es
Next
End Function
][/CODE]