Novità

Verifica e aiuto script

hemico

Senior Member
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
 
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.

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

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 16 settembre 2025
    Bari
    26
    29
    18
    10
    69
    Cagliari
    28
    35
    57
    44
    17
    Firenze
    19
    29
    49
    15
    17
    Genova
    23
    37
    13
    90
    58
    Milano
    33
    84
    76
    24
    79
    Napoli
    78
    15
    03
    24
    56
    Palermo
    80
    24
    41
    08
    75
    Roma
    55
    62
    83
    34
    69
    Torino
    27
    80
    69
    51
    84
    Venezia
    89
    74
    72
    82
    21
    Nazionale
    45
    20
    85
    33
    67
    Estrazione Simbolotto
    Palermo
    21
    19
    27
    36
    18

Ultimi Messaggi

Indietro
Alto