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
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07

Ultimi Messaggi

Indietro
Alto