Se possibile uno script x salvo50 : Metodo " GLI ZERATI" di Zannella Pascquale

Matematico · 5 Novembre 2018

Se possibile uno script x salvo50 : Metodo " GLI ZERATI" di Zannella Pascquale

Ciao a tutti, questo è un metodo di Zannella Pascquale , non sàò se è già stato fatto il listato ...mi farebbe piacere poterlo testare a vantaggio di tutti i forumini anche

Se possibile sarebbe utile un imput box x inserire a scelta gli zerati voluti grazie 1000.
[TABLE="border: 1"]
[TR]
[TD="width: 182, bgcolor: #A8F99F, align: center"]

GLI ZERATI

[/TD]
[/TR]
[/TABLE]

La procedura di che trattasi è applicabile, in una qualsiasi estrazione, ogni qualvolta si rileva in analoga posizione e su due ruote - preferibilmente consecutive - la presenza di due differenti numeri zerati.

Nel caso in cui non si rilevassero due zerati su ruote adiacenti si potranno considerare anche elementi estratti su compartimenti non consecutivi.

Riscontrata la presenza di due elementi aventi le caratteristiche innanzi citate, per formulare la previsione si procederà nel seguente modo:

abbinare, secondo l’ordine di sortita, le figure dei due numeri zerati : otterrete così il pronostico di ambata; il vertibile dello stesso rappresenterà l’eventuale ambata di recupero spesa.

Ricavato il pronostico d’ambata si potrà scommettere anche per l’esito di ambo e terno, procedendo secondo le seguenti modalità:

calcolare la differenza aritmetica intercorrente tra il fisso 91 e lo zerato rilevato sulla prima ruota: otterrete così un primo numero che convenzionalmente definiamo "NUMERO CHIAVE A";

calcolare la differenza aritmetica intercorrente tra il fisso 91 e lo zerato rilevato sulla seconda ruota: otterrete così un secondo numero che convenzionalmente definiamo "NUMERO CHIAVE B";

Per le sorti di ambo e terno si giocherà una quartina costituita dal numero ambata, dal vertibile dello stesso e dai due elementi denominati A e B.

Tale quartina andrà scommessa, con delle appropriate progressioni, sulle due ruote di riferimento e per recupero su tutte.

Al fine di facilitarvi una sollecita comprensione della teoria esposta, passo ad illustrarvi degli esempi pratici reali.

ESTRAZIONE DEL 26/07/2000

[TABLE="border: 1"]
[TR]
[TD="align: left"]SU GENOVA SORTIRONO[/TD]
[TD="align: left"]79[/TD]
[TD="align: left"]69[/TD]
[TD="align: left"]74[/TD]
[TD="align: left"]80[/TD]
[TD="align: left"]12[/TD]
[/TR]
[TR]
[TD="align: left"]SU MILANO SORTIRONO[/TD]
[TD="align: left"]53[/TD]
[TD="align: left"]58[/TD]
[TD="align: left"]54[/TD]
[TD="align: left"]20[/TD]
[TD="align: left"]39[/TD]
[/TR]
[/TABLE]

Sui compartimenti sopra indicati, in quarta posizione, si rilevò la presenza degli zerati 80 e 20

Tali estratti, come da spiegazioni, presentavano le caratteristiche idonee per redigere il pronostico.

Quindi:

91 – 80 = 11

91 – 20 = 71

abbinamento figura 8 con quella del 2 = 82 (ambata)

Completate le operazioni sopra evidenziate, scaturì il seguente pronostico:

ambata 82 da giocarsi su Genova e Milano; quartina 82-28-11-71 da scommettere per ambo e terno su Genova Milano e tutte.

L'esito di tale previsione fu il seguente:

al 2° colpo di gioco su Genova sortì l’ambata 82 e l’ambo 82-71 !!

ALTRO ESEMPIO

ESTRAZIONE DEL 02/09/2000

[TABLE="border: 1"]
[TR]
[TD="align: left"]SU FIRENZE SORTIRONO[/TD]
[TD="align: left"]57[/TD]
[TD="align: left"]29[/TD]
[TD="align: left"]77[/TD]
[TD="align: left"]60[/TD]
[TD="align: left"]55[/TD]
[/TR]
[TR]
[TD="align: left"]SU ROMA SORTIRONO[/TD]
[TD="align: left"]44[/TD]
[TD="align: left"]57[/TD]
[TD="align: left"]18[/TD]
[TD="align: left"]40[/TD]
[TD="align: left"]82[/TD]
[/TR]
[/TABLE]

Gli elementi rilevati in quarta posizione avevano i requisiti richiesti.

Si procedette, pertanto, operando secondo i criteri già messi in evidenza con il precedente caso giocabile, alla formulazione della previsione.

91 – 60 = 31

91 – 40 = 51

64 * (abbinamento figure del 60 e 40)

Eseguite le operazioni sopra indicate, la previsione risultò essere composta da:

ambata 64 da giocarsi su Firenze e Roma;

quartina 64-46-31-51 da scommettere per l’esito di ambo e terno sulle ruote di riferimento ed a tutte.

L'esito della suddetta previsione fu strepitoso!

Al 1° colpo di gioco, infatti, su Firenze sortì l’ambata 64 mentre su Roma sortì, oltre all’ambata 64, anche l’ambo 64- 31

franca46 · 5 Novembre 2018

ciao Matematico , se può esserti utile ho questo , ma non ruote consecutive

Codice:

'Zerati su 2rt isotopi in due ruote qualsiasi
Sub main()
Dim rt(2),ru(1)
Dim nu(2),nu1(5)
Dim posta(1),poste(3)
posta(1)=1
poste(2)=1 : poste(3)=1
clp=12 'colpi di gioco

ini=EstrazioneFin -100
fin=EstrazioneFin
co=0
For es=ini To fin
 Messaggio es
 For r=1 To 10
    rt(1)=r
    For p=1 To 5
       a=Estratto (es,r,p)
       If Cadenza (a)=0 Then
          For rr=r+1 To 11
          If rr=11 Then rr=12
          rt(2)=rr
          b=Estratto (es,rr,p)
                          If Cadenza (b)=0 Then
             co=co+1
Scrivi String (55,"=")&" Caso n°"& co
Scrivi DataEstrazione (es)&"  "& SiglaRuota (r)&"  "& StringaEstratti (es,r)&"  Zerato "&a&" in pos."&p
Scrivi DataEstrazione (es)&"  "& SiglaRuota (rr)&"  "& StringaEstratti (es,rr)&"  Zerato "&b&" in pos."&p

             nu(1)=Figura(a)&Figura(b)
             nu(2)=Vert (nu(1))
             ImpostaGiocata 1,nu,rt,posta,clp
             nu1(1)=nu(1)
             nu1(2)=nu(2)
             nu1(3)=91-(a)
             nu1(4)=91-(b)

             ImpostaGiocata 2,nu1,rt,poste,clp
             ru(1)=11
             ImpostaGiocata 3,nu1,ru,poste,clp

             Gioca es

                          End If
                       Next
       End If
    Next
 Next
Next
ScriviResoconto
End Sub

buon pomeriggio

Matematico · 5 Novembre 2018

Grazie 1000 franca46 , và benissimo

Buona serata

claudio8 · 7 Novembre 2018

Il listato considera anche le ruote consecutive.

Con questa modifica ( inserire riga in rosso dopo "co = co + 1" )

If Cadenza(b) = 0 Then
co = co + 1
posizione e riga da inserire ---> If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55,"=") & " Attenzione... ruote consecutive",,,3,2
Scrivi String(55,"=") & " Caso n°" & co

evidenzierà i casi di ruote adiacenti compreso Ve con Naz.

un saluto

Matematico · 12 Novembre 2018

Grazie 1000 claudio8 , hai ragione perfetto!

cavaleri · 13 Novembre 2018

claudio8;n2138691 ha scritto:
Il listato considera anche le ruote consecutive.

Con questa modifica ( inserire riga in rosso dopo "co = co + 1" )

If Cadenza(b) = 0 Then
co = co + 1
posizione e riga da inserire ---> If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55,"=") & " Attenzione... ruote consecutive",,,3,2
Scrivi String(55,"=") & " Caso n°" & co

evidenzierà i casi di ruote adiacenti compreso Ve con Naz.

un saluto

Scusami, possiamo avere il listato completo, fatto da voi; perchè a me dà errore.
Grazie

cavaleri · 13 Novembre 2018

claudio8;n2138691 ha scritto:
Il listato considera anche le ruote consecutive.

Con questa modifica ( inserire riga in rosso dopo "co = co + 1" )

If Cadenza(b) = 0 Then
co = co + 1
posizione e riga da inserire ---> If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55,"=") & " Attenzione... ruote consecutive",,,3,2
Scrivi String(55,"=") & " Caso n°" & co

evidenzierà i casi di ruote adiacenti compreso Ve con Naz.

un saluto

Scusami, possiamo avere il listato completo, fatto da voi; perchè a me dà errore.
Grazie

claudio8 · 13 Novembre 2018

cavaleri;n2139361 ha scritto:
Scusami, possiamo avere il listato completo, fatto da voi; perchè a me dà errore.
Grazie

Posta pure il listato che vediamo dove ti da errore.
ciao

cavaleri · 13 Novembre 2018

claudio8;n2139433 ha scritto:
Posta pure il listato che vediamo dove ti da errore.
ciao

OK! eccolo:
'Zerati su 2rt isotopi in due ruote qualsiasi
Sub main()
Dim rt(2),ru(1)
Dim nu(2),nu1(5)
Dim posta(1),poste(3)
posta(1)=1
poste(2)=1 : poste(3)=1
clp=12 'colpi di gioco

ini=EstrazioneFin -100
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio es
For r=1 To 10
rt(1)=r
For p=1 To 5
a=Estratto (es,r,p)
If Cadenza (a)=0 Then
For rr=r+1 To 11
If rr=11 Then rr=12
rt(2)=rr
b=Estratto (es,rr,p)
If Cadenza (b)=0 Then
co=co+1
If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55,"=") & "
Attenzione... ruote consecutive",,,3,2
Scrivi String(55,"=") & " Caso n°" & co
Scrivi String (55,"=")&" Caso n°"& co
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" Zerato "&a&" in pos."&p
Scrivi DataEstrazione (es)&" "& SiglaRuota (rr)&" "& StringaEstratti (es,rr)&" Zerato "&b&" in pos."&p

nu(1)=Figura(a)&Figura(b)
nu(2)=Vert (nu(1))
ImpostaGiocata 1,nu,rt,posta,clp
nu1(1)=nu(1)
nu1(2)=nu(2)
nu1(3)=91-(a)
nu1(4)=91-(b)

ImpostaGiocata 2,nu1,rt,poste,clp
ru(1)=11
ImpostaGiocata 3,nu1,ru,poste,clp

Gioca es

End If
Next
End If
Next
Next
Next
ScriviResoconto
End Sub
Errore 1033: Costante String senza terminazione (riga 27)

claudio8 · 13 Novembre 2018

x Cavalieri
- La riga in rosso nel mio post di specifica/modifica (#4) va inserita in unica riga, senza dividerla.
If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55,"=") & " Attenzione... ruote consecutive",,,3,2
- la riga ---> Scrivi String(55,"=") & " Caso n°" & co <----- è scritta 2 volte e ti uscirà in uotput 2 volte.
ciao, se hai ancora problemi, chiedi.
Claudio

cavaleri · 14 Novembre 2018

claudio8;n2139442 ha scritto:
x Cavalieri
- La riga in rosso nel mio post di specifica/modifica (#4) va inserita in unica riga, senza dividerla.
If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55,"=") & " Attenzione... ruote consecutive",,,3,2
- la riga ---> Scrivi String(55,"=") & " Caso n°" & co <----- è scritta 2 volte e ti uscirà in uotput 2 volte.
ciao, se hai ancora problemi, chiedi.
Claudio

Fatto! mi dà: "Errore 450: Numero errato di argomenti o assegnazione di proprietà non valida: 'Scrivi' (riga 27)

claudio8 · 14 Novembre 2018

Cavalieri,
probabilmente hai fatto qualche errore nel rifare l'inserimento.
Ho preso il lo script postato date te con l'errore ed ho riportato il testo : Attenzione... ruote consecutive",,,3,2
dopo le virgolette della riga precednte ripristinando l'integrità della riga specificata nel post #4 .
If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55," = ") & " Attenzione... ruote consecutive",,,3,2
Funziona correttamente.

eccoti il costrutto con una modifica suiparametri di gioca per poter visionare anche gli estratti delle estrazioni di gioco

Codice:

'Zerati su 2rt isotopi in due ruote qualsiasi
Sub Main()
     Dim rt(2),ru(1)
     Dim nu(2),nu1(5)
     Dim posta(1),poste(3)
     posta(1) = 1
     poste(2) = 1 : poste(3) = 1
     clp = 12 'colpi di gioco
     ini = EstrazioneFin - 20
     fin = EstrazioneFin
     co = 0
     For es = ini To fin
          Messaggio es
          For r = 1 To 10
               rt(1) = r
               For p = 1 To 5
                    a = Estratto(es,r,p)
                    If Cadenza(a) = 0 Then
                         For rr = r + 1 To 11
                              If rr = 11 Then rr = 12
                              rt(2) = rr
                              b = Estratto(es,rr,p)
                              If Cadenza(b) = 0 Then
                                   co = co + 1
                                   If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55," = ") & " Attenzione... ruote consecutive",,,3,2
                                   Scrivi String(55,"=") & " Caso n°" & co
                                   Scrivi String(55,"=") & " Caso n°" & co ' questa riga ripete la scrittura
                                   Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Zerato " & a & " in pos." & p
                                   Scrivi DataEstrazione(es) & " " & SiglaRuota(rr) & " " & StringaEstratti(es,rr) & " Zerato " & b & " in pos." & p
                                   nu(1) = Figura(a) & Figura(b)
                                   nu(2) = Vert(nu(1))
                                   ImpostaGiocata 1,nu,rt,posta,clp
                                   nu1(1) = nu(1)
                                   nu1(2) = nu(2)
                                   nu1(3) = 91 -(a)
                                   nu1(4) = 91 -(b)
                                   ImpostaGiocata 2,nu1,rt,poste,clp
                                   ru(1) = 11
                                   ImpostaGiocata 3,nu1,ru,poste,clp
                                   Gioca es, False,False,1
                              End If
                         Next
                    End If
               Next
          Next
     Next
     ScriviResoconto
End Sub

un saluto

cavaleri · 14 Novembre 2018

claudio8;n2139547 ha scritto:
Cavalieri,
probabilmente hai fatto qualche errore nel rifare l'inserimento.
Ho preso il lo script postato date te con l'errore ed ho riportato il testo : Attenzione... ruote consecutive",,,3,2
dopo le virgolette della riga precednte ripristinando l'integrità della riga specificata nel post #4 .
If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55," = ") & " Attenzione... ruote consecutive",,,3,2
Funziona correttamente.

eccoti il costrutto con una modifica suiparametri di gioca per poter visionare anche gli estratti delle estrazioni di gioco

Codice:

'Zerati su 2rt isotopi in due ruote qualsiasi Sub Main() Dim rt(2),ru(1) Dim nu(2),nu1(5) Dim posta(1),poste(3) posta(1) = 1 poste(2) = 1 : poste(3) = 1 clp = 12 'colpi di gioco ini = EstrazioneFin - 20 fin = EstrazioneFin co = 0 For es = ini To fin Messaggio es For r = 1 To 10 rt(1) = r For p = 1 To 5 a = Estratto(es,r,p) If Cadenza(a) = 0 Then For rr = r + 1 To 11 If rr = 11 Then rr = 12 rt(2) = rr b = Estratto(es,rr,p) If Cadenza(b) = 0 Then co = co + 1 If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55," = ") & " Attenzione... ruote consecutive",,,3,2 Scrivi String(55,"=") & " Caso n°" & co Scrivi String(55,"=") & " Caso n°" & co ' questa riga ripete la scrittura Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Zerato " & a & " in pos." & p Scrivi DataEstrazione(es) & " " & SiglaRuota(rr) & " " & StringaEstratti(es,rr) & " Zerato " & b & " in pos." & p nu(1) = Figura(a) & Figura(b) nu(2) = Vert(nu(1)) ImpostaGiocata 1,nu,rt,posta,clp nu1(1) = nu(1) nu1(2) = nu(2) nu1(3) = 91 -(a) nu1(4) = 91 -(b) ImpostaGiocata 2,nu1,rt,poste,clp ru(1) = 11 ImpostaGiocata 3,nu1,ru,poste,clp Gioca es, False,False,1 End If Next End If Next Next ScriviResoconto End Sub

un saluto

Tu sei molto gentile, e mi dispiace farti perdere tempo.....
Ma, mi dà sempre lo stesso errore (che sia dovuto al fatto che uso L8*?), alla stessa riga Errore 450, ecc. ecc.

claudio8 · 14 Novembre 2018

Caro Cavaleri ( stavolta l'ho scritto bene)
mi verrebbe da tirarti ..... scherzo...
Probabilmente è così. Con L8 non posso aiutarti, e non saprei cosa modificare, ma posso dirti che molte funzioni sono diverse da Spaziometria per cui o chiedi aiuto a qualcuno che lo usa o installa Spaziometria.
Ciao

cavaleri · 15 Novembre 2018

claudio8;n2139607 ha scritto:
Caro Cavaleri ( stavolta l'ho scritto bene)
mi verrebbe da tirarti ..... scherzo...
Probabilmente è così. Con L8 non posso aiutarti, e non saprei cosa modificare, ma posso dirti che molte funzioni sono diverse da Spaziometria per cui o chiedi aiuto a qualcuno che lo usa o installa Spaziometria.
Ciao

Grazie, comunque, per la tua disponibilità.

joe · 15 Novembre 2018

claudio8;n2139607 ha scritto:
Caro Cavaleri ( stavolta l'ho scritto bene)
mi verrebbe da tirarti ..... scherzo...
Probabilmente è così. Con L8 non posso aiutarti, e non saprei cosa modificare, ma posso dirti che molte funzioni sono diverse da Spaziometria per cui o chiedi aiuto a qualcuno che lo usa o installa Spaziometria.
Ciao

Scritto bene ...si

ma ... l'hai incollato male.

Nello script presente al messaggio #13

manca il next a chiudere il ciclo for con cui si esplorano le estrazioni.

Riguardo la compatibilità, le istruzioni che mi pare di vedere

non eseguibili sono lo "Scrivi" e "Gioca"... con le loro "troppe" opzioni ...

che sono comunque facilmente eliminabili.

claudio8 · 16 Novembre 2018

joe;n2139724 ha scritto:
Scritto bene ...si

ma ... l'hai incollato male.

Nello script presente al messaggio #13

manca il next a chiudere il ciclo for con cui si esplorano le estrazioni.

Riguardo la compatibilità, le istruzioni che mi pare di vedere

non eseguibili sono lo "Scrivi" e "Gioca"... con le loro "troppe" opzioni ...

che sono comunque facilmente eliminabili.

Joe, stai mandando a me questo messaggio?

cavaleri · 17 Novembre 2018

joe;n2139724 ha scritto:
Scritto bene ...si

ma ... l'hai incollato male.

Nello script presente al messaggio #13

manca il next a chiudere il ciclo for con cui si esplorano le estrazioni.

Riguardo la compatibilità, le istruzioni che mi pare di vedere

non eseguibili sono lo "Scrivi" e "Gioca"... con le loro "troppe" opzioni ...

che sono comunque facilmente eliminabili.

Allora, possiamo provare a modificare questo script, in modo che vada bene anche per L8+?
Grazie a tutti

joe · 17 Novembre 2018

claudio8;n2139931 ha scritto:
Joe, stai mandando a me questo messaggio?

Si.

questo script, copiato, in questo momento dal messaggio #13

Codice:

'Zerati su 2rt isotopi in due ruote qualsiasi
Sub Main()
Dim rt(2),ru(1)
Dim nu(2),nu1(5)
Dim posta(1),poste(3)
posta(1) = 1
poste(2) = 1 : poste(3) = 1
clp = 12 'colpi di gioco
ini = EstrazioneFin - 20
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
For r = 1 To 10
rt(1) = r
For p = 1 To 5
a = Estratto(es,r,p)
If Cadenza(a) = 0 Then
For rr = r + 1 To 11
If rr = 11 Then rr = 12
rt(2) = rr
b = Estratto(es,rr,p)
If Cadenza(b) = 0 Then
co = co + 1
If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55," = ") & " Attenzione... ruote consecutive",,,3,2
Scrivi String(55,"=") & " Caso n°" & co
Scrivi String(55,"=") & " Caso n°" & co ' questa riga ripete la scrittura
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Zerato " & a & " in pos." & p
Scrivi DataEstrazione(es) & " " & SiglaRuota(rr) & " " & StringaEstratti(es,rr) & " Zerato " & b & " in pos." & p
nu(1) = Figura(a) & Figura(b)
nu(2) = Vert(nu(1))
ImpostaGiocata 1,nu,rt,posta,clp
nu1(1) = nu(1)
nu1(2) = nu(2)
nu1(3) = 91 -(a)
nu1(4) = 91 -(b)
ImpostaGiocata 2,nu1,rt,poste,clp
ru(1) = 11
ImpostaGiocata 3,nu1,ru,poste,clp
Gioca es, False,False,1
End If
Next
End If
Next
Next
ScriviResoconto
End Sub

Non funziona perchè manca il "Next" a chiudere il ciclo "For es = ini To Fin"

Poi ... per cavaleri ... non funziona in L8 perchè L8 non prevede,

così tanti parametri per l'istruzione "Scrivi" e per l'istruzione "Gioca".

Dunque bisogna eliminare quelli che rendono incompatibile l'esecuzione in L8.

cavaleri · 17 Novembre 2018

joe;n2139956 ha scritto:

Si.

questo script, copiato, in questo momento dal messaggio #13

Codice:

'Zerati su 2rt isotopi in due ruote qualsiasi
Sub Main()
Dim rt(2),ru(1)
Dim nu(2),nu1(5)
Dim posta(1),poste(3)
posta(1) = 1
poste(2) = 1 : poste(3) = 1
clp = 12 'colpi di gioco
ini = EstrazioneFin - 20
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
For r = 1 To 10
rt(1) = r
For p = 1 To 5
a = Estratto(es,r,p)
If Cadenza(a) = 0 Then
For rr = r + 1 To 11
If rr = 11 Then rr = 12
rt(2) = rr
b = Estratto(es,rr,p)
If Cadenza(b) = 0 Then
co = co + 1
If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55," = ") & " Attenzione... ruote consecutive",,,3,2
Scrivi String(55,"=") & " Caso n°" & co
Scrivi String(55,"=") & " Caso n°" & co ' questa riga ripete la scrittura
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Zerato " & a & " in pos." & p
Scrivi DataEstrazione(es) & " " & SiglaRuota(rr) & " " & StringaEstratti(es,rr) & " Zerato " & b & " in pos." & p
nu(1) = Figura(a) & Figura(b)
nu(2) = Vert(nu(1))
ImpostaGiocata 1,nu,rt,posta,clp
nu1(1) = nu(1)
nu1(2) = nu(2)
nu1(3) = 91 -(a)
nu1(4) = 91 -(b)
ImpostaGiocata 2,nu1,rt,poste,clp
ru(1) = 11
ImpostaGiocata 3,nu1,ru,poste,clp
Gioca es, False,False,1
End If
Next
End If
Next
Next
ScriviResoconto
End Sub

Non funziona perchè manca il "Next" a chiudere il ciclo "For es = ini To Fin"

Poi ... per cavaleri ... non funziona in L8 perchè L8 non prevede,

così tanti parametri per l'istruzione "Scrivi" e per l'istruzione "Gioca".

Dunque bisogna eliminare quelli che rendono incompatibile l'esecuzione in L8.

.... e non lo possiamo rendere idoneo per L8+???
Grazie!

Se possibile uno script x salvo50 : Metodo " GLI ZERATI" di Zannella Pascquale

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Super Member >GOLD<

Super Member >GOLD<

Premium Member

Super Member >GOLD<

Premium Member

Super Member >GOLD<

Premium Member

Super Member >GOLD<

Premium Member

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Premium Member

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<