per Luigi ( Sorte " Ambetto " )

[Mike58]

Ciao Luigi, visto che ultimamente stai mettendo mano a spaziometria con i nuovi aggiornamento, non è che faresti un pensierino a gestire in qualche modo la nuova sorte di Ambetto.

basterebbe anche un qualche codice per lo spazioScript, oppure un codice per la gestione della posta cosi come avviene per esempio posta(6) = ed1 etc.

Senza impegno, chiaramente ma se ci fai un pensierino ben venga.

Ciao un saluto

Mike58

 

[LuigiB]

Ciao Mike , purtroppo credo che sia un bel casino gestirlo con le normali poste possibili nel linguaggio spazioscript...
un tipico caso dove delle specifiche date successivamente potrebbero sconvolgere un intero programma.

 

[Mike58]

Ok luigi pensaci TU... sicuramente saprai trovare la soluzione giusta, purtropppo in tanti chiedono di gestire attraverso gli script la sorte Ambetto e non è semplice anche attraverso escamotage simularla.

Ciao

 

[LuigiB]

e vedro SE posso fare qualcosa .. gestirlo con le poste come per gli altri esiti no di sicuro , semmai ipotizzo un flag nell'istruzione imposta giocata che specifichi se quella giocata è giocata pure per ambetto.
ciao

 

[LuigiB]

a proposito dato che non ho idea di come si vinca con l'ambetto e considerato che sono pigro , qualcuno in poche righe econ degli esempi me lo mostri cosi vedo come eventulmente implementarlo

 

[Roby]

Ciao Luigi, in poche parole è il +1 -1
se giochi l'ambo 10 - 20 per ambo e ambetto

si formano i seguenti ambi:

-- 10 -- **** -- 20 --
-19-21- **** -09-11-

se esce il 10 con il 19 o il 21 vinci l'ambetto, stessa cosa per il 20 con il 9 e l' 11
se esce 10 - 20 vinci il classico ambo secco
se esce l'ambo classico con uno o piu' numeri sottostanti vinci ambo e ambetto o ambetti se piu' di uno
ci sono anche le terzine, quartine etc...
ma è troppo lungo da scrivere, comunque il procedimento è lo stesso
Questo è quanto so'
Ciao !!!

 

[Roby]

la posta è di 65 euro lordi per l'ambetto...
se giochi un ambo consecutivo: 10-11 non ricordo come vengono calcolati gli ambetti

 

[Roby]

Esempi chiari

http://www.lottomaticaitalia.it/lotto/pdf/esempi_giocata_ambetto.pdf

 

[LuigiB]

grazie Black , ancora non ho letto bene lo faro nel fine settimana.
Ma quindi l'ambetto si puo giocare solo quando uno gioca un ambo ? oppure vale pure se gioco ambo su 5 numeri ?
ciao

 

[Roby]

no, puoi giocarlo anche con una terzina quartina cinquina etc...
solo che prendi meno
in terzina prendi circa 20 euro
in quartina 10
in cinquina 6
io a volte lo gioco in terzina per recuperare almeno le spese...
anche se gioco poco...

 

[Roby]

giocandolo in terzina si formano 12 ambetti
in quartina 24 ambetti
in cinquina invece si formano 40 ambetti

al posto di una cedolina ti danno un papiro

 

[LuigiB]

gestire questa nuova sorte di ambetto come le altre ovvero con il calcolo della spesa della vincita il resoconto e compagnia bella
èra davvero complicato e non avendo voglia di lavorarci cosi tanto ho optato pr l'aggiunta di una nuova funzione
VerificaAmbetto di cui posto un esempio applicabile con la nuova versione

Option Explicit
Sub Main
	
	ReDim aNumeri(3)
	aNumeri(1) = 8
	aNumeri(2) = 73
	aNumeri(3) = 65
	Dim sRetNumeri
	Dim nAmbetti
	Dim nRetVincita
	
	nAmbetti = VerificaAmbetto(aNumeri,1,8761,sRetNumeri,nRetVincita)
	
	Call Scrivi("Ambetti realizzati : " & nAmbetti)
	Call Scrivi("Con i numeri       : " & sRetNumeri)
	Call Scrivi("Vincita            : " & nRetVincita)
	
	
	
End Sub

 

[codicebinario]

Grazie LUIGGIONE MACROSOFT ,ben riletto !!!!

 

[Mike58]

Ciao Luigi intanto grazie, sicuramente utile per futuri sviluppi, solo una cosa la nRetVincita come si gestisce, perché anche in presenza di ambetto non restuisce nessun importo.
Leggendo la guida posso intuire che va allacciata al codice vincita, ma per ora le mie prove non danno esito.

Poi mi domandavo se hai avuto occasione di rivedere l'esito cinquina come ti avevo fatto notare qualche post addietro ed in più il codice Vincita va impostato al contario del suggerimento Help.

Comunque ancora grazie e un saluto.

Sub Main
	Dim anum(10),aruo(1)
	Dim sRetNumeri,nRetVincita,nAmbetti
	Call Vincita (2,5)
	anum(1) = 49
	anum(2) = 69
	anum(3) = 79
	anum(4) = 58
	anum(5) = 23
	r = 1
	aruo(1) = r
	'ScegliNumeri(anum)
	Ini = EstrazioneFin - 10
	fin = EstrazioneFin
	ReDim AT(10)
	AT(1) = " Estratti ID Estraz. "
	AT(2) = " Comb in gioco "
	AT(3) = " Esito "
	AT(4) = " Colpo "
	AT(5) = " Estratti "
	AT(6) = " Info ID Estraz. "
	AT(7) = " ambetti "
	AT(8) = " Ambetti "
	AT(9) = " Vincita "
	AT(10) = " Estrazioni "
	Call InitTabella(AT,2,,3,5)
	For idestr = Ini To fin
		Call VerificaEsitoTurbo(anum,aruo,idEstr,1,1,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
		nAmbetti = VerificaAmbetto(anum,r,idestr,sRetNumeri,nRetVincita)
		c = c + 1
		If retesito <> "" Then casi = casi + 1
		ReDim AV(10)
		AV(1) = StringaEstratti(idestr,5)
		AV(2) = StringaNumeri(anum)
		AV(3) = RetEsito
		AV(4) = c
		AV(5) = RetEstratti
		If RetEsito <> "" Then AV(6) = GetInfoEstrazione(RetIdEstr)
		AV(7) = nAmbetti
		AV(8) = sRetNumeri
		AV(9) = nRetVincita
		AV(10) = StringaEstratti(idestr,r)
		Call AddRigaTabella(AV,,,3)
		If retesito = "Cinqina" Then Call SetColoreCella(3,3,1)
	Next
	Call CreaTabella()
	Scrivi "Casi totali di gioco " & c,True,True,5,1,3
	Scrivi "Casi Positivi di esito " & casi,True,True,1,5,3
	If retEsito = "Cinqina" Then c1 = c1 + 1 ' riga non conforme
	Scrivi "Totali Cinquine...." & c1,1
End Sub

 

[LuigiB]

ciao mike no non l'ho visto manco mi ricordo di che si parlava penso che rimarràa cosi.
Devi impostare i premi nel menu configura pdel programma che ora prevede pure l'ambetto.

 

[Roby]

Ciao Luigi
Grazie !!!

 

[Mike58]

Perfetto grazie Luigi, Impostati è tutto funziona ad Ok.

Il resto non è un probelma....

Ciao

 

[LuigiB]

domanda , ma con l'ambetto si usa il fuori90 ? nel senso se gioco i numeri 2.90
che ambetto ptro fare ?
2.89 2.1
90.1 90.3

l'ambetto 2.1 è valido ? se si la nuova funzione la dovro modificare , fatemi sapere ciao

 

[Roby]

è valido Luigi... Poi ci sono varianti
ovvero se l'ambo è consecutivo, non so se l'hai già inserito, se si gioca 20-21 gli ambetti sono solo 2: 19-21 e 20-22 e vengono pagati 130 volte la posta...
Per non parlare delle terzine consecutive... Avevo inziato una tabella per gli ambetti, ma mi è passata la voglia, troppe condizioni da inserire...

 

[Mike58]

confermo quanto scritto da black, è necessario il fuori 90, oltre alla gestione dei numeri consecutivi.
Poi visto che ci sei è interessante il ritorno che da la nRetVincita, sarebbe fattibile inplementarla anche nel verificaEsito normale o creare un qualcosa di simile che oltre a determinarne il numero di vincite ritorna anche l'entità della stessa.
Sarebbe molto interessante.

Scusaci luigi, è se puoi Mille grazie.

Mike