Novità

X LuigiB

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]
 
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.

:)
 
Joe91 il diagramma di flusso è riferito al tuo script. Ciao Eugenio

Codice:
 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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 18 luglio 2025
    Bari
    48
    38
    01
    78
    24
    Cagliari
    87
    33
    22
    13
    19
    Firenze
    14
    27
    71
    11
    50
    Genova
    40
    14
    77
    76
    17
    Milano
    26
    17
    90
    64
    69
    Napoli
    40
    89
    06
    23
    84
    Palermo
    62
    51
    36
    86
    26
    Roma
    76
    33
    75
    83
    47
    Torino
    83
    19
    82
    79
    89
    Venezia
    20
    31
    13
    12
    87
    Nazionale
    74
    29
    28
    32
    78
    Estrazione Simbolotto
    Nazionale
    39
    18
    27
    28
    20

Ultimi Messaggi

Indietro
Alto