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ì 17 luglio 2025
    Bari
    22
    33
    04
    68
    47
    Cagliari
    09
    52
    27
    21
    47
    Firenze
    05
    33
    72
    17
    08
    Genova
    76
    67
    65
    68
    45
    Milano
    75
    52
    46
    34
    22
    Napoli
    40
    23
    71
    12
    22
    Palermo
    44
    89
    39
    01
    31
    Roma
    89
    04
    05
    82
    26
    Torino
    05
    59
    85
    88
    24
    Venezia
    69
    45
    75
    44
    30
    Nazionale
    28
    85
    16
    03
    83
    Estrazione Simbolotto
    Nazionale
    39
    26
    40
    23
    24

Ultimi Messaggi

Indietro
Alto