Novità

Errore 1024 prevista istruzione

fillotto

Advanced Member >PLATINUM<
Quando appare questo messaggio di errore e la riga che indica è l'ultima , ovvero evidenzia "End Sub" come si fa a sapere di quale "istruzione/i" ha bisogno lo script per girare ?
 
Ultima modifica:
probabilmente ti manca qualche end if oppure next oppure loop

dipende dalle routine che hai impostato sopra

prova pigiare il bottone centrale sulla schermata dello script dell'allineamento delle istruzioni
 
Beppignello;n2056501 ha scritto:
probabilmente ti manca qualche end if oppure next oppure loop

dipende dalle routine che hai impostato sopra

prova pigiare il bottone centrale sulla schermata dello script dell'allineamento delle istruzioni

Grazie Beppignello ,purtroppo non riesco a capire "prova pigiare il bottone centrale sulla schermata dello script dell'allineamento delle istruzioni" io ho inteso di pigiare il bottone "inserisci identazione" che si trova in mezzo a 1Commenta 2Rimuovi commento e 4Rimuvi identazione 5AutoformattazioneCodice ma cosi facendo mi diventa tutto omogeneo di un unico colore tanto che devo rimetterlo nellasituazione precedente pigiando il bottone 4Rimuvi identazione:(
Un idea l'avrei si tratta di una modifica di uno script che intendo modificarlo per una lotteria estera perciò questo codice l'ho modificato
Codice:
Dim Ruota     
    Dim L
    Dim Pos
    Dim Q
    Dim Bold
    Dim CP,CC,ST
    Dim C(20)
    Ruota = BA_
    Dim CPE
    ColoreTesto 2
    Scrivi NomeRuota(Ruota) & " ",True,False
    For N = 1 To 10 : Numeri(N) = N : Next
in questo
Codice:
'Dim Ruota  [COLOR=#FF0000] REMMATO[/COLOR]
        Dim L
        Dim Pos
        Dim Q
        Dim Bold
        Dim CP,CC,ST
        Dim C(20)
        'Ruota = BA_      [COLOR=#FF0000] REMMATO[/COLOR]
        Dim CPE
        ColoreTesto 2
        Dim sez
        Dim sfilearchivio
        Dim ult
        sez = InputBox("Quale Arc Virtuale vuoi prendere in considerazione? "," 1 - 6 ",1)
        ult = CInt(InputBox(" Quante estrazioni devo escludere dall'ultima in archivio ? "," 0 x nessuna 1,2....ecc  ",1))
        For sez = 1 To 7
            sfilearchivio = GetDirectoryAppData & "Svizzera\svizz" & sez & ".txt"
            Call ApriBaseDatiFT(sfilearchivio,06,",",42)'Ecco il cicloFOR x prendere tutte le SeZ
            Scrivi " SWTZ" & " ",True,False         '''''''[COLOR=#FF0000]CAMBIATO[/COLOR]
Ma come detto non gira ,pure io ho pensato a un next o end if ma non in meno ma in più ovvero lo devo toggliere dato che uso una sola ruota ma non riesco :(
Per la cronaca lo script è di Joe ed è questo
Codice:
Option Explicit
Sub Main
    Dim P,I,F 'Primario / Inizio / Fine
    Dim N '-Enne- Numeri / Ciclo -Enne- Estrazioni
    Dim S 'Secondario
    Dim E 'Estrazione
    Dim Numeri(10)
    Dim Ruota
    Dim L
    Dim Pos
    Dim Q
    Dim Bold
    Dim CP,CC,ST
    Dim C(20)
    Ruota = BA_
    Dim CPE
    ColoreTesto 2
    Scrivi NomeRuota(Ruota) & " ",True,False
    For N = 1 To 10 : Numeri(N) = N : Next
    Scrivi StringaNumeri(Numeri,,True),True
    ColoreTesto 0
    Scrivi
    'DATI :
    I = 3862 'Inizio Contatore Principale
    F = EstrazioneFin 'Fine Contatore Principale
    N = 9 'Numero di Estrazioni per ciclo
    For P = I To F Step 9 'Ciclo principale
        AvanzamentoElab I,F,P
        CC = CC + 1 'Contatore Cicli Aumenta di 1 ad ogni passaggio
        CP = 0 'CP = Contatore Presenze = 0
        For S = 0 To N - 1 'Contatore Secondario
            E = P + S 'Estrazione in Oggetto
            If E > F Then Exit For 'Termina se non ci sono estrazioni.
            Scrivi E & "  " & DataEstrazione(E) & "  ",0,0
            CPE = 0 'Azzera ad ogni estrazione il Contatore Presenze Estrazione
            For Pos = 1 To 5 'Legge gli Estratti -Uno ad uno-
                L = Estratto(E,Ruota,Pos) ''
                For Q = 1 To 10
                    If Numeri(Q) = L Then 'Confronto Crociato.
                        CP = CP + 1 'Conta presenze
                        CPE = CPE + 1 'Conta presenze
                        ColoreTesto 2 'Colora di rosso
                        Bold = True 'Attiva il grassetto
                    End If
                Next
                Scrivi Format2(L),Bold,0 '''Scrive Estratti
                ColoreTesto 0 : Bold = False 'Disattiva il colore e grassetto
                If Pos < 5 Then Scrivi ".",False,False 'inserisce un punto di separazione
            Next
            If CPE >= 2 Then
                Scrivi Space(2) & NomeSorte(CPE)
            Else
                Scrivi "" 'RiAttiva "a capo"
            End If
        Next
        'Riepilogo Risultati
        ColoreTesto 1 : Scrivi "Ciclo N° " & FormatSpace(CC,4,True),True,False
        Scrivi Space(7),False,False
        ColoreTesto 2 : Scrivi "Presenze " & CP,True: ColoreTesto 0
        If CC > ST Then ST = CC
        If CP >= 7 Then C(CC) = C(CC) + 1 : CC = 0 'Azzera il contatore nei cicli maggiormente "positivi"
        Scrivi String(32,"-")
    Next
    ColoreTesto 1
    Scrivi "Storico" & FormatSpace(ST,6,True),True
    ColoreTesto 0
    Scrivi
    Scrivi "Target Raggiunti",True
    Scrivi "Ciclo  Volte"
    For N = 1 To 20
        If C(N) > 0 Then Scrivi Format2(N) & " " & String(4,".") & " " & C(N)
    Next
End Sub



[CODE]
 
ho copiato il tuo script "Joe"

e funziona e non da errore


le modifiche che stai facendo contemplano "Nessuna Ruota"
domanda :
quando c'è questa istruzione L = Estratto(E,Ruota,Pos)

richiede una ruota o una modifica di questa istruzione.




Cattura.JPG



Cattura2.JPG
 
Ultima modifica di un moderatore:
infatti ho cambiato L = Estratto(E,Ruota,Pos) in--------> L = EstrattoFT(E,Pos) questo è il tutto:
Codice:
    Option Explicit
    Sub Main''PRESO da "Joe91 come faccio" del 31/3/17
        Dim P,I,F 'Primario / Inizio / Fine
        Dim N '-Enne- Numeri / Ciclo -Enne- Estrazioni
        Dim S 'Secondario
        Dim E 'Estrazione
        Dim Numeri(42)'per cambiare una settina qualsiasi è necessario mettere tutti e 42 i num
        'Dim Ruota
        Dim L
        Dim Pos
        Dim Q
        Dim Bold
        Dim CP,CC,ST
        Dim C(20)
        'Ruota = BA_
        Dim CPE
        ColoreTesto 2
        Dim sez
        Dim sfilearchivio
        Dim ult
        sez = InputBox("Quale Arc Virtuale vuoi prendere in considerazione? "," 1 - 6 ",1)
        ult = CInt(InputBox(" Quante estrazioni devo escludere dall'ultima in archivio ? "," 0 x nessuna 1,2....ecc  ",1))
        For sez = 1 To 7
            sfilearchivio = GetDirectoryAppData & "Svizzera\svizz" & sez & ".txt"
            Call ApriBaseDatiFT(sfilearchivio,06,",",42)'Ecco il cicloFOR x prendere tutte le SeZ
            Scrivi " SWTZ" & " ",True,False
            For N = 8 To 14 : Numeri(N) = N : Next 'cambiare qui per una nuova sett
            Scrivi StringaNumeri(Numeri,,True),True
            ColoreTesto 0
            Scrivi
            'DATI :
            I = 386 'Inizio Contatore Principale
            F = EstrazioniArchivioFT 'Fine Contatore Principale
            N = 6'Numero di Estrazioni per ciclo
            For P = I To F Step 6 'Ciclo principale
                AvanzamentoElab I,F,P
                CC = CC + 1 'Contatore Cicli Aumenta di 1 ad ogni passaggio
                CP = 0 'CP = Contatore Presenze = 0
                For S = 0 To N - 1 'Contatore Secondario
                    E = P + S 'Estrazione in Oggetto
                    If E > F Then Exit For 'Termina se non ci sono estrazioni.
                    Scrivi E & "  " & DataEstrazioneFT(E) & "  ",0,0
                    CPE = 0 'Azzera ad ogni estrazione il Contatore Presenze Estrazione
                    For Pos = 1 To 6 'Legge gli Estratti -Uno ad uno-
                        L = EstrattoFT(E,Pos) ''
                        For Q = 8 To 14 'sono i unmeri componenti la settina
                            If Numeri(Q) = L Then 'Confronto Crociato.
                                CP = CP + 1 'Conta presenze
                                CPE = CPE + 1 'Conta presenze
                                ColoreTesto 2 'Colora di rosso
                                Bold = True 'Attiva il grassetto
                            End If
                        Next
                        Scrivi Format2(L),Bold,0 '''Scrive Estratti
                        ColoreTesto 0 : Bold = False 'Disattiva il colore e grassetto
                        If Pos < 6 Then Scrivi ".",False,False 'inserisce un punto di separazione
                    Next
                    If CPE >= 2 Then 'se gli estratti risultano 2 o + di 2 allora....
                        Scrivi Space(2) & NomeSorte(CPE)'scrivi il nome della sorte .. ambo.. terno.... ecc
                    Else
                        Scrivi "" 'RiAttiva "a capo"
                    End If
                Next
                'Riepilogo Risultati
                ColoreTesto 1 : Scrivi "Ciclo N° " & FormatSpace(CC,4,True),True,False
                Scrivi Space(7),False,False
                ColoreTesto 2 : Scrivi "Presenze " & CP,True: ColoreTesto 0
                If CC > ST Then ST = CC
                If CP >= 6 Then C(CC) = C(CC) + 1 : CC = 0 'Azzera il contatore nei cicli maggiormente "positivi"
                Scrivi String(32,"-")
            Next
            ColoreTesto 1
            Scrivi "Storico" & FormatSpace(ST,6,True),True
            ColoreTesto 0
            Scrivi
            Scrivi "Target Raggiunti",True
            Scrivi "Ciclo  Volte"
            For N = 1 To 20    
                If C(N) > 0 Then Scrivi Format2(N) & " " & String(5,".") & " " & C(N)
            Next
    End Sub
cosi non funziona:confused:
 
Avevi ragione Beppignello , semplicemente avevo aggiunto un ciclo for ed evidenteme lo dovevo chiudere e quindi bastato dopo l'ultimo Next un ulteriore Next così :Next:Next per farlo girare ora vedo il modo migliore per ususruirne
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 30 gennaio 2025
    Bari
    09
    62
    01
    28
    73
    Cagliari
    50
    33
    43
    10
    29
    Firenze
    04
    63
    56
    34
    90
    Genova
    51
    20
    26
    46
    59
    Milano
    37
    78
    76
    20
    86
    Napoli
    43
    04
    45
    84
    53
    Palermo
    13
    43
    50
    67
    40
    Roma
    29
    12
    84
    71
    79
    Torino
    90
    16
    25
    76
    24
    Venezia
    26
    58
    23
    20
    40
    Nazionale
    74
    07
    54
    15
    36
    Estrazione Simbolotto
    Bari
    38
    22
    35
    26
    14
Indietro
Alto