Come impostare una progressione

[gorilla81]

Salve a tutti/e! Qualcuno sarebbe così gentile da aiutarmi ad impostare una progressione in questo script per Spaziometria?
In più qual'è il comando per far fermare il metodo al primo esito positivo?


Sub
Main()

Dim
rt(1),pt(2)

Dim
n1(8)

pt
(2) = 1


clp
= 13 'colpi di gioco

rt
(1) = 9


　

ini
= EstrazioneFin - 120

fin
= EstrazioneFin

co
= 0

For
es = ini To fin

Messaggio
(es)

If
IndiceMensile(es) = 5 Then

Scrivi
String(60,"=")

co
= co + 1

a
= Estratto(es,12,3)


　

'------------------------------ ' Lunghetta

n1
(1) = Fuori90(a + 28)

n1
(2) = Fuori90(a + 51)

n1
(3) = Fuori90(a + 74)

n1
(4) = Fuori90(a + 5)

n1
(5) = Fuori90(a + 7)

n1
(6) = Fuori90(a + 30)

n1
(7) = Fuori90(a + 53)

n1
(8) = Fuori90(a + 77)


ImpostaGiocata
2,n1,rt,pt,clp


Gioca
Es, 1

End
If

Next


ScriviResoconto


End
Sub




Ringrazio anticipatamente per la risposta!

 

[Mike58]

Ciao Gorilla, per fermare la giocata basta mettere alla fine della stringa imposta giocata il ,2 e blocca la giocata all'esito del ambo.
Per la progressione vedi e leggi il listato.

Ciao

Sub Main()
 Dim rt(1),pt(2),n1(8)
 Dim Importi(5,10) ' progressione 1 numero = ambata-ambo-terno-quat-cinq. 2 numero identifica max giocate
 pt(2) = 1
 clp = 10 'colpi di gioco
 rt(1) = 9
 '---------- imposta progressione ----------
 Importi(2,1) = 5 ' 2 = ambo x 1 giocata
 Importi(2,2) = 6 ' 2 = ambo x 2 giocata
 Importi(2,3) = 7 ' etc.
 Importi(2,4) = 8
 Importi(2,5) = 9
 Importi(2,6) = 10
 Importi(2,7) = 11
 Importi(2,8) = 12
 Importi(2,9) = 13
 Importi(2,10) = 14
 '----------- fine progessione --------------
 ini = EstrazioneFin - 120
 fin = EstrazioneFin
 co = 0
 For es = ini To fin
  Messaggio(es)
  Call AvanzamentoElab(Ini,fin,es)
  If IndiceMensile(es) = 5 Then
   Scrivi String(60,"=")
   co = co + 1
   a = Estratto(es,12,3)
   '------------------------------ ' Lunghetta
   n1(1) = Fuori90(a + 28)
   n1(2) = Fuori90(a + 51)
   n1(3) = Fuori90(a + 74)
   n1(4) = Fuori90(a + 5)
   n1(5) = Fuori90(a + 7)
   n1(6) = Fuori90(a + 30)
   n1(7) = Fuori90(a + 53)
   n1(8) = Fuori90(a + 77)
   ImpostaGiocata 1,n1,rt,pt,clp,2 ' giocata interrotta ad esito ambo
   ImpostaProgressione 1,Importi
   Gioca Es,,,1
   Scrivi " Spesa giocata..... " & GetSpesa(True)
   Scrivi " Totale vincita....." & GetVincita(True)
   Scrivi " Totale utile......." & GetGuadagno(True)
  End If
 Next
 ScriviResoconto
End Sub

 

[gorilla81]

Grazie Mike! Ma si blocca ai comandi:
Scrivi " Spesa giocata..... " & GetSpesa(True)
Scrivi " Totale vincita....." & GetVincita(True)
Scrivi " Totale utile......." & GetGuadagno(True)

Cosa potrebbe essere?

 

[gorilla81]

Grazie Mike! Ma si blocca ai comandi:
Scrivi " Spesa giocata..... " & GetSpesa(True)
Scrivi " Totale vincita....." & GetVincita(True)
Scrivi " Totale utile......." & GetGuadagno(True)

Cosa potrebbe essere?e tutti

 

[Joe91]

A me funziona ...

... l'errore ... in quelle linee, lascia supporre, che esso non sia stato eseguito con Spaziometria 1.3.75

come invece pare di intendere dal primo messaggio.

"Qualcuno sarebbe così gentile da aiutarmi ad impostare una progressione in questo script per Spaziometria?"

 

[Mike58]

Ciao Gorilla, il listato con quelle linee di codice lo legge solo spaziometria ed è perfettamente funzionante.
Riprova a copiarlo ed incollarlo nel modo corretto oppure spunta i codici in oggetto se usi altro programma.
Vedrai che tutto funziona.

Ciao e un grazie e un saluto a joe per l'intervento.

 

[gorilla81]

Quindi il mio errore sta nell'utilizzare Spaziometria 1.3.17? Mi aggiorno subito!

 

[gorilla81]

Ho aggiornato il programma ma adesso quando lancio lo script mi viene fuori il messaggio "6-overflow"

Ho notato anche che nel risultato mi da vincita 0, anche nei casi vincenti.

 

[Mike58]

Ciao Gorilla, vedo solo adesso il tuo quesito, a me lo script non va in overflow e tutto funziona ed elabora in pochi secondi.
2 possono essere le cause una aggiornare il programma spaziometria all'ultima versione 1.3.75 e l'altra fare una progressione adeguata in modo da non far fare al calcolo dello script progressioni e vincite fuori dai range utili.(questa potrebbe essere una causa di overflow).

Ciao riprova a controllare anche gli aggiormanti delle estrazioni.

 

[Joe91]

Buon giorno a tutti,

mi permetto ancora di intervenire, affermando che secondo me, è un problema di programma, e non di script.

Forse, l'aggiornamento da una versione così vecchia, in cui le istruzioni non erano riconosciute nemmeno da Spaziometria,

(vedi icona allegata da Gorilla) potrebbe non funzionare se no dopo una "buona" installazione del programma

"pulita" e ben funzionante. Se invece le istruzioni (queste istruzioni) non sono poi cos' importanti ...

(almeno provvisoriamente) provare a cancellarle e verificare se senza queste, lo script ... "gira" correttamente. come dice Mike.

Cordiali saluti.

 

[gorilla81]

Anche senza quelle informazioni va in overflow, è un problema che si verifica con qualsiasi script che inserisco. Adesso disinstallo il programma e poi vi faccio sapere! Grazie per l'interessamento che state dimostrando!

 

[gorilla81]

Tutto rosolto!!! Grazie mille!

 

[Joe91]