X Rubino X luigi Lottolive

imported_n/a · 21 Marzo 2011

quote:Originally posted by LuigiB

Cebino ce la fai a postare di nuovo la link del file input che hai dato a Rubino ?

Luigi
questo e il file che il mio programma genera ogni 60 secondi quindi live
queste sono le ultime 5534 estrazioni

http://www.megaupload.com/?d=OG9FDQQD

Inoltre ce un problema nel calcolo delle spese io mi trovo con 1000 previsioni con una spesa di 92 € e impossibile

Roby · 21 Marzo 2011

x cebino

precisazione da tenere in considerazione:

ci sono 2 script attualmente

1) LOTTOGOLD che usa il metodo di rilevazione
leggendo il file NumbersGBGold.txt completo come da megaupload
con il nr.estrazioni,data e ora e i 6 numeri
ma incompleto per quanto riguarda il resoconto finale
con spese,vincite,utile/perdite etc..
vengono riportati solo i successi come nr.ambate/ambi/terni/quaterne/cinquine

2) LOTTOGOLDFT che usa il metodo di rilevazione
leggendo il file NumbersGBGold.txt
ma del quale si troncano il nr.estrazione,data e ora mancano, e i 6 numeri
in compenso si può ottenere il resoconto finale dei successi
sia in quantità che in valori.

---------------------------------------------------------------------

aggiornamento allo script LOTTOGOLD
il precedente (mio)

ho fatto una variazione, del fuori36
ho fatto una variazione, inserendo come riscontri delle quaterne,cinquine unendo le 2 terzine.

Codice:

Sub Main()
	''''' ----------------------------------------------------------------------------------------------------------------
	''''' apertura Archivio NumbersGBGold.txt					LOTTO LIVEGOLD
	Dim namefile
	Dim n(6)
	Dim sFile
	ReDim aRighe(0)
	namefile = "C:\Temp\NumbersGBGold.txt"
	sFile = namefile
	LeggiRigheFileDiTesto sFile,aRighe
	'ricerca last record
	ultimo = UBound(aRighe)
	ReDim aV(0)
	Call SplitByChar(aRighe(ultimo),vbTab,aV) ' scompongo la riga ottenendo i valori separati dalle virgole in un array
	n(1) = aV(2)
	n(2) = aV(3)
	n(3) = aV(4)
	n(4) = aV(5)
	n(5) = aV(6)
	n(6) = aV(7)
	snconc = aV(2)
	' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
	'-------------------------------------------------------------------------------------------------------------------------------
	Dim asom(6)
	Dim acolpi(9999)
	storia = InputBox("Statistica Ult.Estrazione da Considerare   ",,ultimo)
	z = InputBox("Quante Estrazione vuoi esaminare? ",,50)
	v = InputBox("Somma nr.Consecutivi  2,3",,3)
	lis = InputBox("ambata=1, ambo=2, Terno=3",,2)
	co = InputBox("verifica riscontri in colpi n...",,25)
	fin = storia
	Ini = storia - z
	Iniz = Ini
	Scrivi "Rileva somme numeri  dal concorso n." & Iniz & "   al conc.n. " & fin & "    Per il LOTTO LIVEGOLD    "
	Scrivi "Somma nr. consecutività.." & v
	Scrivi "Verifica risultati n.colpi  " & co
	Scrivi "Conc.n.   01 02 03 04 05 06 ........somme......... 01 02 03 04 05 06 "
	Scrivi "______________________________________________________________________________________________________________________________________________________"
	riga = ""
	''''leggo archivio
	For ini = ini + 1 To fin
		For t = 1 To 6
			asom(t) = ""
		Next
		ReDim aV(0)
		Call SplitByChar(aRighe(ini),vbTab,aV) ' scompongo la riga ottenendo i valori separati dalle virgole in un array
		n(1) = aV(2)
		n(2) = aV(3)
		n(3) = aV(4)
		n(4) = aV(5)
		n(5) = aV(6)
		n(6) = aV(7)
		snconc = aV(1)
		riga = ""
		riga = riga & snconc & "    " & Format2(n(1)) & " " & Format2(n(2)) & " " & Format2(n(3)) & " " & Format2(n(4)) & " " & Format2(n(5)) & " " & Format2(n(6))
		If v = 2 Then
			For b = 1 To 5
				c = FuoriX(Int(n(b)) + Int(n(b + 1)),36)
				asom(b) = CLng(c)
			Next
			lim = 5
		End If
		If v = 3 Then
			For b = 1 To 4
				c = FuoriX(Int(n(b)) + Int(n(b + 1)) + Int(n(b + 2)),36)
				asom(b) =  CLng(c)
			Next
			lim = 4
		End If
		rsomme = ""
		For f = 1 To Int(lim)
			rsomme = rsomme & Format2(asom(f)) & " "
		Next
		Scrivi "___________________________________________________________________________________________________________________________________________________________"
		ColoreTesto(0)
		Scrivi riga & "....................... " & rsomme
		''''riepilogo combinazioni con somme uguali
		For r = 1 To lim
			For r2 = r + 1 To lim + 1
				If asom(r) = asom(r2) Then
					t1 = Format2(n(r))
					t2 = Format2(n(r + 1))
					If v = 3 Then
						t3 = Format2(n

LuigiB · 21 Marzo 2011

se non fosse che megaupload è lentissimo avrei gia uploadato la nuova versione che consente di inserire un numero estrazione molto piu alto fino a 2 miliardi

quindi oltre a non essere piu necessario troncare il numero ho corretto anche il calcolo della spesa ..
purtroppo la nuava versione è in viaggio verso megaupload a 10kb/s ...
comunque entro dopo cena penso la possiate scaricare

imported_n/a · 21 Marzo 2011

quote:Originally posted by LuigiB

se non fosse che megaupload è lentissimo avrei gia uploadato la nuova versione che consente di inserire un numero estrazione molto piu alto fino a 2 miliardi quindi oltre a non essere piu necessario troncare il numero ho corretto anche il calcolo della spesa ..
purtroppo la nuava versione è in viaggio verso megaupload a 10kb/s ...
comunque entro dopo cena penso la possiate scaricare

ok luigi
e quel punto rubino puo postare lo script LOTTOGOLDFT ?

LuigiB · 21 Marzo 2011

va usato lo script ultimo che ha postato cioe quello che usa
ApriBaseDatiFt , pero dovra modificarlo nel senso che non è piu necessario ricrearlo troncando il numero e in piu puo essere passato direttamente vbTab al posto della virgola come separatore.

imported_n/a · 21 Marzo 2011

quote:Originally posted by LuigiB

va usato lo script ultimo che ha postato cioe quello che usa
ApriBaseDatiFt , pero dovra modificarlo nel senso che non è piu necessario ricrearlo troncando il numero e in piu puo essere passato direttamente vbTab al posto della virgola come separatore.

capito
esattamente qua

If ApriBaseDatiFT(sFile,6,",") Then

però non mi tornano i conti
mi spieghi perche a impostato le poste cosi
in effetti sono 4 le poste: 5.85 - 40 - 345 - 3850 (Ambata - Ambo - Terno - Quaterna)
che significa quello sottolineato

aposte(1) = 2
aposte(2) = 1
aposte(3) = 1
SetPremioPagatoFT 1,1,5.85
<s>SetPremioPagatoFT 2,1,2.925</s>
SetPremioPagatoFT 3,1,1.95</u>
SetPremioPagatoFT 2,2,40.00
SetPremioPagatoFT 3,2,13.33</u>
SetPremioPagatoFT 3,3,345.00

Roby · 21 Marzo 2011

dall'help

ho capito che
SetPremioPagatoFT 1,1,5.85
SetPremioPagatoFT 2,1,2.925
SetPremioPagatoFT 3,1,1.95
SetPremioPagatoFT 2,2,40.00
SetPremioPagatoFT 3,2,13.33
SetPremioPagatoFT 3,3,345.00

setpremiopagatoFT 1nr,1ambata = premio 5.85
setpremiopagatoFT 2nr,1ambata = premio 2.925
etc....

se giochi 2 nr.cosa avviene?
spendi il doppio o vinci la metà di quello che giochi?

idem se giochi 3 nr.cosa avviene
spendi il triplo o vinci il premio diviso/3

poi
quanto vinci nel caso della quaterna?
mi manca il valore

idem per la cinquina.

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

Roby · 21 Marzo 2011

x luigi

è giusto impostarlo così, o sbaglio e devo mettere solo le poste normali

dall'help

ho capito che
SetPremioPagatoFT 1,1,5.85
SetPremioPagatoFT 2,1,2.925
SetPremioPagatoFT 3,1,1.95
SetPremioPagatoFT 2,2,40.00
SetPremioPagatoFT 3,2,13.33
SetPremioPagatoFT 3,3,345.00
SetPremioPagatoFT 4,4,3850.00

setpremiopagatoFT 1nr,1ambata = premio 5.85
setpremiopagatoFT 2nr,1ambata = premio 2.925
etc....

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

LuigiB · 21 Marzo 2011

è perfetto !! hai capito benissimo !

Roby · 21 Marzo 2011

aggiornato script LOTTOGOLDFT

nr.estrazione
data e orario
n1....n6

poste
premi
ancora qualche problemino

parzializzazione delle giocate "S" "U"
se le 3 singole (1 e 2 terzina + una sestina)
se solo le unificate (solo la sestina)

speriamo vada bene a questo punto.!

Codice:

Sub Main


'''''''''''''''''''script LOTTOGOLDFT

	Dim sFileinput
	Dim sFileoutput
	Dim sRecord
	sFileinput = "c:\Temp\NumbersGBGold.txt"
	sFileoutput = "c:\Temp\NumbersGBGold2.txt"
	Call EliminaFile(sFileoutput)
	
	nx = GetScriviFileEstrazioni(sFileoutput,sFileinput)
	
	Call Messaggio(" Elaborato : " & nx)
	
	Dim sFile
	sFile = "c:\Temp\NumbersGBGold2.txt"
	Dim n(6)
	Dim Asom(6)
	Dim aRighe(0)
	Dim aposte(5)
	''''''''''''Considera inoltre che l'ambata paga 5.85,l'ambo 40 e il terno 345 E QUATERNA 3850.
	aposte(1) = 1
	aposte(2) = 1
	aposte(3) = 1
	aposte(4) = 0
	aposte(5) = 0
	SetPremioPagatoFT 1,1,5.85
	SetPremioPagatoFT 2,1,2.925
	SetPremioPagatoFT 3,1,1.95
	SetPremioPagatoFT 2,2,40.00
	SetPremioPagatoFT 3,2,13.33
	SetPremioPagatoFT 3,3,345.00
	SetPremioPagatoFT 4,4,3850.00
	
	
	
'	' da ora in poi tutte le funzioni da utilizzare sono quelle che terminano con FT
	'	' che servono per lavorare su archivi di file di testo
	If ApriBaseDatiFT(sFile,6,",") Then
		Scrivi "_____________________________________________________________________________________________________________________________________________"
		ColoreTesto 0
		ultimo = EstrazioniArchivioFT
		storia = InputBox("Statistica Ult.Estrazione da Considerare   ",,ultimo)
		z = InputBox("Quante Estrazione vuoi esaminare? ",,450)
		v = InputBox("Somma nr.Consecutivi  2,3",,3)
		lis = InputBox("ambata=1, ambo=2, Terno=3  Quaterna=4, Cinquina=5",,2)
		SEL = InputBox("Vuoi giocare Tutte le combinazioni o solo le unificate?  S,U ",,"U")
		co = InputBox("verifica riscontri in colpi n...",,25)
		fin = storia
		Ini = storia - z
		Iniz = Ini
		Scrivi "Rileva somme numeri  dal concorso n." & Iniz & "   al conc.n. " & fin & "    Per il LOTTOGoldFT    "
		Scrivi "Quante Estrazione vuoi esaminare?.... " & z
		Scrivi "Somma nr. consecutività.." & v
		Scrivi "Verifica risultati n.colpi  " & co
		Scrivi "Conc.n.   01 02 03 04 05 06 ........somme......... 01 02 03 04 05 06 "
		Scrivi "______________________________________________________________________________________________________________________________________________________"
		ColoreTesto 1
		sRecord = "leggo L'archivio dall'estrazione " & GetInfoEstrazioneFT(Ini) & "   all'estrazione  " & GetInfoEstrazioneFT(EstrazioniArchivioFT)
		Scrivi sRecord,1
		sRecord = "si compone di " & EstrazioniArchivioFT	 & " estrazioni "
		Scrivi sRecord,1
		Scrivi "______________________________________________________________________________________________________________________________________________________"
		ColoreTesto 0
		''''leggo archivio
		For ini = ini + 1 To fin
			For t = 1 To 6
				Asom(t) = ""
			Next
			n(1) = EstrattoFT(ini,1)
			n(2) = EstrattoFT(ini,2)
			n(3) = EstrattoFT(ini,3)
			n(4) = EstrattoFT(ini,4)
			n(5) = EstrattoFT(ini,5)
			n(6) = EstrattoFT(ini,6)
			snconc = GetInfoEstrazioneFT(ini)
			riga = ""
			riga = riga & snconc & "    " & Format2(n(1)) & " " & Format2(n(2)) & " " & Format2(n(3)) & " " & Format2(n(4)) & " " & Format2(n(5)) & " " & Format2(n(6))
			If v = 2 Then
				For b = 1 To 5
					c = FuoriX(Int(n(b)) + Int(n(b + 1)),36)
					Asom(b) = CLng(c)
				Next
				lim = 5
			End If
			If v = 3 Then
				For b = 1 To 4
					c = FuoriX(Int(n(b)) + Int(n(b + 1)) + Int(n(b + 2)),36)
					Asom(b) = CLng(c)
				Next
				lim = 4
			End If
			rsomme = ""
			For f = 1 To Int(lim)
				rsomme = rsomme & Format2(Asom(f)) & " "
			Next
			Scrivi "___________________________________________________________________________________________________________________________________________________________"
			ColoreTesto(0)
			Scrivi riga & "....................... " & rsomme
			ColoreTesto 0

LuigiB · 22 Marzo 2011

Ciao Rubino , funzionano le modifiche che ho fatto ? Non ho capito se hai ancora problemi con qualcosa ...

silop2005 · 22 Marzo 2011

citato da rubino

se giochi 2 nr.cosa avviene?
spendi il doppio o vinci la metà di quello che giochi?

idem se giochi 3 nr.cosa avviene
spendi il triplo o vinci il premio diviso/3

..............................

quote:Originally posted by LuigiB

Ciao Rubino , funzionano le modifiche che ho fatto ? Non ho capito se hai ancora problemi con qualcosa ...

::::::::::::::::::::::
Secondo me, forse, Rubino ha qualche problema con i premi ....
Per Rubino,

La lotteria estera indicata da cebino dei 36 numeri, se mi ricordo bene guardando l'immagine ad inizio post,
dovrebbe essere come quella che giocavo nel 2005 sul sito inglese che si chiamava - 60seconds -
lotteria con 37 numeri (36 numeri più lo zero) ed i premi erano più o meno come la lotteria suddetta.

Le giocate che si fanno sulle lotterie estere non è come nel nostro lotto italiano,
qui da noi possiamo dividere il premio per i numeri giocati

esempio ambata 2 x 1
due numeri per la sorte di uno
premio dell'ambata o estratto semplice è € 11,23 (lordo)
per due numeri giocati vinci la metà del premio ( € 5,6) con un euro speso

esempio ambata 3 x 1
tre numeri per la sorte di uno
per tre numeri giocati vinci la terza parte del premio ( € 3,7) con un euro speso

esempio ambo con 3 numeri
per tre numeri giocati ad AMBO a ruota vinci (minimo) la terza parte del premio ( 250/3 = € 83,3) con un euro speso

nelle lotterie estere non si fa questa divisione il premio indicato è SEMPRE lo stesso mentre la spesa è moltiplicata per le combinazioni messe in gioco
esempio :

ambata 2 x 1 (due numeri per la sorte di uno)
premio dell'ambata è € 5,85
per due numeri giocati (uno vincente) vinci il premio indicato €= 5,85 con DUE euro spesi,
se sono vincenti entrambi i due numeri vinci il doppio del premio.

esempio ambo con 3 numeri
per tre numeri giocati ad AMBO (combinano 3 ambi) vinci (minimo) il premio indicato €= 40,00 con TRE euro spesi (3 ambi) se sortiscono tutti e tre numeri vinci il triplo del premio sempre con la spesa di TRE euro.

esempio ambo con 6 numeri
per SEI numeri giocati ad AMBO (combinano 15 ambi) vinci (minimo) il premio indicato €= 40,00 con QUINDICI euro spesi (15 ambi)
se sortiscono tutti e sei numeri vinci 15 volte il premio indicato (15 x 40) sempre con la spesa dei QUINDICI euro.

esempio ambo con 10 numeri

per 10 numeri giocati ad AMBO (combinano 45 ambi) vinci (minimo) il premio indicato €= 40,00 con QUARANTACINQUE euro spesi (45 ambi)

se sortiscono sei numeri dei DIECI giocati, vinci 15 volte il premio indicato (15 x 40) sempre con la spesa dei QUARANTACINQUE euro.

Quindi nel listato/programma devi mettere le poste normali per calcolare bene il prospetto del resoconto finale.
(lo script non l'ho ancora visto)

Silop

LuigiB · 22 Marzo 2011

Ah se è cosi è un bel casino ... se trovo un modo veloce per gestire questa eccezione bene senno comunque lo script è utile per verificare
l'andamento del metodo.

imported_n/a · 22 Marzo 2011

quote:Originally posted by LuigiB

Ah se è cosi è un bel casino ... se trovo un modo veloce per gestire questa eccezione bene senno comunque lo script è utile per verificare
l'andamento del metodo.

allora ragazzi vi posto una tabellina semplice semplice
con le progressioni che sto adoperando da questa mattina e facciamo

LuigiB · 22 Marzo 2011

ciao cebino non serve sapere quanto giochi ..se è come dice Silop il problema sta nel metodo con il quale il programma calcola la spesa.
Cioè da come ho capito se tu giochi 3 numeri per ambo gli ambi prodotti sono 3 e percio spendi 3 euro ... il programma attualmente non moltiplica la posta per le combinazioni possibili ...e anche il calcolo della vincita a questo punto non è adatto !

imported_n/a · 22 Marzo 2011

Silop
il concetto e quello
infatti come vedi ho postato
la tabella con le progressioni
bisogna fare in modo che quando giochi 4 numeri devi scegliere cosa giocare per ambo terno o qauterna, se giochi 5 o 6 numeri non ha senso giocare per ambo lputile lo prendi dal terno in poi.
Oggi ad esempio o beccato due concorsi in sestina 2 quaterne, ma non e ho fatte solo 1 per ogni estrazione ne ho fatto 4.
Il motivo di questo tipo di gioco e che non ti permettono di giocare l'ortogonale quindi se giochi 4 numeri devi giocare per forza quaterna, se giochi 3 numeri giochi per il terno, e se giochi 2 numeri per l'ambo.

Questo problema io sono riuscito a sorvolarlo perche mi sono fatto fare un programma che mi scompone i numeri da mettere in gioco per la sorte di mio piacimento, e me li gioca loggandomi in automatico sul loro server.

Oggi appunto giocando 6 numeri in quaterna giocavo 15 combinazioni

Spero di essere stato chiaro a Rubino, il quale ringrazio per l'ennesima volta.
Per me gia e tutto quel che ha fatto
Ovviamente e scontato anche luigi senza spaziometria oggi non saremo qua a chiacchierare
Grazie Luigi

imported_n/a · 22 Marzo 2011

quote:Originally posted by LuigiB

ciao cebino non serve sapere quanto giochi ..se è come dice Silop il problema sta nel metodo con il quale il programma calcola la spesa.
Cioè da come ho capito se tu giochi 3 numeri per ambo gli ambi prodotti sono 3 e percio spendi 3 euro ... il programma attualmente non moltiplica la posta per le combinazioni possibili ...e anche il calcolo della vincita a questo punto non è adatto !

Infatti il problema di fondo e proprio quello, non calcola l'ortogonale, cioe lo sviluppo dei 3 numeri che equivale a 3 unità

silop2005 · 22 Marzo 2011

Per Cebino,
per dare maggiori chiarimenti di come bisognava impostare
l'argomento giocate (estere) ai scripter e programmatori dovevi indicare una semplice progressione di gioco più esplicativa, come l'immagine allegata, in modo da far capire come funziona il gioco estero.

citato da cebino
Oggi appunto giocando 6 numeri in quaterna giocavo 15 combinazioni
Spero di essere stato chiaro a Rubino, il quale ringrazio per l'ennesima volta.

Ecco il piano di gioco dei 6 numeri per 15 quaterne:

Saluti
Silop

LuigiB · 22 Marzo 2011

Allora per il calcolo della spesa bisogna passare
allo script il valore presente nella colonna PUNTATA TOTALE
purtroppo il calcolo della vincita non è attualmente possibile
perche le vincite vengono calcolate con lo stesso criterio
del lotto ovvero si moltiplica il premio corrisposto
per la posta puntata.
Seguendo l'esempio di Silop non capisco quanto vincerei se invece di puntare 0,10 a quaterna
puntassi ad esempio 0.20 ...vincerei il doppio ?

imported_n/a · 22 Marzo 2011

silop2005

Lo schema che hai fatto tu
e chiaro ho per meglio dire e matematico
Forse come dice luigi il problema e che nello script non si puo impostare.
Il punto e che lo script funziona meravigliosamente, pero se si potesse avere la gestione di cassa sarebbe molto meglio in quanto puoi vedere
l'andamento giornaliero del movimento di cassa e non solo ma anche l'esposizione a cui vai incontro

Ragazzi in particolare luigi in un futuro aggiornamento di spaziometria sara fattibile tutto cio ?

grazie infinite

X Rubino X luigi Lottolive

Advanced Premium Member

Roby

Guest

LuigiB

Guest

Advanced Premium Member

LuigiB

Guest

Advanced Premium Member

Roby

Guest

Roby

Guest

LuigiB

Guest

Roby

Guest

LuigiB

Guest

Advanced Member >PLATINUM<

LuigiB

Guest

Advanced Premium Member

LuigiB

Guest

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM<

LuigiB

Guest

Advanced Premium Member