x rubino ultima modifica

[keeper]

ciao rubino avrei gentilmente bisogno di uno script con queste caratteristiche
sul file numbersGBgold.txt che hai già in possesso occorre ricercare:
nei 6 numeri estratti di due estrazioni consecutive il numero ripetuto
es. 7 14 25 36 4 9
14 8 31 32 8 5
num. rip 14
di questo numero mi occorre fare il vertibile per cui diventa 41
dobbiamo sottrarre il fisso 36 quindi avremo 5 che diventerà il capogioco
al capogioco 5 si aggiungeranno le cadenze del numero ripetuto
es. 5 - 4 5-14 5-24 5-34
poi mi occorrerebbe il riepilogo con grafico per elaborare casi vincenti e negativi spesa ecc..
giocando i 4 ambi per max 10 colpi.grazie

 

[keeper]

poi la perdita di luigi ci ha rattristato ma cmq restano amici come elephantbig claudio8 fillotto esselotto absul salvo57 rubino cebino che ci visona spesso tutti pronti a condividere studi esperienza capacità.concludo dicendo chi vivrà vedrà abbi fede

 

[elephantbig]

quote:Originally posted by keeper

poi la perdita di luigi ci ha rattristato ma cmq restano amici come elephantbig claudio8 fillotto esselotto absul salvo57 rubino cebino che ci visona spesso tutti pronti a condividere studi esperienza capacità.concludo dicendo chi vivrà vedrà abbi fede

Caro Keeper ,credo che il buon Rubino abbia ragione.
Non avere Luigi nel forum e come se in una reazione chimica togli il catalizzatore.
Senza quello non c'è reazione.
Sulle capacità , se ci sono ,non sempre si sono manifestate.
Da quando conosco questo forum non ho mai visto nessuno di questi dedicare cosi tanto tempo,pazienza,intelligenza,intuito,creatività,capacità di ascolto senza mai chiedere NULLA.
Di contro ho visto tanti chiedere tanto e non dare NULLA.
Dimenticavo: nel nostro bel pianeta la forma parassitaria è forse una delle piu efficienti.
Notte

 

[keeper]

quote:Originally posted by elephantbig

quote:Originally posted by keeper

poi la perdita di luigi ci ha rattristato ma cmq restano amici come elephantbig claudio8 fillotto esselotto absul salvo57 rubino cebino che ci visona spesso tutti pronti a condividere studi esperienza capacità.concludo dicendo chi vivrà vedrà abbi fede

Caro Keeper ,credo che il buon Rubino abbia ragione.
Non avere Luigi nel forum e come se in una reazione chimica togli il catalizzatore.
Senza quello non c'è reazione.
Sulle capacità , se ci sono ,non sempre si sono manifestate.
Da quando conosco questo forum non ho mai visto nessuno di questi dedicare cosi tanto tempo,pazienza,intelligenza,intuito,creatività,capacità di ascolto senza mai chiedere NULLA.
Di contro ho visto tanti chiedere tanto e non dare NULLA.
Dimenticavo: nel nostro bel pianeta la forma parassitaria è forse una delle piu efficienti.
Notte

Ormai di luigib dobbiamo farci una ragione e saremo felici quando dopo l'estate si rifrà vivo era solo per dire che chi rimane qui come noi andava oltra allo sfruttarele capacità tecniche di luigib credimi non ho mai chiesto nulla, come ho fatto con rubino che gliele ho letteralmente triturate le ......, e che come luigi è sempre disponibile poi gli script che nascono dalla mia intuizione e dalla programmazione di rubino sono a disposizione.ciao elep

 

[Roby]

ciao keeper

questo è lo script, che calcola il metodo da te stabilito.
NON GUARDARE il riepilogo per il momento, non è attivato.

guarda solo se il metodo è calcolato giusto o vi è qualche errore.

prova a controllare quando vi è un ripetuto esempio il 09, il capogioco cosa sarà?
oppure il 18 il capogioco cosa sarà?


okey?

poi mi fai sapere se è tutto esatto, attiviamo il calcolo ed il riepilogo.

Sub Main
	'''''''''''''''''''script LOTTOGOLDFT keeper
	
	Dim sFileinput
	Dim sFileoutput
	Dim sRecord
	sFileinput = GetDirectoryAppData & "NumbersGBGold.txt"
	sFileoutput = GetDirectoryAppData & "NumbersGBGold2.txt"
	Call EliminaFile(sFileoutput)
	nx = GetScriviFileEstrazioni(sFileoutput,sFileinput)
	Call Messaggio(" Elaborato : " & nx)
	Dim sFile
	sFile = sFileoutput
	Dim n(6)
	Dim Asom(6)
	Dim lun(90)
	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 ' estratto
	'aposte(2) = 1
	'aposte(3) = 1
	'aposte(4) = 1
	'aposte(5) = 1
	' attenzione lo script assume che 0.10 sia la posta minima per ciascuna giocata
	' cio è importante per il calcolo della vincita
	SetPremioPagatoFT 1,1,5.85,0.10 'Amabata semplice
	SetPremioPagatoFT 2,1,2.925,0.10 ' coppia per Ambata
	SetPremioPagatoFT 3,1,1.95,0.10 ' Terzina per Amabata
	SetPremioPagatoFT 2,2,4.00,0.10 ' Ambo semplice
	SetPremioPagatoFT 3,2,1.33,0.10 ' Terzina per ambo - 3 Ambi
	SetPremioPagatoFT 3,3,34.50,0.10 ' Terno semplice
	SetPremioPagatoFT 4,2,4.00,0.10 ' Quartina per ambo - 6 Ambi
	SetPremioPagatoFT 4,3,8.62,0.10 ' Quartina per Terno - 4 Terni
	SetPremioPagatoFT 4,4,385.00,0.10 ' Quaterna semplice
	SetPremioPagatoFT 5,3,38.50,0.10 ' Cinquina per Terno - 10 Terni
	SetPremioPagatoFT 5,4,77.00,0.10 ' Cinquina per Quaterna - 5 Quaterne
	SetPremioPagatoFT 6,3,19.25,0.10 ' Sestina per Terno - 20 Terni
	SetPremioPagatoFT 6,4,25.66,0.10 ' Sestina per Quaterna - 15 Quaterne
	ReDim aProgressioni(10,255) ' predimensiono l'array delle progressioni
	Call ImpostaProgressioni(aProgressioni) ' alimento l'array con la progressione usata dall'utente
	' ' 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)' se vuoi caricare tutto l'archivio scrivi: ultimo al posto dei numeri
		z = InputBox("Quante Estrazione vuoi esaminare? ",,150)
		v = InputBox("Somma nr.Consecutivi 2,3",,3)
		lis = InputBox("ambata=1, ambo=2, Terno=3 Quaterna=4, Cinquina=5",,4)
		SEL = InputBox("Vuoi giocare Tutte le combinazioni o solo le unificate? S,U ",,"U")
		co = InputBox("verifica riscontri in colpi n...",,80)
		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
		Dim num(1)
		For ini = ini + 1 To fin
		ides

 

[keeper]

ok controllo
i capo gioco sono come nel lotto es. 22 vertibile 29
11 19
9 90
se esce il 19 vert 91 senza occorrerà al 91 sottrarre 36 più volte 91 - 36= 55 -36 = 19 capgioco
se esce 1 il vertibile sarò 10

 

[keeper]

LO SCRIPT VA BENE OCCORRE ATTIVARE L'ESITO IL RIEPILOGO
E FORSE ANCHE LA VERIFICA A RITROSO MA DI QUESTO NON EN SONO CONVINTO

 

[Roby]

ho attivato il resoconto, prova a controllare

Sub Main
	'''''''''''''''''''script LOTTOGOLDFT keeper
	Dim sFileinput
	Dim sFileoutput
	Dim sRecord
	sFileinput = GetDirectoryAppData & "NumbersGBGold.txt"
	sFileoutput = GetDirectoryAppData & "NumbersGBGold2.txt"
	Call EliminaFile(sFileoutput)
	nx = GetScriviFileEstrazioni(sFileoutput,sFileinput)
	Call Messaggio(" Elaborato : " & nx)
	Dim sFile
	sFile = sFileoutput
	Dim n(6)
	Dim Asom(6)
	Dim lun(90)
	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) = 0.1 ' estratto
	'aposte(2) = 0.1
	'aposte(3) = 1
	'aposte(4) = 1
	'aposte(5) = 1
	' attenzione lo script assume che 0.10 sia la posta minima per ciascuna giocata
	' cio è importante per il calcolo della vincita
	SetPremioPagatoFT 1,1,5.85,0.10 'Amabata semplice
	SetPremioPagatoFT 2,1,2.925,0.10 ' coppia per Ambata
	SetPremioPagatoFT 3,1,1.95,0.10 ' Terzina per Amabata
	SetPremioPagatoFT 2,2,4.00,0.10 ' Ambo semplice
	SetPremioPagatoFT 3,2,1.33,0.10 ' Terzina per ambo - 3 Ambi
	SetPremioPagatoFT 3,3,34.50,0.10 ' Terno semplice
	SetPremioPagatoFT 4,2,4.00,0.10 ' Quartina per ambo - 6 Ambi
	SetPremioPagatoFT 4,3,8.62,0.10 ' Quartina per Terno - 4 Terni
	SetPremioPagatoFT 4,4,385.00,0.10 ' Quaterna semplice
	SetPremioPagatoFT 5,3,38.50,0.10 ' Cinquina per Terno - 10 Terni
	SetPremioPagatoFT 5,4,77.00,0.10 ' Cinquina per Quaterna - 5 Quaterne
	SetPremioPagatoFT 6,3,19.25,0.10 ' Sestina per Terno - 20 Terni
	SetPremioPagatoFT 6,4,25.66,0.10 ' Sestina per Quaterna - 15 Quaterne
	ReDim aProgressioni(10,255) ' predimensiono l'array delle progressioni
	Call ImpostaProgressioni(aProgressioni) ' alimento l'array con la progressione usata dall'utente
	' ' 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)' se vuoi caricare tutto l'archivio scrivi: ultimo al posto dei numeri
		z = InputBox("Quante Estrazione vuoi esaminare? ",,150)
		lis = InputBox("ambata=1, ambo=2",,2)
		co = InputBox("verifica riscontri in colpi n...",,10)
		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 "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
		Dim num(1)
		For ini = ini + 1 To fin
			idestr = ini
			''''----------------------------------------------------------------------------------------------------
			''''''vede se presenze = 2 in 2 concorsi
			ok = 0
			estratti1 = ""
			estratti2 = ""
			For h = 1 To 6
				num(1) = EstrattoFT(idestr,h)
				estratti1 = estratti1 & Format2(EstrattoFT(idestr,h)) & " "
				estratti2 = estratti2 & Format2(EstrattoFT(idestr - 1,h)) & " "
				pres = SerieFreqFT(idestr - 1,idestr,num,1)
				If pres = 2 Then
					ok = ok + 1
					lun(ok) = Format2(num(1))
				End If
			Next
			If ok > 0 Then
				For t

 

[keeper]

ciao rubino ho tarato le giocate il riepilogo funziona
mi sono accorto però che giocando i quattro ambi per 10 colpi quando sortisce l'ambo ad esempio al 6 colpo gli altri tre non si fermano fino a raggiungere i 10 colpi di sfaldamento.
per cui si potrebbe inserire la funzione che come sortisce uno degli ambi la previsione si chiude. poi un'altra cosa le previsioni uguali esempio nell'arco di x estrazioni se è già in gioco la previone 9.10. 9.20. 9.30 se ne ricava, un'altra quest'ulima si dovrebbe automaticamente eliminare per non avere doppioni. grazie

 

[keeper]

quote:Originally posted by keeper

ciao rubino ho tarato le giocate il riepilogo funziona
mi sono accorto però che giocando i quattro ambi per 10 colpi quando sortisce l'ambo ad esempio al 6 colpo gli altri tre non si fermano fino a raggiungere i 10 colpi di sfaldamento.
per cui si potrebbe inserire la funzione che come sortisce uno degli ambi la previsione si chiude. poi un'altra cosa le previsioni uguali esempio nell'arco di x estrazioni se è già in gioco la previone 9.10. 9.20. 9.30 se ne ricava, un'altra quest'ulima si dovrebbe automaticamente eliminare per non avere doppioni. grazie

dimenticavo che linguaggio usi per gli script

 

[Roby]

mi sono accorto però che giocando i quattro ambi per 10 colpi quando sortisce l'ambo ad esempio al 6 colpo gli altri tre non si fermano fino a raggiungere i 10 colpi di sfaldamento.

non so se è possibile, in quanto sono giocate diverse preimpostate con le funzioni previste dallo script o del vbscript</u> come predefinito da LuigiB.</u>




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

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

La sistemistica trova il suo fondamento nella matematica, mentre i padri fondatori
hanno proposto come fondamento il fumo aleatorio!

 

[keeper]

quote:Originally posted by rubino

mi sono accorto però che giocando i quattro ambi per 10 colpi quando sortisce l'ambo ad esempio al 6 colpo gli altri tre non si fermano fino a raggiungere i 10 colpi di sfaldamento.

non so se è possibile, in quanto sono giocate diverse preimpostate con le funzioni previste dallo script o del vbscript</u> come predefinito da LuigiB.</u>




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

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

La sistemistica trova il suo fondamento nella matematica, mentre i padri fondatori
hanno proposto come fondamento il fumo aleatorio!

ma almeno si possono elimiare le giocate doppie con gli stessi numeri? almeno avremo meno combinazioni da seguire

 

[keeper]

quote:Originally posted by keeper

quote:Originally posted by rubino

mi sono accorto però che giocando i quattro ambi per 10 colpi quando sortisce l'ambo ad esempio al 6 colpo gli altri tre non si fermano fino a raggiungere i 10 colpi di sfaldamento.

non so se è possibile, in quanto sono giocate diverse preimpostate con le funzioni previste dallo script o del vbscript</u> come predefinito da LuigiB.</u>




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

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

La sistemistica trova il suo fondamento nella matematica, mentre i padri fondatori
hanno proposto come fondamento il fumo aleatorio!

ma almeno si possono elimiare le giocate doppie con gli stessi numeri? almeno avremo meno combinazioni da seguire

 

[keeper]

Ciao rubino ho settato le vincìte anche x l'ambata e se nei parametrì di scelta imposto 1 anzicchè 2 le giocate si fermano xcui ho capito che lo script ua avanti fìnchè non trova l'esito cmq tì chieso se puoi eliminare le giocate doppie e poi vediamo come va

 

[Roby]

keeper come vedi queste giocate uguali , non sono doppie perchè nascono da estrazioni diverse.

quindi si ripetono gli stessi numeri e generano previsioni uguali.


è un po come il bicchiere mezzo pieno e mezzo vuoto.
cosa vedi?

quote: nr.conc. 10072 01 26 17 36 02 11 10073 34 03 09 11 35 05
Ripetuto..11...capogioco..vert..19....cad.ripetuto..01 11 21 31
---------------Previsione in gioco....19 01 - 19 11 - 19 21 - 19 31
Estrazione generatrice del pronostico 10073 [965478 - 22/03/2011 16.37.05]
G 0001
Numeri in gioco : 19.01
N. [19.01 ] [.. .. .. .. .. .. ] C. 1 10074 [965479 - 22/03/2011 16.39.00]
N. [19.01 ] [.. .. .. .. .. .. ] C. 2 10075 [965480 - 22/03/2011 16.40.00]
N. [19.01 ] [.. 19 .. .. .. .. ] C. 3 Estratto 10076 [965481 - 22/03/2011 16.41.00]
N. [19.01 ] [.. .. .. .. .. .. ] C. 4 10077 [965482 - 22/03/2011 16.42.00]
N. [19.01 ] [.. .. .. .. .. .. ] C. 5 10078 [965483 - 22/03/2011 16.43.00]
N. [19.01 ] [.. .. .. .. .. .. ] C. 6 10079 [965484 - 22/03/2011 16.44.00]
N. [19.01 ] [.. .. .. .. .. .. ] C. 7 10080 [965485 - 22/03/2011 16.45.00]
N. [19.01 ] [.. .. .. .. .. .. ] C. 8 10081 [965486 - 22/03/2011 16.46.00]
N. [19.01 ] [.. .. .. 01 .. .. ] C. 9 Estratto 10082 [965487 - 22/03/2011 16.46.05]
N. [19.01 ] [.. .. .. .. .. .. ] C. 10 10083 [965488 - 22/03/2011 16.47.05]
Interrotta per raggiunta durata

G 0002
Numeri in gioco : 19.11
N. [19.11 ] [.. 11 .. .. .. .. ] C. 1 Estratto 10074 [965479 - 22/03/2011 16.39.00]
N. [19.11 ] [.. .. .. .. .. .. ] C. 2 10075 [965480 - 22/03/2011 16.40.00]
N. [19.11 ] [.. 19 .. .. .. .. ] C. 3 Estratto 10076 [965481 - 22/03/2011 16.41.00]
N. [19.11 ] [.. .. .. .. .. .. ] C. 4 10077 [965482 - 22/03/2011 16.42.00]
N. [19.11 ] [.. .. .. .. .. .. ] C. 5 10078 [965483 - 22/03/2011 16.43.00]
N. [19.11 ] [.. .. .. .. .. .. ] C. 6 10079 [965484 - 22/03/2011 16.44.00]
N. [19.11 ] [.. .. .. .. .. .. ] C. 7 10080 [965485 - 22/03/2011 16.45.00]
N. [19.11 ] [.. .. .. .. .. .. ] C. 8 10081 [965486 - 22/03/2011 16.46.00]
N. [19.11 ] [.. .. .. .. .. .. ] C. 9 10082 [965487 - 22/03/2011 16.46.05]
N. [19.11 ] [.. 11 .. .. .. .. ] C. 10 Estratto 10083 [965488 - 22/03/2011 16.47.05]
Interrotta per raggiunta durata

G 0003
Numeri in gioco : 19.21
N. [19.21 ] [.. .. .. .. .. .. ] C. 1 10074 [965479 - 22/03/2011 16.39.00]
N. [19.21 ] [.. .. .. .. .. .. ] C. 2 10075 [965480 - 22/03/2011 16.40.00]
N. [19.21 ] [.. 19 .. .. .. .. ] C. 3 Estratto 10076 [965481 - 22/03/2011 16.41.00]
N. [19.21

 

[keeper]

quote:Originally posted by rubino

keeper come vedi queste giocate uguali , non sono doppie perchè nascono da estrazioni diverse.

quindi si ripetono gli stessi numeri e generano previsioni uguali.


è un po come il bicchiere mezzo pieno e mezzo vuoto.
cosa vedi?

quote: nr.conc. 10072 01 26 17 36 02 11 10073 34 03 09 11 35 05
Ripetuto..11...capogioco..vert..19....cad.ripetuto..01 11 21 31
---------------Previsione in gioco....19 01 - 19 11 - 19 21 - 19 31
Estrazione generatrice del pronostico 10073 [965478 - 22/03/2011 16.37.05]
G 0001
Numeri in gioco : 19.01
N. [19.01 ] [.. .. .. .. .. .. ] C. 1 10074 [965479 - 22/03/2011 16.39.00]
N. [19.01 ] [.. .. .. .. .. .. ] C. 2 10075 [965480 - 22/03/2011 16.40.00]
N. [19.01 ] [.. 19 .. .. .. .. ] C. 3 Estratto 10076 [965481 - 22/03/2011 16.41.00]
N. [19.01 ] [.. .. .. .. .. .. ] C. 4 10077 [965482 - 22/03/2011 16.42.00]
N. [19.01 ] [.. .. .. .. .. .. ] C. 5 10078 [965483 - 22/03/2011 16.43.00]
N. [19.01 ] [.. .. .. .. .. .. ] C. 6 10079 [965484 - 22/03/2011 16.44.00]
N. [19.01 ] [.. .. .. .. .. .. ] C. 7 10080 [965485 - 22/03/2011 16.45.00]
N. [19.01 ] [.. .. .. .. .. .. ] C. 8 10081 [965486 - 22/03/2011 16.46.00]
N. [19.01 ] [.. .. .. 01 .. .. ] C. 9 Estratto 10082 [965487 - 22/03/2011 16.46.05]
N. [19.01 ] [.. .. .. .. .. .. ] C. 10 10083 [965488 - 22/03/2011 16.47.05]
Interrotta per raggiunta durata

G 0002
Numeri in gioco : 19.11
N. [19.11 ] [.. 11 .. .. .. .. ] C. 1 Estratto 10074 [965479 - 22/03/2011 16.39.00]
N. [19.11 ] [.. .. .. .. .. .. ] C. 2 10075 [965480 - 22/03/2011 16.40.00]
N. [19.11 ] [.. 19 .. .. .. .. ] C. 3 Estratto 10076 [965481 - 22/03/2011 16.41.00]
N. [19.11 ] [.. .. .. .. .. .. ] C. 4 10077 [965482 - 22/03/2011 16.42.00]
N. [19.11 ] [.. .. .. .. .. .. ] C. 5 10078 [965483 - 22/03/2011 16.43.00]
N. [19.11 ] [.. .. .. .. .. .. ] C. 6 10079 [965484 - 22/03/2011 16.44.00]
N. [19.11 ] [.. .. .. .. .. .. ] C. 7 10080 [965485 - 22/03/2011 16.45.00]
N. [19.11 ] [.. .. .. .. .. .. ] C. 8 10081 [965486 - 22/03/2011 16.46.00]
N. [19.11 ] [.. .. .. .. .. .. ] C. 9 10082 [965487 - 22/03/2011 16.46.05]
N. [19.11 ] [.. 11 .. .. .. .. ] C. 10 Estratto 10083 [965488 - 22/03/2011 16.47.05]
Interrotta per raggiunta durata

G 0003
Numeri in gioco : 19.21
N. [19.21 ] [.. .. .. .. .. .. ] C. 1 10074 [965479 - 22/03/2011 16.39.00]
N. [19.21 ] [.. .. .. .. .. .. ] C. 2 10075 [965480 - 22/03/2011 16.40.00]
N. [19.21

 

[keeper]

Ciao rubino buona domenica forse luigi ha nel suo post aggiornamento ha indirettamente risposto sulla funzione giocata determinata

 

[LuigiB]

ciao keeper vedendo la tua necessita di stoppare un gruppo di giocate
se una di questye fosse andata in porto ho fatto una piccola modifica
che credo non ci siano problemi ad adoperare ... vedi rubino cosa ti dice.

 

[keeper]

quote:Originally posted by LuigiB

ciao keeper vedendo la tua necessita di stoppare un gruppo di giocate
se una di questye fosse andata in porto ho fatto una piccola modifica
che credo non ci siano problemi ad adoperare ... vedi rubino cosa ti dice.

ciao luigib buona domenica pomeriggio non ti nego che ieri sera quando mi sono accorto dal cell della tua presenza sul formun sono esploso di gioia. forse sono stato uno dei pochi a credere che da un momento all'altro saresti ricomparso per una incursione veloce. continua cosi alche se il tuo lavoro ti porterà via da qui per molto tempo continuaci a tenerci d'occhio spaziometria non può morire così
come dice elephant abbiamo bisogno di un capoclasse

 

[Roby]

PRIMO
ho applicato quanto modificato da Luigi con l'ultima versione di spaziometria ed il blocco delle previsioni in essere alla sortita di 1 combinazione prevista.
SECONDO
ho cercato di eliminare quelle previsioni che nascosto dal medesimo ripetuto e quindi capogioco in 2 estrazioni consecutive.



necessita TUTTO di un controllo.

Sub Main
	'''''''''''''''''''script LOTTOGOLDFT keeper
	Dim sFileinput
	Dim sFileoutput
	Dim sRecord
	sFileinput = GetDirectoryAppData & "NumbersGBGold.txt"
	sFileoutput = GetDirectoryAppData & "NumbersGBGold2.txt"
	Call EliminaFile(sFileoutput)
	nx = GetScriviFileEstrazioni(sFileoutput,sFileinput)
	Call Messaggio(" Elaborato : " & nx)
	Dim sFile
	sFile = sFileoutput
	Dim n(6)
	Dim Asom(6)
	Dim lun(90)
	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) = 0.1 ' estratto
	'aposte(2) = 0.1
	'aposte(3) = 1
	'aposte(4) = 1
	'aposte(5) = 1
	' attenzione lo script assume che 0.10 sia la posta minima per ciascuna giocata
	' cio è importante per il calcolo della vincita
	SetPremioPagatoFT 1,1,5.85,0.10 'Amabata semplice
	SetPremioPagatoFT 2,1,2.925,0.10 ' coppia per Ambata
	SetPremioPagatoFT 3,1,1.95,0.10 ' Terzina per Amabata
	SetPremioPagatoFT 2,2,4.00,0.10 ' Ambo semplice
	SetPremioPagatoFT 3,2,1.33,0.10 ' Terzina per ambo - 3 Ambi
	SetPremioPagatoFT 3,3,34.50,0.10 ' Terno semplice
	SetPremioPagatoFT 4,2,4.00,0.10 ' Quartina per ambo - 6 Ambi
	SetPremioPagatoFT 4,3,8.62,0.10 ' Quartina per Terno - 4 Terni
	SetPremioPagatoFT 4,4,385.00,0.10 ' Quaterna semplice
	SetPremioPagatoFT 5,3,38.50,0.10 ' Cinquina per Terno - 10 Terni
	SetPremioPagatoFT 5,4,77.00,0.10 ' Cinquina per Quaterna - 5 Quaterne
	SetPremioPagatoFT 6,3,19.25,0.10 ' Sestina per Terno - 20 Terni
	SetPremioPagatoFT 6,4,25.66,0.10 ' Sestina per Quaterna - 15 Quaterne
	ReDim aProgressioni(10,255) ' predimensiono l'array delle progressioni
	Call ImpostaProgressioni(aProgressioni) ' alimento l'array con la progressione usata dall'utente
	' ' 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)' se vuoi caricare tutto l'archivio scrivi: ultimo al posto dei numeri
		z = InputBox("Quante Estrazione vuoi esaminare? ",,150)
		lis = InputBox("ambata=1, ambo=2",,2)
		co = InputBox("verifica riscontri in colpi n...",,10)
		savecapo = 0
		fin = storia
		Ini = storia - z
		Iniz = Ini
		Scrivi "Rileva somme numeri dal concorso n." & Iniz & " al conc.n. " & fin & " Per il LOTTOGoldFT di KEEPER"
		Scrivi "Quante Estrazione vuoi esaminare?.... " & z
		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
		Dim num(1)
		For ini = ini + 1 To fin
			idestr = ini
			''''----------------------------------------------------------------------------------------------------
			''''''vede se presenze = 2 in 2 concorsi
			ok = 0
			estratti1 = ""
			estratti2 = ""
			For h = 1 To 6
				num(1) = EstrattoFT(id