Ecco lo script
è di joe
numero sua posizione e ritardo del numero.ls
Sub Main()
Scrivi "Test Pos_Num_[Rit] By Joe",1,1,4,1 : Scrivi
Es = EstrazioneFin : Scrivi DataEstrazione(Es),1 : Scrivi
Titolo
For P = 1 To 90
Scrivi Format2(P) & "°",1,0
For R = 1 To 12 :If R = 11 Then R = 12
NPR = NumeroPosRitTurbo(Es,R,P)
RIT = RitardoEstrattoTurbo(NPR,Es,R)
Scrivi " | " & Format2(NPR),1,0
Scrivi " [" & FormatSpace(Rit,3,1) & "]",0,0,,1
Next : Scrivi " | ",1,1
Next
Titolo
End Sub
Sub Titolo
Scrivi "Pos | ",1,0 : For R = 1 To 12 : If R = 11 Then R = 12
Scrivi FormatSpace(NomeRuota(R),9) & "| ",1,0
Next : Scrivi
End Sub