Novità

x rubino ultima modifica

cioa rubino buongiorno
ho copiato lo script ma da un primo controllo mi sembra che al sortire di una dei 4 ambi le giocate degli altri tre non si fermano
nr.conc. 10089 28 29 08 12 21 20 10090 21 14 20 16 22 05
Ripetuto..20...capogioco..vert..02....cad.ripetuto..10 20 30
---------------Previsione in gioco....02 10 - 02 20 - 02 30 -
Estrazione generatrice del pronostico 10090 [965495 - 22/03/2011 16.55.00]
G 0001
Numeri in gioco : 02.10
N. [02.10 ] [.. .. 02 .. .. .. ] C. 1 Estratto 10092 [965497 - 22/03/2011 16.56.05]
N. [02.10 ] [.. .. 10 .. .. .. ] C. 2 Estratto 10093 [965498 - 22/03/2011 16.57.05]
N. [02.10 ] [.. .. .. .. .. .. ] C. 3 10094 [965499 - 22/03/2011 16.58.05]
N. [02.10 ] [.. .. .. .. 02 .. ] C. 4 Estratto 10095 [965500 - 22/03/2011 16.59.05]
N. [02.10 ] [.. .. .. .. .. .. ] C. 5 10096 [965501 - 22/03/2011 17.01.00]
N. [02.10 ] [.. .. .. .. .. .. ] C. 6 10097 [965502 - 22/03/2011 17.02.00]
N. [02.10 ] [.. .. .. .. .. .. ] C. 7 10098 [965503 - 22/03/2011 17.03.00]
V N. [02.10 ] [.. .. 02 10 .. .. ] C. 8 Ambo 10099 [965504 - 22/03/2011 17.04.00]
Interrotta per esito verificato

G 0002
Numeri in gioco : 02.20
N. [02.20 ] [.. .. 02 .. .. .. ] C. 1 Estratto 10092 [965497 - 22/03/2011 16.56.05]
N. [02.20 ] [.. .. .. .. .. .. ] C. 2 10093 [965498 - 22/03/2011 16.57.05]
N. [02.20 ] [.. 20 .. .. .. .. ] C. 3 Estratto 10094 [965499 - 22/03/2011 16.58.05]
N. [02.20 ] [.. .. .. .. 02 .. ] C. 4 Estratto 10095 [965500 - 22/03/2011 16.59.05]
N. [02.20 ] [.. .. .. .. .. .. ] C. 5 10096 [965501 - 22/03/2011 17.01.00]
N. [02.20 ] [.. .. .. .. .. .. ] C. 6 10097 [965502 - 22/03/2011 17.02.00]
N. [02.20 ] [.. .. .. .. .. .. ] C. 7 10098 [965503 - 22/03/2011 17.03.00]
N. [02.20 ] [.. .. 02 .. .. .. ] C. 8 Estratto 10099 [965504 - 22/03/2011 17.04.00]
N. [02.20 ] [.. .. .. 02 .. .. ] C. 9 Estratto 10100 [965505 - 22/03/2011 17.05.00]
Interrotta per raggiunta durata

G 0003
Numeri in gioco : 02.30
N. [02.30 ] [.. .. 02 .. .. .. ] C. 1 Estratto 10092 [965497 - 22/03/2011 16.56.05]
N. [02.30 ] [30 .. .. .. .. .. ] C. 2 Estratto 10093 [965498 - 22/03/2011 16.57.05]
N. [02.30 ] [.. .. .. .. .. .. ] C. 3 10094 [965499 - 22/03/2011 16.58.05]
N. [02.30 ] [.. .. .. .. 02 .. ] C. 4 Estratto 10095 [965500 - 22/03/2011 16.59.05]
N. [02.30 ] [.. .. .. .. .. .. ] C. 5 10096 [965501 - 22/03/2011 17.01.00]
N. [02.30 ] [.. .. .. .. .. .. ] C. 6 10097 [965502 - 22/03/2011 17.02.00]
N. [02.30 ] [.. .. .. .. .. .. ] C. 7 10098 [965503 - 22/03/2011 17.03.00]
V N. [02.30 ] [.. .. 02 .. .. 30 ] C. 8 Ambo 10099 [965504 - 22/03/2011 17.04.00]
Interrotta per esito verifi
 
quote:Originally posted by 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
Clicca per espandere...
 
riprova lo script:



Codice: 
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(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 =
 
Call ImpostaGiocataFT(1,tna,aposte,Int(co),Int(lis),,1)
Call ImpostaGiocataFT(2,tnb,aposte,Int(co),Int(lis),,1)
Call ImpostaGiocataFT(3,tnc,aposte,Int(co),Int(lis),,1)
Call ImpostaGiocataFT(4,tnd,aposte,Int(co),Int(lis),,1)



servono 2 virgole

-----------------------------
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!
 
rubino
buongiorno lo script si stoppa alla vincitatutto regolare ora faccio dei test più approfonditi.grazie come al solito
 
rubino volevo solo chiederti ma allo script per come lo hai sviluppato oltre a gioco dell'ambo si può giocare anche il terno?
 
No, perchè mi hai fatto sviluppare 3/4 ambi secchi.

quindi solo l'ambo secco ha senso




-----------------------------
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!
 
Pensavo che se indicavo il 3 lo script controllasse comunque il risultato nei 5 numeri ricavati.grazie x la celerità nel rispondere
 
ciao rubino lo script non da problemi ora appena sei libero dai tuoi impegni mi occorrerebbe aggiungere questa ultima funzione
1) la possibilitò del controllo a ritroso ritroso come nello scritp lottogoldft che hai sviluppato per cebino ma per pochi colpi
2) se puoi inserire anche la possibilità di giocare per terni quindi 5 numeri danno 10 terni oppure con una fissa (vertibile capocioco) e due numeri danno 6 terni. grazie
 
quote:Originally posted by keeper

ciao rubino lo script non da problemi ora appena sei libero dai tuoi impegni mi occorrerebbe aggiungere questa ultima funzione
1) la possibilitò del controllo a ritroso ritroso come nello scritp lottogoldft che hai sviluppato per cebino ma per pochi colpi
2) se puoi inserire anche la possibilità di giocare per terni quindi 5 numeri danno 10 terni oppure con una fissa (vertibile capocioco) e due numeri danno 6 terni. grazie
Clicca per espandere...
 
ciao keeper

per il momento

ho inserito la possibilità di accorpare in una quartina o cinquina
basta specificare una "u" minuscola oppure "U" maiuscola
nel parametro accorpa , intendendo combinazione UNITA

però
devi mettere a posto le progressioni sotto specificate,
mi pare, che non ci sia la progressione nel caso di cinquina
o di 10 terni

poi una domanda ti devo fare?
ma un terno in cinquina, in quanti colpi pensi che venga fuori?

perchè in 50 colpi, molto spesso non c'è.

e visto che paga 38,50 saresti già in perdita netta.

in 137 estrazioni giocabili
ci sono stati solo 16 terni


mentre cosa diversa è il gioco di ambo secco o ambo in quartina o in cinquina.


Codice: 
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, Terno=3  ",,3)
		co = InputBox("verifica riscontri in colpi n...",,10)
		uni = InputBox("accorpa combinazione Unica x Terno   (N n) -  (U u)  ",,"N")
		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 "Sorte Scelta.." & lis
		Scrivi "Accorpa combinazione Unica " & uni
		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
 
siu rubino tu hai ragione lo script era natoper giocare degli ambi ma essendo un gioco ciclico mi sono accorto che in 500 colip è vincente in mille già in perdita di pochissimo l'ambata non conviente opra vorrei solo avere il modo di vedere quanti terni giocare cmq grazie poi ti informo del test anchye se credo che l'accorpamento degli ambi per esito quartino forse è meglio opra vedo. di nuovo grazie
 
gentilmente rinnovo la richiesta. ho eseguito le operazioni da te indicate ma è ancora in negativo l'esito potresti pertanto attivare il controllo a ritroso così da ridurre le giocate.grazie
 
quote:Originally posted by keeper

gentilmente rinnovo la richiesta. ho eseguito le operazioni da te indicate ma è ancora in negativo l'esito potresti pertanto attivare il controllo a ritroso così da ridurre le giocate.grazie
Clicca per espandere...
 
ciao keeper

guarda che la giocata è composta da tre o quattro ambi secchi,

abbiamo già escluso le giocate ripetute che generano gli stessi numeri in 2 concorsi consecutivi.

dimmi cosa devo escludere o controllare a ritroso e per quanti colpi.


attendo tue notizie




-----------------------------
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!
 
si rubino se per te non è un problema e poichè hai ampliato la ricerca nello script per le varie sorti secondo me potresti togliere l'esclusione dei numeri nelle due estrazioni definitive e inserire il controllo a ritroso se possibile sia dei quattro ambi quando non si utilizza la funzione accorpa e della lunghetta per sorte maggiori se utilizzo l'accorpamento cmq decidi te a me va bene anche solo il controllo sui quatro ambi per non stravolgere lo scrip iniziale ovvero il penultimo postato. grazie.A
 
ciao rubino se ti porta via troppo tempo applica il controllo a ritroso solo sui 4 ambi secchi e in 10 colpi a ritorso grazie
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto