X LuigiB

[genios]

Dovrebbe essere cosi. .

[CODE]
Sub Main
Dim dn(10),D

For D = 0 To 80 Step 10 'Decine
For U = 1 To 10 'Unità
dn(U) = D + U
Scrivi D & " VARIABILE D "
Scrivi dn(U)& " VARIABILE DN "
Scrivi D+U & " VARIABILE D+U "

Next

Next
End Sub
[/CODE]

 

[Joe91]

Ciao Eugenio.

Il problema è inverso.

Sappiamo che lo script funziona.

Si tratterebbe ... di "dare" il tuo diagramma di flusso ad un programmatore esperto

per vedere se, da esso, riesce a farne uno sript funzionante.

Non so ... se ho reso l'idea di cosa intendevo.

Comunque sia ... è lodevole l'impegno di decodificare ed evidenziare le parti importanti dello script.

Tu dunque nel messaggio #21 hai sicuramente individuato i cicli che generano le decine.

 

[genios]

Joe91 il diagramma di flusso è riferito al tuo script. 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 80 Step 10 'Decine         For U = 1 To 10 '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

 

[Joe91]

Transeat.