Novità

Script per l8, è possibile convertirlo per Spaziometria?

scodinzolo

scodinzolo

Member
Buonasera,
ho ritrovato un vecchio script per l8, trovato anni addietro in rete (MIO di Mirco), ho cercato di farlo girare in spaziometria ma mi restituisce un errore di cui allego screen.
Volevo, gentilmente, chiedere se è possibile correggerlo al fine di poterlo usare con il programma Spaziometria.
Vi ringrazio.
Buona serata


Sub main()
Dim n(15)
Dim sp(3)
Dim am(1)
Dim ab(5)
Dim ac(1)
Dim ru(2)
Dim nu(2)
Dim posta(1)
Dim poste(2)
Dim est(6)
posta(1)=1
poste(2)=1
cn=0
stp=InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ???"&_
Chr(13)&Chr(13)& "SI = 1" &Chr(13)& "NO = 0",,1)

'==========================INSERIRE LE 15 FORMULE DI 9 NUMERI TRA GLI APICI >""<
'I PRIMI TRE SARANNO LE 3 SPIE, IL 4° L'AMBATA, IL 5°-6°-7°-8°
'GLI ABBINAMENTI ED IL 9° L'ULTIMO ELEMENTO DELLA CINQUINA
n(01)="17.44.71.19.10.55.28.73.64"
n(02)="18.45.72.22.13.58.31.76.67"
n(03)="19.46.73.25.16.61.34.79.70"
n(04)="21.57.84.04.13.58.40.85.49"
n(05)="22.58.85.07.16.61.43.88.52"
n(06)="23.59.86.10.19.64.01.46.55"
n(07)="24.51.87.04.13.58.40.85.49"
n(08)="25.52.88.07.16.61.43.88.52"
n(09)="26.53.89.10.19.64.46.01.55"
n(10)="27.54.81.04.13.58.40.85.49"
n(11)="28.55.82.07.16.61.43.88.52"
n(12)="29.56.83.10.19.64.46.01.55"
n(13)="48.75.84.04.22.67.31.76.49"
n(14)="49.76.85.07.25.70.34.79.52"
n(15)="51.78.87.13.31.76.40.85.58"
'===========================================================

fin=EstrazioneFin
ini=fin-14'<----------aumentando il 100 si aumentano le estr. del controllo
For es=ini To fin
Messaggio es

For y=1 To 15
If n(y)>"" Then
Erase am: Erase ab: Erase ac
nr=n(y)
nr="0."&nr
nm=Split(nr,".")
sp(1)=CInt(nm(1))
sp(2)=CInt(nm(2))
sp(3)=CInt(nm(3))
am(1)=CInt(nm(4))
cx=0
For x=5 To 8
cx=cx+1:ab(cx)=CInt(nm(x))
Next
ac(1)=nm(9)

For r=1 To 10
For p=1 To 4
a=Estratto (es,r,p)
If a=sp(1) Or a=sp(2) Or a=sp(3) Then
For q=p+1 To 5
b=Estratto (es,r,q)
If b=sp(1) Or b=sp(2) Or b=sp(3) Then
If a=sp(1) Or b=sp(1) Then sp(1)=0
If a=sp(2) Or b=sp(2) Then sp(2)=0
If a=sp(3) Or b=sp(3) Then sp(3)=0
OrdinaMatrice sp,-1

For r1=1 To 10
If r1<>r Then
If Posizione(es,r1,sp(1))>0 Then
cc=cc+1
ab(5)=0
Scrivi
Scrivi DataEstrazione(es)&" "& Format2(a)&"-"& Format2(b)&_
" "& Left(NomeRuota (r),2)&" "& Format2(sp(1))&" "&_
Left( NomeRuota(r1),2)&" FORMULA "& Format2(y)&" "&_
Format2(am(1))&"."& StringaNumeri(ab)&"."& Format2(ac(1)),1
ru(1)=r:ru(2)=r1

'ImpostaGiocata 1,am,ru,posta,14,1
cg=1
nu(1)=am(1)
For x=1 To 4
cg=cg+1
nu(2)=ab(x)
ImpostaGiocata cg,nu,ru,poste,18,2
Next
ab(5)=ac(1)
ImpostaGiocata cg+1,ab,ru,poste,18,2

If stp=1 Then
For j=2 To 6
For z=1 To 6
ImpostaInterruzioni z,1,1
ImpostaInterruzioni z,j,2
Next
Next
End If

If cc=1 Or es>(fin-14) Then
Gioca es,,True
Else
Gioca es,True,True
End If

ce=0
For j=1 To 6
If Esito(j)=True Then est(j)=est(j)+1:ce=ce+1
Next
ColoreTesto 2
If ce=0 And es<(fin-14) Then
Scrivi String(49," ")&"ESITO NEGATIVO al "& DataEstrazione(es+14)
cn=cn+1
End If
If ce=0 And es>(fin-14) Then
Scrivi String(49," ")&"Giocata in corso"
Scrivi
End If
ColoreTesto 0

End If
End If
Next
End If
Next
End If
Next
Next
End If
Next
Next

Scrivi Chr(13)&string(90,"=")
ColoreTesto 1
For j=1 To 6
If est(j)<1 Then est(j)=0
Scrivi Format2(j)&"° Giocata esiti positi n: "&est(j),1
Next
ColoreTesto 2
Scrivi Chr(13)&"Eventi giocati : "& Format2(cc)&Chr(13)&_
"Eventi positivi : "& Format2(cc-cn)&Chr(13)&_
"Eventi negativi : "& Format2(cn),1
ColoreTesto 0
ScriviResoconto
End Sub

err.JPG
 
scodinzolo ha scritto:
Buonasera,
ho ritrovato un vecchio script per l8, trovato anni addietro in rete (MIO di Mirco), ho cercato di farlo girare in spaziometria ma mi restituisce un errore di cui allego screen.
Volevo, gentilmente, chiedere se è possibile correggerlo al fine di poterlo usare con il programma Spaziometria.
Vi ringrazio.
Buona serata


Sub main()
Dim n(15)
Dim sp(3)
Dim am(1)
Dim ab(5)
Dim ac(1)
Dim ru(2)
Dim nu(2)
Dim posta(1)
Dim poste(2)
Dim est(6)
posta(1)=1
poste(2)=1
cn=0
stp=InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ???"&_
Chr(13)&Chr(13)& "SI = 1" &Chr(13)& "NO = 0",,1)

'==========================INSERIRE LE 15 FORMULE DI 9 NUMERI TRA GLI APICI >""<
'I PRIMI TRE SARANNO LE 3 SPIE, IL 4° L'AMBATA, IL 5°-6°-7°-8°
'GLI ABBINAMENTI ED IL 9° L'ULTIMO ELEMENTO DELLA CINQUINA
n(01)="17.44.71.19.10.55.28.73.64"
n(02)="18.45.72.22.13.58.31.76.67"
n(03)="19.46.73.25.16.61.34.79.70"
n(04)="21.57.84.04.13.58.40.85.49"
n(05)="22.58.85.07.16.61.43.88.52"
n(06)="23.59.86.10.19.64.01.46.55"
n(07)="24.51.87.04.13.58.40.85.49"
n(08)="25.52.88.07.16.61.43.88.52"
n(09)="26.53.89.10.19.64.46.01.55"
n(10)="27.54.81.04.13.58.40.85.49"
n(11)="28.55.82.07.16.61.43.88.52"
n(12)="29.56.83.10.19.64.46.01.55"
n(13)="48.75.84.04.22.67.31.76.49"
n(14)="49.76.85.07.25.70.34.79.52"
n(15)="51.78.87.13.31.76.40.85.58"
'===========================================================

fin=EstrazioneFin
ini=fin-14'<----------aumentando il 100 si aumentano le estr. del controllo
For es=ini To fin
Messaggio es

For y=1 To 15
If n(y)>"" Then
Erase am: Erase ab: Erase ac
nr=n(y)
nr="0."&nr
nm=Split(nr,".")
sp(1)=CInt(nm(1))
sp(2)=CInt(nm(2))
sp(3)=CInt(nm(3))
am(1)=CInt(nm(4))
cx=0
For x=5 To 8
cx=cx+1:ab(cx)=CInt(nm(x))
Next
ac(1)=nm(9)

For r=1 To 10
For p=1 To 4
a=Estratto (es,r,p)
If a=sp(1) Or a=sp(2) Or a=sp(3) Then
For q=p+1 To 5
b=Estratto (es,r,q)
If b=sp(1) Or b=sp(2) Or b=sp(3) Then
If a=sp(1) Or b=sp(1) Then sp(1)=0
If a=sp(2) Or b=sp(2) Then sp(2)=0
If a=sp(3) Or b=sp(3) Then sp(3)=0
OrdinaMatrice sp,-1

For r1=1 To 10
If r1<>r Then
If Posizione(es,r1,sp(1))>0 Then
cc=cc+1
ab(5)=0
Scrivi
Scrivi DataEstrazione(es)&" "& Format2(a)&"-"& Format2(b)&_
" "& Left(NomeRuota (r),2)&" "& Format2(sp(1))&" "&_
Left( NomeRuota(r1),2)&" FORMULA "& Format2(y)&" "&_
Format2(am(1))&"."& StringaNumeri(ab)&"."& Format2(ac(1)),1
ru(1)=r:ru(2)=r1

'ImpostaGiocata 1,am,ru,posta,14,1
cg=1
nu(1)=am(1)
For x=1 To 4
cg=cg+1
nu(2)=ab(x)
ImpostaGiocata cg,nu,ru,poste,18,2
Next
ab(5)=ac(1)
ImpostaGiocata cg+1,ab,ru,poste,18,2

If stp=1 Then
For j=2 To 6
For z=1 To 6
ImpostaInterruzioni z,1,1
ImpostaInterruzioni z,j,2
Next
Next
End If

If cc=1 Or es>(fin-14) Then
Gioca es,,True
Else
Gioca es,True,True
End If

ce=0
For j=1 To 6
If Esito(j)=True Then est(j)=est(j)+1:ce=ce+1
Next
ColoreTesto 2
If ce=0 And es<(fin-14) Then
Scrivi String(49," ")&"ESITO NEGATIVO al "& DataEstrazione(es+14)
cn=cn+1
End If
If ce=0 And es>(fin-14) Then
Scrivi String(49," ")&"Giocata in corso"
Scrivi
End If
ColoreTesto 0

End If
End If
Next
End If
Next
End If
Next
Next
End If
Next
Next

Scrivi Chr(13)&string(90,"=")
ColoreTesto 1
For j=1 To 6
If est(j)<1 Then est(j)=0
Scrivi Format2(j)&"° Giocata esiti positi n: "&est(j),1
Next
ColoreTesto 2
Scrivi Chr(13)&"Eventi giocati : "& Format2(cc)&Chr(13)&_
"Eventi positivi : "& Format2(cc-cn)&Chr(13)&_
"Eventi negativi : "& Format2(cn),1
ColoreTesto 0
ScriviResoconto
End Sub

Vedi l'allegato 2305255
Clicca per espandere...
Ciao,
da un'occhiata veloce ci sono almeno un paio di "cose" che non tornano:
hai dimensionato "est", ma che valore prende?
Anche Esito - che non e' dimensionato - ma dal ciclo potrebbe prendere come valore max Esito(6), da dove salta fuori?
 
Ho provato lo script presente al primo messaggio e si esegue senza necessità di correzioni in L8.

Esito è una delle istruzioni necessarie allo svolgimento dello script.

Se la versione (vecchia) di L8 non riconosce valida questa istruzione,

le soluzioni possono essere due.

O cercare un L8 aggiornato con la sua licenza per attivarlo oppure clonare l'istruzione Esito,

per renderla disponibile nella versione_old di L8.

Oltre non posso essere utile perché il vecchio PC utilizzato per questa provasu macchina virtuale

non accede convenientemente ad internet e pertanto non aggiorna, scrive, riceve il necessario

per poter operare efficientemente

:)
 
joe ha scritto:
Ho provato lo script presente al primo messaggio e si esegue senza necessità di correzioni in L8.

Esito è una delle istruzioni necessarie allo svolgimento dello script.

Se la versione (vecchia) di L8 non riconosce valida questa istruzione,

le soluzioni possono essere due.

O cercare un L8 aggiornato con la sua licenza per attivarlo oppure clonare l'istruzione Esito,

per renderla disponibile nella versione_old di L8.

Oltre non posso essere utile perché il vecchio PC utilizzato per questa provasu macchina virtuale

non accede convenientemente ad internet e pertanto non aggiorna, scrive, riceve il necessario

per poter operare efficientemente

:)
Clicca per espandere...
Ciao Joe,
la richiesta di scodinzolo era di poterlo usare in SPMT; non avendo L8 ignoravo che Esito fosse un'istruzione del programma.
Cmq, ritornando alla richiesta dell'utente, l' array esito come si "riempe"?
 
Provo a descrivere cosa fa quell'istruzione

Sintassi : Esito (numero giocata)

Restituisce true se l'ultima estrazione gioca ha avuto esito positivo.

Il numerogiocata deve essere compreso tra 1 ed il massimo numero delle giocate, altrimenti restituirà False.

La giocata è positiva se almeno una delle sorti, impostate nel numero di colpi e le poste, ha avuto esito positivo.

Se lo script può effettuare giocate successive occorre impostare ad UNO il numero di colpi per la verifica dell'esito.

:)
 
druid ha scritto:
Ciao,
da un'occhiata veloce ci sono almeno un paio di "cose" che non tornano:
hai dimensionato "est", ma che valore prende?
Anche Esito - che non e' dimensionato - ma dal ciclo potrebbe prendere come valore max Esito(6), da dove salta fuori?
Clicca per espandere...
Ciao Druid,
lo script non l'ho elaborato io per ma lo trovai in rete e gira, attualmente, in l8.
Volevo solo sapere se è possibile convertirlo al fine di usarlo con Spaziometria.
Ti ringrazio per l'interessamento ma non sono pratico di l8 e non riesco a rispondere alle tue richieste.
Comunque, grazie e buona serata
 
joe ha scritto:
Provo a descrivere cosa fa quell'istruzione

Sintassi : Esito (numero giocata)

Restituisce true se l'ultima estrazione gioca ha avuto esito positivo.

Il numerogiocata deve essere compreso tra 1 ed il massimo numero delle giocate, altrimenti restituirà False.

La giocata è positiva se almeno una delle sorti, impostate nel numero di colpi e le poste, ha avuto esito positivo.

Se lo script può effettuare giocate successive occorre impostare ad UNO il numero di colpi per la verifica dell'esito.

:)
Clicca per espandere...
Grazie Joe, gentilissimo, come sempre.
Buona serata
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 17 ottobre 2026
    Bari
    11
    35
    78
    39
    36
    Cagliari
    27
    52
    13
    03
    21
    Firenze
    51
    87
    73
    53
    67
    Genova
    63
    67
    70
    01
    05
    Milano
    44
    49
    21
    22
    48
    Napoli
    32
    26
    67
    25
    35
    Palermo
    19
    32
    38
    11
    85
    Roma
    05
    74
    43
    78
    11
    Torino
    74
    66
    81
    80
    51
    Venezia
    12
    51
    63
    09
    84
    Nazionale
    59
    22
    14
    54
    12
    Estrazione Simbolotto
    08
    41
    24
    19
    42
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto