Ma come si usano gli script in l8+?

[giandy]

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

 

[claudio8]

Posta il listato e vediamo di capirci qualcosa

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

 

[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

 

[claudio8]

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 !!!"

 

[giandy]

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

 

[claudio8]

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.

 

[Joe91]

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)

 

[giandy]

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

 

[Roby]

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

 

[Joe91]

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.

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)

 

[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

 

[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