Qualche anima buona potrebbe per favore...

[IB63]

BEN TROVATI

HO UN PIACERE DA CHIEDERE A SCRIPTER MOLTO PIU' BRAVI DI ME VENGO AL DUNQUE

IN QUESTO TOPIC

http://forum.lottoced.com/f27/le-lu...i-20-quartine-dic-2011-da-un-idea-ib63-88987/

HO VISSUTO UN ESPRERIENZA UNICA IN VITA MIA STASERA NEL SENNO DEL POI HO REALIZZATO 10 AMBI A 4 NUMERI PER UN VALORE SPESA 20 UTILE LORDO 387.5 MA QUALORA TRIPLICATO PER

3 PER 11 VOLTE QUANTI I COLPI ATTESI AVREI REALIZZATO IL SUPER BOTTO.

PUR COMPRENDENDO CHE LO STILE DI GIOCO NON E' ACCETTO MI INTERESSEREBBE SAPERE IL MESE DI DICEMBRE

COSA AVREBBE RESO CONSIDERANDO TUTTE E 11 LE RUOTE... CERTO 20 € A TRIPLICO PER 11 VOLTE NON E' DA TUTTI PER CARITA' MA NEMMENO 38 € E 75

A TRIPLICO PER 11 PER 10 SAREBBE DA POCO.....

PERCHE' SE LA MENTE NON MI INGANNA E CON CALCOLATRICE ALLA MANO LA SOLA RUOTA DI ROMA MI AVREBBE RESO

2.170.05.507 NETTI.

SI NOTI POI CHE NEL TOPIC BASE INDICO CHE IL GIOCO SI INTENDE ALEATORIO ANCHE SE SOLITAMENTE USO ATTENDERE L'ULTIMA GIOCATA E RAPPORTANDO TUTTO IN TESI PER UN MAX DI 7 COLPI....

CONCLUDENDO RAGASSUOLI IL TUTTO RESTA STIMOLANTE PER ANNOTARE COME RESTA POSSIBILE SPECULARE CON UN TEAM DI PERSONE INTELLIGENTI E AMANTI DELLA SISTEMISTICA PERCHE' NON VOLENDO COSI STRAFARE BASTEREBBE UN MODICO AMBO FISSO SULLA RUOTA DEL CUORE CHE IL DATO E'
TRATTO, VI PREGO L'EUFORIA E' TANTA NON PRENDETEMI PER MATTO IN QUANTO A COLPO HO VINTO 367.5€ NETTI CHE LI VEDO COME LA SOMMA SOVRA ESPOSTA.

GRAZIE A QUANTI MI DEDICHERANNO UN PO' DEL LORO TEMPO IN QUESTA RICERCA

SOLE E GIOIA
IB63

 

[LuigiB]

a quanto pare di anime buone in questo forum ce ne sono pochine ...
Senti in pratica cosa ti servirebbe perche non nego che pure leggendo il post da te citato non ci ho capito molto ...

 

[claudio8]

Ciao Luigi

 

[LuigiB]

Ciao Cla ... tu hai capito cosa serve ad IB63 ?

 

[FRANTUR]

Ciao Luigi vedi la posta
Ciao Claudio

 

[LuigiB]

Ciao Luigi vedi la posta
Ciao Claudio

a vedere ho visto pero non è arrivato niente ... Ciao

 

[FRANTUR]

lo inviata di nuovo ciao

 

[LuigiB]

ho come l'impressione che hai l'indirizzo errato prova a controllare ..senno scrivi qui.. ciao

 

[FRANTUR]

Luigi questa è la tua risposta(Ciao Frantur , ti ringrazio molto per l'interessamento a giugno forse mi tocchera provarci.

Tti faccio in anticipo tanti auguri di buon anno !!|)

cioe lindirizzo che ho e esatto.
Ti faccio anche io i miei auguri di buon anno ciao

 

[LuigiB]

si alla fine la mail è arrivata grazie ...

 

[Roby]

a quanto pare di anime buone in questo forum ce ne sono pochine ...
Senti in pratica cosa ti servirebbe perche non nego che pure leggendo il post da te citato non ci ho capito molto ...

Buon giorno a tutti

chiedo venia se forse mi sarò espresso male
ma visto la mia mancata padronanza del linguaggio scripte abituato alla classica carta e penna, mi rende non abile in questo campo ...

provo quindi a RI-spiegarmi in parole E più semplici anche se penso aver risoltotutto con un normale foglio exe – rapportando l’intero concetto fra calcolointeso, per spesa e resa = a utili netti.

Di seguito cercherò ugualmente spiegarmi giusto come dicevo poc’anzi per renderpiù chiaro il concetto nella speranza mi perdoniate qualora ancora non fossichiaro….

Dunque

Sappiamo che giocare 16 numeri in 20 quartine per solo ambo richiede unrapporto nel puntare almeno a triplico per eventuali presunti utili fissati perun rapporto spesa 20 utile lordo 38.75 netto 18.75 IN CASO SORTA UN AMBO

Tenendo quindi in evidenza che con la sortita di

2 numeri dei 16 posti in gioco evidenzieremo 01 ambi al 100% di
3 numeri dei 16 posti in gioco 03 ambi al 100% di
4 numeri dei 16 posti in gioco 06 ambi al 100% di
5 numeri dei 16 posti in gioco 10 ambi al 100%

mi domando resta possibile effettuare uno script che mi tenga aggiornato tuttopasso passo partendo dalla realizzazione minima di un ambo ad un massimo di 10?

La domanda nasce in virtù del fatto che certamente nonpotendo giocare 11 set per una spesa pari a 220 € a triplico per un PERIODO MEDIO massimo di6/12 colpi tenendo tutto aggiornato in un apposito foglio calcolo exe o che siaSi possa conoscere in tempo reale i relativi andamenti intesi per montanti a ruotasingola.

Tutto qua…!

Nel salutare chiedo ancora venia per il fastidioarrecato e colgo occasione ringraziare un caro amico che in tempi celeri haprovveduto nell’esaudire la mia richiesta, peccato non voglia saperne dipresenziare sul forum come in rete se non da semplice navigatore.

Buon anno a tutti
Con vivi complimenti per il vostro buon operato auguro buon anno a tutti

Sole e gioia
IB63

 

[LuigiB]

cio IB se hai gia risolto non provvedo senno quello che ho capito finora consiste nel fatto
che tu abbia 16 numeri da giocare su ruota.
Che dovrebbe fare lo script , farti vedere il rendimento di questi 16 numeri all'interno si un determinato range di estrazioni sulla ruota da te scelta ?

 

[Roby]

cio ib se hai gia risolto non provvedo senno quello che ho capito finora consiste nel fatto
che tu abbia 16 numeri da giocare su ruota.
Che dovrebbe fare lo script , farti vedere il rendimento di questi 16 numeri all'interno si un determinato range di estrazioni sulla ruota da te scelta ?

sommariamente si in max un 90 estrazione o un multiplo di 9 18 27 36 45 54

grazie per la disponibilita'
ib63

 

[LuigiB]

ciao vedi n po' wse ho capito bene.
Alcune cose le devi modificare da solo nello script per esempio i numei in gioco , i colpi le poste ..
per ora è impostato con valori di default.
Lo script analizza a partire dall'ultima estrazione impostata nel range di spaziometria per un numero
di colpi da te immesso.

Option Explicit
Sub Main
	Dim sNumeri
	Dim Inizio,Fine,Ruota,Colpi,Classe,PremioPerAmbo,ImpSpesa,ImpVinto,qUsciti,qCombInGioco
	Dim sRetEsito,sRetEstratti
	Dim k,i
	Dim sRecord
	' cambiare i numeri nella seguente riga lasciando la virgola come separatore
	sNumeri = "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16"
	' cambiare la ruota nella seguente riga
	Ruota = BA_
	' cambiare i colpi di gioco nella seguente riga
	Colpi = 9
	'cambiare in questa riga il valore che indica la classe della combinazione che verra giocata
	' per esempio 4 volendo giocare in quartine
	Classe = 4
	' cambiare in questa riga il premio per ambo sulla combinazione giocata
	PremioPerAmbo = 41
	' cambiare in questa riga il numero di combinazioni in gioco per singolo colpo
	qCombInGioco = Combinazioni(16,Classe) ' 16 numeri in quartine (classe =4)
	' cambiare in queste riga i valori delle puntate per singola combinazione
	' riferita al colpo N (eventualmente aggiungere altre righe per coprire tutti i colpi)
	ReDim aPoste(Colpi)
	aPoste(1) = 1
	aPoste(2) = 1
	aPoste(3) = 1
	aPoste(4) = 1
	aPoste(5) = 1
	aPoste(6) = 1
	aPoste(7) = 1
	aPoste(8) = 1
	aPoste(9) = 1
	' da qui in poi non modificare nulla
	Inizio = EstrazioneFin
	Fine =(Inizio - 1) + Colpi
	ReDim aN(0)
	Call SplitByChar(sNumeri,",",aN)
	ReDim aNumInGioco(0)
	For k = 0 To UBound(aN)
		If isNumeroValidoLotto(aN(k)) Then
			i = i + 1
			ReDim Preserve aNumInGioco(i)
			aNumInGioco(i) = aN(k)
		End If
	Next
	Call Scrivi("Statistica sulla ruota di : " & NomeRuota(Ruota))
	Call Scrivi("Periodo                   : " & GetInfoEstrazione(Inizio) & "---->" & GetInfoEstrazione(Fine))
	Call Scrivi("Estrazioni esaminate      : " &(Fine + 1) - Inizio)
	Call Scrivi("Numeri esaminati          : " & StringaNumeri(aNumInGioco))
	Call Scrivi
	ReDim aRuote(1)
	aRuote(1) = Ruota
	i = 0
	For k = Inizio To Fine
		i = i + 1
		sRecord = "Colpo : " & FormatSpace(i,4,True) & " -- "
		sRecord = sRecord & GetInfoEstrazione(k) & " - Esito : "
		If VerificaEsito(aNumInGioco,aRuote,k,2,1,,sRetEsito,,sRetEstratti) Then
			sRecord = sRecord & sRetEsito & "[" & sRetEstratti & "]"
			qUsciti = GetQusciti(sRetEstratti)
			ImpVinto = ImpVinto +(Combinazioni(Classe,qUsciti) * PremioPerAmbo)
		End If
		Call Scrivi(sRecord)
		
		ImpSpesa = ImpSpesa +(aPoste(i)* qCombInGioco)
		
	Next
	Call Scrivi
	Call Scrivi("Spesa totale    : " & FormatSpace(ImpSpesa,12,True))
	Call Scrivi("Vincita totale  : " & FormatSpace(ImpVinto,12,True))
	Call Scrivi("Guadagno totale : " & FormatSpace(ImpVinto - ImpSpesa,12,True))
End Sub
Function GetQusciti(sEstratti)
	Dim k
	Dim q
	ReDim aV(0)
	Call SplitByChar(sEstratti," ",aV)
	For k = 0 To UBound(aV)
		If isNumeroValidoLotto(aV(k)) Then
			q = q + 1
		End If
	Next
	GetQusciti = q
End Function

 

[Roby]

Molto gentile luigi

obbligato

buon anno e grz ancora