Verifica e aiuto script

[hemico]

Premetto che ho adattato uno script della guida 2 di joe91.
Questo lo script che ho modificato con quello che sono riuscito.

Sub Main()
Dim n(3),Ambate(2),Ruotadigioco(2),Poste(1)
Ruotadigioco(1) = TO_ : Poste(1) = .5
Ruotadigioco(2) = VE_ : Poste(1) = .5
For Es = EstrazioneFin - 500 To EstrazioneFin
If IndiceMensile(Es) = 1 Then 'Prima del Mese
K = K + 1 : Scrivi String(105,"=") & " " & K,1
n(1) = Estratto(Es,TO_,5) 'Quinto estratto di TO
n(2) = Estratto(Es,VE_,1) 'Primo estratto di VE
n(3) = Differenza(n(1),n(2)) 'Differenza tra 1(1) e n(3)
Ambate(1) = Fuori90(n(3) + 33)
Ambate(2) = DiametraleD(Ambate(1))
ImpostaGiocata 1,Ambate,Ruotadigioco,Poste,9,1
Gioca Es,1
End If
Next
ScriviResoconto
End Sub

Chiedo a gli esperti se per la parte fatta sino ad ora si possono fare delle "ottimizzazioni sul codice" con spiegazione.
Poi mi sono bloccato perché dovrei inserire dei numeri fissi (5) per la composizione di 5 ambi con la prima ambata e 5 ambi con la seconda ambata.
Altro quesito come faccio a interrompere la giocata al primo esito positivo riscontrato?

PS. Guardando nei vari script sono riuscito ad adattare una settina ma anche in quella veniva verificato l'esito dell'estratto.

Grazie

 

[claudio8]

Per capire e definire i parametri da impostare per ogni singola funzione devi leggere l'Help esistente in spazioscript.
Vedrai che qualsiasi esigenza di operatività della funzione potrà essere risolta.
Se non impari ad usarlo sarai sempre costretto a fare richiesta sul forum, fermo restante che se trovi difficoltà sicuramente qualcuno ti aiuterà.
Saluti

Ps:
Lo script postato è ottimizzato, devi solo evitare di impostare 2 volte il "Poste(1) = .5" .
Ti consiglio per ora che sei inesperto di scrivere riga x riga le sinìgole istruzioni.
Ti serve a costruire in maniera + schematica e meno addensata le istruzioni.
( ti saresti accorto del doppio "Poste(1) = .5 " segnalatoti sopra).

Altra cosa importante:
utilizza sempre il comando "autoformattazione codice" che dispone automaticamente il costrutto con l'indentatura, per meglio visualizzare la logica di sequenza dello script.

Quando lo devi postare sul forum, fai in modo che sia autoformattato ed inserisci lo script usando l'apposito comando"Inserisci" in modalità Codice presente sul forum, vedrai che sarà più leggibile sia per te che per chi dovrà aiutarti senza doverlo copiare su Spazioscipt.

Sub Main()
    Dim n(3)
    Dim Ambate(2)
    Dim Ruotadigioco(2)
    Dim Poste(1)
    Ruotadigioco(1) = TO_
    Poste(1) = 0.5
    Ruotadigioco(2) = VE_
    'Poste(1) = 0.5 remmato x renderlo inesistente nel processo elaborativo
    For Es = EstrazioneFin - 500 To EstrazioneFin
        If IndiceMensile(Es) = 1 Then 'Prima del Mese
            K = K + 1 'contatore dei casi
            Scrivi String(105,"=") & " " & K,1
            n(1) = Estratto(Es,TO_,5) 'Quinto estratto di TO
            n(2) = Estratto(Es,VE_,1) 'Primo estratto di VE
            n(3) = Differenza(n(1),n(2)) 'Differenza tra 1(1) e n(3)
            Ambate(1) = Fuori90(n(3) + 33)
            Ambate(2) = DiametraleD(Ambate(1))
            ImpostaGiocata 1,Ambate,Ruotadigioco,Poste,9,1
            Gioca Es,1
        End If
    Next
    ScriviResoconto
End Sub

 

[claudio8]

Come puoi vedere, la formattazione ti allinea in verticale l'inizio e la fine dei blocchi costituenti il costrutto.
Sub main ed End sub sono allineati così come For e Next ed If ed End if .
L'autoformattazione ha anche la funzione di controllo della presenza del corrispondente di chiusura del singolo blocco.
Praticamente se inserisci una condizione If dimenticando di chiuderla con End if , l'auto formattazione ti evidenzia l'errore.
Oltre a questo fa anche altri controlli di errori che imparerai a conoscere man mano che farai script.
Ti consiglio di usarlo spesso in fase di scrittura ed al termine di ogni script.
Saluti

 

[hemico]

Grazie ad entrambe le vostre note mi danno nuovi stimoli per proseguire.