Novità

Ma come si usano gli script in l8+?

giandy

Member
Salve a tutti vorrei capire come usare il programma l8+ ver 6.0

io ho provato ad inserire uno script ma quando vado sulla freccia che lo fa girare mi ritrovo sempre una tabella con risultato uguale a zero e non modificabile e non riesco a trovare nessuna spiegazione su come usarli

Giandy
 
questo è il listato l'ho chiamato 3 numeri


Sub main()
Dim ruote(10)
Dim numeri1(10),numeri2(10)
Dim poste(5),posta(5)
poste(2)=1

ruote(1)=1
ruote(2)=2
ruote(3)=11
k=13
ng=0
For n=7084 To EstrazioneFin
If IndiceMensile(n+1)=1 Then
a=Estratto(n,1,3):b=Estratto(n,2,3)
c=Fuori90(a+b):If c=a Or c=b Then h=Vert(c):c=h
numeri1(1)=c
numeri1(2)=a
numeri1(3)=b
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,k


Gioca n
End If
ng=0
Next
For i=1 To ng
ScriviResoconto i
Next
ScriviResoconto
End Sub


e usando il play il risultato è tutto zero e non modificabile

grazie

Giandy
 
Su spaziometria 1.2.90 funziona perfettamente e non da problemi neamche su L8+v6.1.3
Forse sbagli a schiacciare qualche pulsante o la tua versione non legge questi script. Stranissimo percheè non vedo funzioni particolari.
Ciao

Gli altri script che hai funzionano? Vedi per caso la scritta iniziale "sub main()" e finale "end sub" 2 volte?

Se non risolvi, posta una videata completa della pagina degli scriptn di L8.

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
 
non riesco ad inserire l'immagine ma nella sezione output c'e' solo una linea tratteggiata e nulla di più e nella sezione debug c'è' scritto questo


Istruzione Impostagiocata: indicata ruota non valida nel vettore delle ruote.

grazie

Giandy
 
non riesco ad inserire l'immagine DEVI IMPARARE ma nella sezione output c'e' solo una linea tratteggiata e nulla di più e nella sezione debug c'è' scritto questo


Istruzione Impostagiocata: indicata ruota non valida nel vettore delle ruote. PROVA A MODIFICARE LA SCRITTA "ruote(3)=11" RELATIVA A TUTTE CON "ruote(3)=10"
ALTRO NON SAPREI.
COMUNQUE SE INSTALLI SPAZIOMETRIA FAI PRIMA.
 
Ciao ...

ho controllato lo script e funziona sia in L8+ 6.1.34

sia ... con la vecchissima 5.2.39 per cui ti chiedo:

Quante estrazioni hai in archivio?

ovvero a quale data è aggiornato?

:) Buona Giornata



Ogni estrazione è unica ed irripetibile. (Joe91)
 
Ciao il mio L8 è il 6.0.0 e le estrazioni in archivio partono dal 08.07.1939 sino ad oggi per cui non capisco cosa possa eserre.

Ho modificato anche la ruota come ha scritto claudio ma nulla stesso errore

Non so

Comunque grazie a tutti voi per l'impegno

Giandy
 
Deve girar per forza anche se dove ho messo gli apici son righe che non servono a niente.
Probabile che tu abbia L8 un po taroccato e che non ti fa usare gli script.
Comunque gira bene anche su spaziometria.
Ciao

Sub Main()
Dim ruote(10)
Dim numeri1(10),numeri2(10)
Dim poste(5),posta(5)
poste(2)=1
ruote(1)=1
ruote(2)=2
ruote(3)=11
k=13
ng=0
For n=7084 To EstrazioneFin
If IndiceMensile(n+1)=1 Then
a=Estratto(n,1,3):b=Estratto(n,2,3)
c=Fuori90(a+b):If c=a Or c=b Then h=Vert(c):c=h
numeri1(1)=c
numeri1(2)=a
numeri1(3)=b
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,k
Gioca n
End If
'ng=0
Next
'For i=1 To ng
'ScriviResoconto i
'Next
ScriviResoconto
End Sub

metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus
 
Ciao ...

"partono dal 08.07.1939" ... potrebbe non essere sufficiente,

Comunque, ho semplificato, un pochino, lo script ...

per cui, se non ti funziona, neanche così,

probabilmente l'unica è reinstallare il programma ... e riprovare.


Codice:
Sub Main()
Dim ruote(3)
Dim numeri1(3)
Dim poste(5)
poste(2)=1
ruote(1)=1
ruote(2)=2
ruote(3)=11
k=13
For  n=EstrazioneFin-100 To EstrazioneFin-1
If IndiceMensile(n+1)=1 Then
a=Estratto(n,1,3):b=Estratto(n,2,3)
c=Fuori90(a+b):If c=a Or c=b Then h=Vert(c):c=h
numeri1(1)=c
numeri1(2)=a
numeri1(3)=b
EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,poste,k
Gioca n
End If
Next
ScriviResoconto
End Sub

:) Buona Serata a tutti.

Ogni estrazione è unica ed irripetibile. (Joe91)
 
Ho risolto......ho scaricato spaziomet
ria e li gira tutto

appena torno a casa provo lo script modificato e vi farò sapere

davvero mille grazie a tutti

Giandy
 
Ho risolto......ho scaricato spaziomet
ria e li gira tutto

appena torno a casa provo lo script modificato e vi farò sapere

davvero mille grazie a tutti

Giandy
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 11 luglio 2025
    Bari
    39
    28
    27
    01
    80
    Cagliari
    54
    79
    69
    43
    61
    Firenze
    62
    60
    86
    80
    05
    Genova
    45
    10
    42
    79
    84
    Milano
    28
    59
    23
    46
    11
    Napoli
    01
    55
    52
    50
    39
    Palermo
    75
    17
    74
    82
    54
    Roma
    38
    13
    79
    25
    44
    Torino
    68
    29
    26
    40
    06
    Venezia
    46
    84
    64
    27
    67
    Nazionale
    72
    77
    46
    61
    23
    Estrazione Simbolotto
    Nazionale
    12
    34
    36
    10
    39
Indietro
Alto