Errore .

[genios]

Dove sta l' errore ?

Ciao Eugenio

Option Explicit
Sub Main
'Ritardo Medio Ambo (in DecinaNaturale) V.Beta (per prova) del 31/03/2015 Script By Joe
Scrivi "Ritardo Medio Ambo (In DecinaNaturale) By Joe",True : Scrivi
    Dim Ini,Fin,R,D,U,A,B
    Dim DN(10),Nu(2),Ru(1),SRT,SR
    Ini = 1 : Fin = EstrazioneFin    
    For R = 1 To 12 : If R = 11 Then R = 12
    Ru(1) = R
    Scrivi NomeRuota(R),True
    For D = 0 To 8 'Decine
        For U = 1 To 10 : DN(U)= Fuori90 ((10*D+U)*7)
         Next  'Unità
            DN(U) = D + U
        Next 
         SR = 0
            For A = 1 To 9 : Nu (1) = DN(A)
                For B = A + 1 To 10 : Nu(2) = DN(B)
                 SRT = SerieRitardoTurbo(Ini,Fin,Nu,Ru,2) ': Scrivi StringaNumeri (Nu,,True)  & FormatSpace (SRT,5,1)
                    SR = SR + SRT
                Next
            Next
            Scrivi StringaNumeri(DN,,True) & "  R.M.A. = " & Round((SR / 45),0) & " ",0,0 : : Scrivi
        Next
    Next 
End Sub

 

[genios]

Sono riuscito a trovarlo .

Option Explicit
Sub Main
'Ritardo Medio Ambo (DECINA PASSO 11) V.Beta (per prova) del 31/03/2015 Script By Joe
Scrivi "Ritardo Medio Ambo (In DecinaNaturale) By Joe",True : Scrivi
    Dim Ini,Fin,R,D,U,A,B
    Dim DN(10),NU(2),Ru(1),SRT,SR
    Ini = 1 : Fin = EstrazioneFin    
    For R = 1 To 12 : If R = 11 Then R = 12
    Ru(1) = R
    Scrivi NomeRuota(R),True
    For D = 0 To 80 Step 10 'Decine
        For U = 1 To 10 'Unità
            DN(U) = Fuori90 ((10*D + U)*11)
        Next : SR = 0
            For A = 1 To 9 : NU(1) = DN(A)
                For B = A + 1 To 10 : NU(2) = DN(B)
                 SRT = SerieRitardoTurbo(Ini,Fin,NU,Ru,2) 
                    SR = SR + SRT
                Next
            Next
            Scrivi StringaNumeri(DN,,True) & "  R.M.A. = " & Round((SR / 45),0) & " ",0,0 : : Scrivi
        Next
    Next
End Sub