Novità

x rubino occorre spiegazione

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
ciqo rubino non so perchè allo script dayly non riesco a cambiare le quote e il riepilogo mi appare sempre lo stesso qualunque analisi faccio. mi puoi dire cosa modificare?
 
ciao kepper

quali sono le poste minime per questo gioco.?

le ho attivate ad 1 euro
per ambata
per ambo
per terno
per quaterna
per cinquina

ma non so se sono possibili.

il resoconto finale si è mosso con i valori.


mentre per le progressioni, impostate o possibili, sono impostate ancora con i valori che cebino aveva messo per il lottolive.

io non so come dovreste gestirle.

devi chiedere info a cebino.


Codice: 
Sub Main
	'''''''''''''''''''script 
	Dim sFileinput
	Dim sFileoutput
	Dim sRecord
	sFileinput = "c:\Temp\DailyPlay.txt"
	sFileoutput = "c:\Temp\DailyPlay2.txt"
	Call EliminaFile(sFileoutput)
	nx = GetScriviFileEstrazioni(sFileoutput,sFileinput)
	Call Messaggio(" Elaborato : " & nx)
	Dim sFile
	sFile = sFileoutput
	Dim n(7)
	Dim Asom(7)
	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 'Ambata 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,7,",") 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",,2)
		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...",,50)
		lis2 = InputBox("Verifica se Terno/quaterna già usciti",,3)
		co2 = InputBox("Verifica n.conc.prec. per Terno/quaterna già usciti",,50)
		
		fin = storia
		ini = storia - z
		Iniz = ini
		Scrivi "Rileva somme numeri dal concorso n." & Iniz & " al conc.n. " & fin & " Per il DailyPlayFT "
		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 07 ........somme......... 01 02 03 04 05 06 "
		Scrivi "______________________________________________________________________________________________________________________________________________________"
		ColoreTesto 1
		sRecord = "leggo L'archivio dall'estrazione n." & ini & "   all'estrazione n." & EstrazioniArchivioFT
		Scrivi sRecord,1
		sRecord = "si compone di " & EstrazioniArchivioFT & " estrazioni "
		Scrivi sRecord,1
		Scrivi "______________________________________________________________________________________________________________________________________________________"
		ColoreTesto 0
		''''leggo ar
 
ti psoto lo script con le quote cambiate
Sub Main
'''''''''''''''''''script DAILYPLAYFT
Dim sFileinput
Dim sFileoutput
Dim sRecord
sFileinput = "c:\Temp\DailyPlay.txt"
sFileoutput = "c:\Temp\DailyPlay2.txt"
Call EliminaFile(sFileoutput)
nx = GetScriviFileEstrazioni(sFileoutput,sFileinput)
Call Messaggio(" Elaborato : " & nx)
Dim sFile
sFile = sFileoutput
Dim n(7)
Dim Asom(7)
Dim aRighe(0)
Dim aposte(5)
''''''''''''Considera inoltre che l'ambata paga 3.25,l'ambo 14 e il terno 60 E QUATERNA 300.
'aposte(1) = 1 ' estratto
'aposte(2) = 1
'aposte(3) = 1
'aposte(4) = 1
'aposte(5) = 1
' attenzione lo script assume che 1.00 sia la posta minima per ciascuna giocata
' cio è importante per il calcolo della vincita
'SetPremioPagatoFT 1,1,3.25,0.10 'Ambata semplice
'SetPremioPagatoFT 2,1,1.65,0.10 ' coppia per Ambata
'SetPremioPagatoFT 3,1,1.08,0.10 ' Terzina per Amabata
'SetPremioPagatoFT 2,2,14,0.10 ' Ambo semplice
'SetPremioPagatoFT 3,2,4.67,0.10 ' Terzina per ambo - 3 Ambi
'SetPremioPagatoFT 3,3,60,0.10 ' Terno semplice
'SetPremioPagatoFT 4,2,2.33,0.10 ' Quartina per ambo - 6 Ambi
'SetPremioPagatoFT 4,3,15,1 ' Quartina per Terno - 4 Terni
SetPremioPagatoFT 4,4,300,1 ' Quaterna semplice
'SetPremioPagatoFT 5,2,1.40,0.10 ' Cinquina per ambo - 10 ambi
'SetPremioPagatoFT 5,3,6.,0.10 ' Cinquina per Terno - 10 Terni
'SetPremioPagatoFT 5,4,60,0.10 ' Cinquina per Quaterna - 5 Quaterne
'SetPremioPagatoFT 5,5,2000,0.10 ' Cinquina semplice
'SetPremioPagatoFT 6,3,3,0.10 ' Sestina per Terno - 20 Terni
'SetPremioPagatoFT 6,4,20,0.10 ' Sestina per Quaterna - 15 Quaterne
'SetPremioPagatoFT 6,5,333,0.10 ' Sestina per cinquina - 6 cinquine
'SetPremioPagatoFT 6,6,20000,0.10 ' Sestina semplice
'SetPremioPagatoFT 7,3,1.72,0.10 ' Settina per Terno - 35 Terni
'SetPremioPagatoFT 7,4,8.57,0.10 ' Settina per quaterna - 35 quaterne
'SetPremioPagatoFT 7,5,95,0.10 ' Settina per cinquina - 21 cinquine
'SetPremioPagatoFT 7,6,285,0.10 ' Settina per sestina - 7 sestine
'SetPremioPagatoFT 7,7,20000,0.10 ' Settina semplice
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,7,",") 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",,2)
lis = InputBox("ambata=1, ambo=2, Terno=3 Quaterna=4, Cinquina=5",,3)
SEL = InputBox("Vuoi giocare Tutte le combinazioni o solo le unificate? S,U ",,"U")
co = InputBox("verifica riscontri in colpi n...",,15)
lis2 = InputBox("Verifica se Terno/quaterna già usciti",,3)
co2 = InputBox("Verifica n.conc.prec. per Terno/quaterna già usciti",,200)

fin = storia
ini = storia - z
Iniz = ini
Scrivi "Rileva somme numeri dal concorso n." & Iniz & " al conc.n. " & fin & " Per il DailyPlayFT "
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 07 ........somme......... 01 02 03 04 05 06 07 "
Scrivi "______________________________________________________________________________________________________________________________________________________"
ColoreTesto 1
sRecord = "leggo L'archivio dall'estrazione n." & ini & " all'estrazione n." & EstrazioniArchivioFT
Scrivi sRecord,1
sRecord = "si compone di " & EstrazioniArchivioFT & " estrazioni "
Scrivi sRecord,1
Scrivi "____________________________
 
questo script ha impostato le poste di
1 euro per il terno
1 euro per la quaterna
1 euro per la cinquina


il resoconto con la richiesta di verifica nel resoconto finale le combinazioni di terno-quaterna

terni = 13
quaterna = 1

risulta positivo! di poco ma positivo.



Codice: 
Sub Main
	'''''''''''''''''''script 
	Dim sFileinput
	Dim sFileoutput
	Dim sRecord
	sFileinput = "c:\Temp\DailyPlay.txt"
	sFileoutput = "c:\Temp\DailyPlay2.txt"
	Call EliminaFile(sFileoutput)
	nx = GetScriviFileEstrazioni(sFileoutput,sFileinput)
	Call Messaggio(" Elaborato : " & nx)
	Dim sFile
	sFile = sFileoutput
	Dim n(7)
	Dim Asom(7)
	Dim aRighe(0)
	Dim aposte(5)
	''''''''''''''''''''''''Considera inoltre che l'ambata paga 3.25,l'ambo 14 e il terno 60 E QUATERNA 300.
	'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 'Ambata 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,7,",") 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",,2)
		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...",,50)
		lis2 = InputBox("Verifica se Terno/quaterna già usciti",,3)
		co2 = InputBox("Verifica n.conc.prec. per Terno/quaterna già usciti",,50)
		
		fin = storia
		ini = storia - z
		Iniz = ini
		Scrivi "Rileva somme numeri dal concorso n." & Iniz & " al conc.n. " & fin & " Per il DailyPlayFT "
		Scrivi "Quante Estrazione vuoi esaminare?.... " & z
		Scrivi "Somma nr. consecutività.." & v
		Scrivi "Verifica risultati n.colpi " & co
		Scrivi "Garanzia richiesta per controllo riepilogo... " & lis
		Scrivi "Quanti concorsi precedenti per verifica terni-quaterni già usciti?..." & co2
		Scrivi "Terno = 3   o     Quaterna = 4  x verifica?   " & lis2
		Scrivi "Conc.n.       01 02 03 04 05 06 07 ........somme......... 01 02 03 04 05 06 "
		Scrivi "______________________________________________________________________________________________________________________________________________________"
		ColoreTesto 1
		sRecord = "leggo L'archivio dall'estrazione n." & ini & "   all'estrazione n." & EstrazioniArchivioFT
		Scrivi sRecord,1
		sRecord = "si compone di " & EstrazioniArchivioFT & " estrazioni "
		Scrivi sRecord,1
		Scrivi "_________________________________________________________________________________________________________________________
 
2 script

vedi anche il precedente</u>


con disattivo il calcolo delle poste classico lotto
mentre è attivato il calcolo delle progressioni


(comunque a mio avviso vanno modificate le quote in fondo)
perchè attualmente sono impostate solo per la quaterna e non per il terno o per l'ambo)


Codice: 
Sub Main
	'''''''''''''''''''script 
	Dim sFileinput
	Dim sFileoutput
	Dim sRecord
	sFileinput = "c:\Temp\DailyPlay.txt"
	sFileoutput = "c:\Temp\DailyPlay2.txt"
	Call EliminaFile(sFileoutput)
	nx = GetScriviFileEstrazioni(sFileoutput,sFileinput)
	Call Messaggio(" Elaborato : " & nx)
	Dim sFile
	sFile = sFileoutput
	Dim n(7)
	Dim Asom(7)
	Dim aRighe(0)
	Dim aposte(5)
	''''''''''''''''''''''''Considera inoltre che l'ambata paga 3.25,l'ambo 14 e il terno 60 E QUATERNA 300.
	'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 'Ambata semplice
	SetPremioPagatoFT 2,1,2.925,0.10 ' coppia per Ambata
	SetPremioPagatoFT 3,1,1.95,0.33 ' Terzina per Amabata
	SetPremioPagatoFT 2,2,4.00,1 ' Ambo semplice
	SetPremioPagatoFT 3,2,1.33,0.33 ' Terzina per ambo - 3 Ambi
	SetPremioPagatoFT 3,3,34.50,1 ' Terno semplice
	SetPremioPagatoFT 4,2,4.00,0.16 ' Quartina per ambo - 6 Ambi
	SetPremioPagatoFT 4,3,8.62,0.25' Quartina per Terno - 4 Terni
	SetPremioPagatoFT 4,4,385.00,1 ' Quaterna semplice
	SetPremioPagatoFT 5,3,38.50,0.10 ' Cinquina per Terno - 10 Terni
	SetPremioPagatoFT 5,4,77.00,0.25 ' Cinquina per Quaterna - 5 Quaterne
	SetPremioPagatoFT 6,3,19.25,0.050 ' Sestina per Terno - 20 Terni
	SetPremioPagatoFT 6,4,25.66,0.066 ' 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,7,",") 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",,2)
		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...",,50)
		lis2 = InputBox("Verifica se Terno/quaterna già usciti",,3)
		co2 = InputBox("Verifica n.conc.prec. per Terno/quaterna già usciti",,50)
		
		fin = storia
		ini = storia - z
		Iniz = ini
		Scrivi "Rileva somme numeri dal concorso n." & Iniz & " al conc.n. " & fin & " Per il DailyPlayFT "
		Scrivi "Quante Estrazione vuoi esaminare?.... " & z
		Scrivi "Somma nr. consecutività.." & v
		Scrivi "Verifica risultati n.colpi " & co
		Scrivi "Garanzia richiesta per controllo riepilogo... " & lis
		Scrivi "Quanti concorsi precedenti per verifica terni-quaterni già usciti?..." & co2
		Scrivi "Terno = 3   o     Quaterna = 4  x verifica?   " & lis2
		Scrivi "Conc.n.       01 02 03 04 05 06 07 ........somme......... 01 02 03 04 05 06 "
		Scrivi "______________________________________________________________________________________________________________________________________________________"
		ColoreTesto 1
		sRecord = "leggo L'archivio dall'estrazione n." & ini & "   all'estrazione n." & EstrazioniArchivioFT
		Scrivi sRecord,1
		sRecord = "si compone di " & EstrazioniArchivioFT & " estrazioni "
		Scrivi
 
credoche ka progressione a 0,10 non si può segire
si deve puntare solo a vincite grosse terno e quaterna bisogna solo capire come impostare le giocate e quanto pagano le relative vincite
nel lottolive cebino giocava solo la quaterna qui se volgio giocare solo la quaterna e i 4 terni in quaterna come devo configurare lo script per avere un resoconto reale?
 
Rubino facciamo una prova elimina dallo script tutte le giocate poste progressioni dal terno in poi per giocare ambata e ambo soltanto posta un solo euro 0.50 x 2 verifica se ambo gia sortito a ritroso le coppie separjdate e no unite
 
ho provato ad apportare le modifiche da me indicate
questo è lo script
Sub Main
'''''''''''''''''''script dayli play per il gioco dell'AMBO_
Dim sFileinput
Dim sFileoutput
Dim sRecord
sFileinput = "c:\Temp\DailyPlay.txt"
sFileoutput = "c:\Temp\DailyPlay2.txt"
Call EliminaFile(sFileoutput)
nx = GetScriviFileEstrazioni(sFileoutput,sFileinput)
Call Messaggio(" Elaborato : " & nx)
Dim sFile
sFile = sFileoutput
Dim n(7)
Dim Asom(7)
Dim aRighe(0)
Dim aposte(5)
''''''''''''''''''''''''Considera inoltre che l'ambata paga 3.25,l'ambo 14 e il terno 60 E QUATERNA 300.
'aposte(1) = 0.50 ' estratto
aposte(2) = 1
' attenzione lo script assume che 1 sia la posta minima per ciascuna giocata
' cio è importante per il calcolo della vincita
'SetPremioPagatoFT 1,1,3.25,1 'Ambata semplice
'SetPremioPagatoFT 2,1,1.65,1 ' coppia per Ambata
SetPremioPagatoFT 2,2,14.00,1 ' Ambo semplice
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,7,",") 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",,2)
lis = InputBox("ambata=1, ambo=2",,2)
SEL = InputBox("Vuoi giocare Tutte le combinazioni o solo le unificate? S,U ",,"S")
co = InputBox("verifica riscontri in colpi n...",,14)
lis2 = InputBox("Verifica se Terno/quaterna già usciti",,2)
co2 = InputBox("Verifica n.conc.prec. per Terno/quaterna già usciti",,150)

fin = storia
ini = storia - z
Iniz = ini
Scrivi "Rileva somme numeri dal concorso n." & Iniz & " al conc.n. " & fin & " Per il DailyPlayFT "
Scrivi "Quante Estrazione vuoi esaminare?.... " & z
Scrivi "Somma nr. consecutività.." & v
Scrivi "Verifica risultati n.colpi " & co
Scrivi "Garanzia richiesta per controllo riepilogo... " & lis
Scrivi "Quanti concorsi precedenti per verifica terni-quaterni già usciti?..." & co2
Scrivi "Terno = 3 o Quaterna = 4 x verifica? " & lis2
Scrivi "Conc.n. 01 02 03 04 05 06 07 ........somme......... 01 02 03 04 05 06 07 "
Scrivi "______________________________________________________________________________________________________________________________________________________"
ColoreTesto 1
sRecord = "leggo L'archivio dall'estrazione n." & ini & " all'estrazione n." & 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 7
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)
n(7) = EstrattoFT(ini,7)
snconc = ini
riga = ""
riga = riga & snconc & "............." & Format2(n(1)) & " " & Format2(n(2)) & " " & Format2(n(3)) & " " & Format2(n(4)) & " " & Format2(n(5)) & " " & Format2(n(6)) & " " & Format2(n(7))
If v = 2 Then
For b = 1 To 6
c = FuoriX(Int(n(b)) + Int(n(b + 1)),27)
Asom(b) = CLng(c)
Next
lim = 6
End If
If v = 3 Then
For b = 1 To 5
c = FuoriX(Int(n(b)) + Int(n(b + 1)) + Int(n(b + 2)),27)
Asom(b) = CLng(c)
Next
lim = 5
End If
rsomme = ""
For f = 1
 
ciao keeper

ho provato a fare dello modifiche, lo devi provare per vedere se va bene.</u>


sul mio archivietto di 153 estrazioni, mi sembra che funzioni.
tieni conto che ho dovuto inserire delle progressioni per 14 concorsi
sia per il terno e terno in quartina e quaterna secca.</u>



Codice: 
Sub Main
	'''''''''''''''''''script dayli play per il gioco dell'AMBO_
	Dim sFileinput
	Dim sFileoutput
	Dim sRecord
	sFileinput = "c:\Temp\DailyPlay.txt"
	sFileoutput = "c:\Temp\DailyPlay2.txt"
	Call EliminaFile(sFileoutput)
	nx = GetScriviFileEstrazioni(sFileoutput,sFileinput)
	Call Messaggio(" Elaborato : " & nx)
	Dim sFile
	sFile = sFileoutput
	Dim n(7)
	Dim Asom(7)
	Dim aRighe(0)
	Dim aposte(5)
	''''''''''''''''''''''''Considera inoltre che l'ambata paga 3.25,l'ambo 14 e il terno 60 E QUATERNA 300.
	'aposte(1) = 0.50 ' estratto
	aposte(2) = 1
	' attenzione lo script assume che 1 sia la posta minima per ciascuna giocata
	' cio è importante per il calcolo della vincita
	'SetPremioPagatoFT 1,1,3.25,1 'Ambata semplice
	'SetPremioPagatoFT 2,1,1.65,1 ' coppia per Ambata
	SetPremioPagatoFT 2,2,14.00,1 ' Ambo semplice
	SetPremioPagatoFT 2,4,2.33,1 ' Ambo semplice
	SetPremioPagatoFT 3,3,60.00,1 ' terno semplice
	SetPremioPagatoFT 3,4,15.00,1 ' terno semplice
	SetPremioPagatoFT 4,4,300.00,1 ' quaterna semplice
	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,7,",") 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",,2)
		lis = InputBox("ambata=1, ambo=2",,2)
		SEL = InputBox("Vuoi giocare Tutte le combinazioni o solo le unificate? S,U ",,"S")
		co = InputBox("verifica riscontri in colpi n...",,14)
		lis2 = InputBox("Verifica se Ambo/Terno/quaterna già usciti",,2)
		co2 = InputBox("Verifica n.conc.prec. per Ambo/Terno/quaterna già usciti",,150)
		fin = storia
		ini = storia - z
		Iniz = ini
		Scrivi "Rileva somme numeri dal concorso n." & Iniz & " al conc.n. " & fin & " Per il DailyPlayFT "
		Scrivi "Quante Estrazione vuoi esaminare?.... " & z
		Scrivi "Somma nr. consecutività.." & v
		Scrivi "Verifica risultati n.colpi " & co
		Scrivi "Garanzia richiesta per controllo riepilogo... " & lis
		Scrivi "Quanti concorsi precedenti per verifica ambi-terni-quaterni già usciti?..." & co2
		Scrivi "Ambo = 2  o  Terno = 3 o Quaterna = 4 x verifica? " & lis2
		Scrivi "Conc.n. 01 02 03 04 05 06 07 ........somme......... 01 02 03 04 05 06 07 "
		Scrivi "______________________________________________________________________________________________________________________________________________________"
		ColoreTesto 1
		sRecord = "leggo L'archivio dall'estrazione n." & ini & " all'estrazione n." & 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 7
				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)
			n(7) = EstrattoFT(ini,7)
			snconc = ini
 
quote:Originally posted by rubino

questo script ha impostato le poste di
1 euro per il terno
1 euro per la quaterna
1 euro per la cinquina


il resoconto con la richiesta di verifica nel resoconto finale le combinazioni di terno-quaterna

terni = 13
quaterna = 1

risulta positivo! di poco ma positivo.



Codice: 
Sub Main
	'''''''''''''''''''script 
	Dim sFileinput
	Dim sFileoutput
	Dim sRecord
	sFileinput = "c:\Temp\DailyPlay.txt"
	sFileoutput = "c:\Temp\DailyPlay2.txt"
	Call EliminaFile(sFileoutput)
	nx = GetScriviFileEstrazioni(sFileoutput,sFileinput)
	Call Messaggio(" Elaborato : " & nx)
	Dim sFile
	sFile = sFileoutput
	Dim n(7)
	Dim Asom(7)
	Dim aRighe(0)
	Dim aposte(5)
	''''''''''''''''''''''''Considera inoltre che l'ambata paga 3.25,l'ambo 14 e il terno 60 E QUATERNA 300.
	'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 'Ambata 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,7,",") 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",,2)
		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...",,50)
		lis2 = InputBox("Verifica se Terno/quaterna già usciti",,3)
		co2 = InputBox("Verifica n.conc.prec. per Terno/quaterna già usciti",,50)
		
		fin = storia
		ini = storia - z
		Iniz = ini
		Scrivi "Rileva somme numeri dal concorso n." & Iniz & " al conc.n. " & fin & " Per il DailyPlayFT "
		Scrivi "Quante Estrazione vuoi esaminare?.... " & z
		Scrivi "Somma nr. consecutività.." & v
		Scrivi "Verifica risultati n.colpi " & co
		Scrivi "Garanzia richiesta per controllo riepilogo... " & lis
		Scrivi "Quanti concorsi precedenti per verifica terni-quaterni già usciti?..." & co2
		Scrivi "Terno = 3   o     Quaterna = 4  x verifica?   " & lis2
		Scrivi "Conc.n.       01 02 03 04 05 06 07 ........somme......... 01 02 03 04 05 06 "
		Scrivi "______________________________________________________________________________________________________________________________________________________"
		ColoreTesto 1
		sRecord = "leggo L'archivio dall'estrazione n." & ini & "   all'estrazione n." & EstrazioniArchivioFT
		Scrivi sRecord,1
		sRecord = "si compone di " & EstrazioniArchivioFT & "
Clicca per espandere...
 
keeper scusa una cosa

ma se io ti posto uno script aggiornato, perchè ne prendi un'altro?


prova l'ultimo script che ho postato e modificato, poi fammi sapere cosa non va o cosa ti serve di preciso.


poi, diciamo che il metodo minimo prende in considerazione 4 numeri (una quartina)

in una quartina ci sono 4 terni

spendi 4 euro o spendi 1 euro?

se spendi 4 euro, il premio per 1 terno è uguale a 15€ di vincita
se spendi 1 euro, il premio per 1 terno è uguale a 3,75€ di vincita.




quote:ti ripeto io devo giocare 1 euro per la sorte del terno
in quartina
sviluppa 4 ambi vincita € 15
ti allego anche il resoconto
Clicca per espandere...


che vuol dire?


un terno è formato da 3 ambi
una quartina forma 6 ambi


ciao



-----------------------------
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 dell'aleatorio!
 
Buongiorno non è mia intenzione indurti in errore lo script x l'anbo va bene invece questo che ti ho postato è quello tratto da lotto live di cebino di cui sono anche portavoce allora in questo gioco daily noo è possibile giocare 0.10 come posta ma 1 euro. poi abbiamo scelto di giocarlo solo sula combinazione terni 4 in quartina quindi puntiamo 0.25 per ogni terno e sbecco tre numeri vinco 15 euro e non 4 euro .se faccio la verifica le bollette giocate non corrisponde alla spesa effettiva
 
ciao keeper e buona giornata

volevo dirti, che lo script del lottolive fatto a cebino, lo abbiamo preso come base per il dailyplay.
okey

infatti ora, le progressioni, impostate con posta da 0.10, per ambi,terni,quaterne non ci frega più niente perchè le poste in gioco sono da 1 euro.

okey

infatti l'ultimo script che ti ho postato io, (evidenziato in blu) avevo già corretto le progressioni a 1 euro

che ti rimetto qui per controllo:

Codice: 
aProgressioni(2,1) = 1 ' sorte 2 colpo 1
	aProgressioni(2,2) = 1 ' sorte 2 colpo 2
	aProgressioni(2,3) = 1 ' sorte 2 colpo 3
	aProgressioni(2,4) = 1 ' sorte 2 colpo 4
	aProgressioni(2,5) = 1 ' sorte 2 colpo 5
	aProgressioni(2,6) = 1 ' sorte 2 colpo 6
	aProgressioni(2,7) = 1 ' sorte 2 colpo 7
	aProgressioni(2,8) = 1 ' sorte 2 colpo 8
	aProgressioni(2,9) = 1 ' sorte 2 colpo 9
	aProgressioni(2,10) = 1 ' sorte 2 colpo 10
	aProgressioni(2,11) = 1 ' sorte 2 colpo 11
	aProgressioni(2,12) = 1 ' sorte 2 colpo 12
	aProgressioni(2,13) = 1 ' sorte 2 colpo 13
	aProgressioni(2,14) = 1 ' sorte 2 colpo 14
	aProgressioni(2,15) = 1 ' sorte 2 colpo 15
	aProgressioni(3,1) = 0.5 ' sorte 3 colpo 1
	aProgressioni(3,2) = 0.5 ' sorte 3 colpo 2
	aProgressioni(3,3) = 0.5 ' sorte 3 colpo 3
	aProgressioni(3,4) = 0.5 ' sorte 3 colpo 4
	aProgressioni(3,5) = 0.5 ' sorte 3 colpo 5
	aProgressioni(3,6) = 0.5 ' sorte 3 colpo 6
	aProgressioni(3,7) = 0.5 ' sorte 3 colpo 7
	aProgressioni(3,8) = 0.5 ' sorte 3 colpo 8
	aProgressioni(3,9) = 0.5 ' sorte 3 colpo 9
	aProgressioni(3,10) = 0.5 ' sorte 3 colpo 10
	aProgressioni(3,11) = 0.5 ' sorte 3 colpo 11
	aProgressioni(3,12) = 0.5 ' sorte 3 colpo 12
	aProgressioni(3,13) = 0.5 ' sorte 3 colpo 13
	aProgressioni(3,14) = 0.5 ' sorte 3 colpo 14
	aProgressioni(3,15) = 0.5 ' sorte 3 colpo 15
	aProgressioni(4,1) = 0.5 ' sorte 4 colpo 1
	aProgressioni(4,2) = 0.5 ' sorte 4 colpo 2
	aProgressioni(4,3) = 0.5 ' sorte 4 colpo 3
	aProgressioni(4,4) = 0.5 ' sorte 4 colpo 4
	aProgressioni(4,5) = 0.5 ' sorte 4 colpo 5
	aProgressioni(4,6) = 0.5 ' sorte 4 colpo 6
	aProgressioni(4,7) = 0.5 ' sorte 4 colpo 7
	aProgressioni(4,8) = 0.5 ' sorte 4 colpo 8
	aProgressioni(4,9) = 0.5 ' sorte 4 colpo 9
	aProgressioni(4,10) = 0.5 ' sorte 4 colpo 10
	aProgressioni(4,11) = 0.5 ' sorte 4 colpo 11
	aProgressioni(4,12) = 0.5 ' sorte 4 colpo 12
	aProgressioni(4,13) = 0.5 ' sorte 4 colpo 13
	aProgressioni(4,14) = 0.5 ' sorte 4 colpo 14
	aProgressioni(4,15) = 0.5 ' sorte 4 colpo 15



come puoi vedere per l'ambo ho impostato la progressione 1 euro per 15 colpi

come puoi vedere , ho impostato 0.50centesimi per il terno e per la quaterna per 15 colpi.

ora per il terno e quaterna non so cosa hai intenzione di mettere se 0.50 o frazioni più piccole o più grandi.

inizia a modificare questi valori con quello che vorresti tu e poi provalo.


dopo , vedremo se il riepilogo sbaglia da qualche parte e cosa eventualmente c'è di sbagliato.


ti evidenzio inoltre che nella parte dello script, vi sono queste istruzioni, che sono le più importanti per capire cosa devi fare.</u>

Codice: 
	' attenzione lo script assume che 1 sia la posta minima per ciascuna giocata
	' cio è importante per il calcolo della vincita
	'SetPremioPagatoFT 1,1,3.25,1 'Ambata semplice
	'SetPremioPagatoFT 2,1,1.65,1 ' coppia per Ambata
	SetPremioPagatoFT 2,2,14.00,1 ' Ambo semplice
	SetPremioPagatoFT 2,4,2.33,1 ' Ambo semplice
	SetPremioPagatoFT 3,3,60.00,1 ' terno semplice
	SetPremioPagatoFT 3,4,15.00,1 ' terno semplice
	SetPremioPagatoFT 4,4,300.00,1 ' quaterna semplice
	ReDim aProgressioni(10,255) ' predimensiono l'array delle progressioni





-----------------------------
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 matematic
 
Lo avevo già notato delle modifiche alle progressioni cmq se gioco solo 1 euro secondo me devo indicare 0.25 per ogni terno (4x0.25)= 1 euro della quartina e 0 per la quartina secca
 
con un pò di calma sono riuscitoa modificare lo script cora da risultati esatti ti psoto la modifica e il resoconto
''''''''''''Considera inoltre che l'ambata paga 3.25,l'ambo 14 e il terno 60 E QUATERNA 300.
'aposte(1) = 1 ' estratto
'aposte(2) = 1
aposte(3) = 0.25
'aposte(4) = 1
'aposte(5) = 1
' attenzione lo script assume che 1.00 sia la posta minima per ciascuna giocata
' cio è importante per il calcolo della vincita
'SetPremioPagatoFT 1,1,3.25,0.10 'Ambata semplice
'SetPremioPagatoFT 2,1,1.65,0.10 ' coppia per Ambata
'SetPremioPagatoFT 3,1,1.08,0.10 ' Terzina per Amabata
'SetPremioPagatoFT 2,2,14,0.10 ' Ambo semplice
'SetPremioPagatoFT 3,2,4.67,0.10 ' Terzina per ambo - 3 Ambi
'SetPremioPagatoFT 3,3,60,0.10 ' Terno semplice
'SetPremioPagatoFT 4,2,2.33,0.10 ' Quartina per ambo - 6 Ambi
SetPremioPagatoFT 4,3,15,0.25 ' Quartina per Terno - 4 Terni
SetPremioPagatoFT 4,4,300,1 ' Quaterna semplice
'SetPremioPagatoFT 5,2,1.40,0.10 ' Cinquina per ambo - 10 ambi
'SetPremioPagatoFT 5,3,6.,0.10 ' Cinquina per Terno - 10 Terni
'SetPremioPagatoFT 5,4,60,0.10 ' Cinquina per Quaterna - 5 Quaterne
'SetPremioPagatoFT 5,5,2000,0.10 ' Cinquina semplice
'SetPremioPagatoFT 6,3,3,0.10 ' Sestina per Terno - 20 Terni
'SetPremioPagatoFT 6,4,20,0.10 ' Sestina per Quaterna - 15 Quaterne
'SetPremioPagatoFT 6,5,333,0.10 ' Sestina per cinquina - 6 cinquine
'SetPremioPagatoFT 6,6,20000,0.10 ' Sestina semplice
'SetPremioPagatoFT 7,3,1.72,0.10 ' Settina per Terno - 35 Terni
'SetPremioPagatoFT 7,4,8.57,0.10 ' Settina per quaterna - 35 quaterne
'SetPremioPagatoFT 7,5,95,0.10 ' Settina per cinquina - 21 cinquine
'SetPremioPagatoFT 7,6,285,0.10 ' Settina per sestina - 7 sestine
'SetPremioPagatoFT 7,7,20000,0.10 ' Settina semplice
+-------------------------------------------------+
| RESOCONTO |
+-------------------------------------------------+
| Casi esaminati : 42 |
| Casi vincenti : 25 |
| Percentuale pos. : 59,52 % |
| Giocate in corso : 5 |
| Giocate terminate : 37 |
| Bollette giocate : 399 |
| Bollette vincenti : 25 |
| Attesa media : 7 |
| Spesa : 399,00 € |
| Vincita : 420,00 € |
| Guadagno : 21,00 € |
| Perc. Rendimento : 5,263 % |
| Mass. Esposizione : 61,00 € |
| Estratto : 76 |
| Ambo : 78 |
| Terno : 28 |
| Quaterna : 1 |
| Cinquina : 0 |
| 6 numeri : 0 |
| 7 numeri : 0 |
+-------------------------------------------------+
ho disattivato le progressioni
 
questo è lo script definitivo
quindi ora quello che no fa lo script è il controllo a ritroso delle terzine o quartinegà uscite
Sub Main
'''''''''''''''''''script DAILYPLAYFT poste cambiate
Dim sFileinput
Dim sFileoutput
Dim sRecord
sFileinput = "c:\Temp\DailyPlay.txt"
sFileoutput = "c:\Temp\DailyPlay2.txt"
Call EliminaFile(sFileoutput)
nx = GetScriviFileEstrazioni(sFileoutput,sFileinput)
Call Messaggio(" Elaborato : " & nx)
Dim sFile
sFile = sFileoutput
Dim n(7)
Dim Asom(7)
Dim aRighe(0)
Dim aposte(5)
''''''''''''Considera inoltre che l'ambata paga 3.25,l'ambo 14 e il terno 60 E QUATERNA 300.
'aposte(1) = 1 ' estratto
'aposte(2) = 1
aposte(3) = 0.25
aposte(4) = 1
'aposte(5) = 1
' attenzione lo script assume che 1.00 sia la posta minima per ciascuna giocata
' cio è importante per il calcolo della vincita
'SetPremioPagatoFT 1,1,3.25,0.10 'Ambata semplice
'SetPremioPagatoFT 2,1,1.65,0.10 ' coppia per Ambata
'SetPremioPagatoFT 3,1,1.08,0.10 ' Terzina per Amabata
'SetPremioPagatoFT 2,2,14,0.10 ' Ambo semplice
'SetPremioPagatoFT 3,2,4.67,0.10 ' Terzina per ambo - 3 Ambi
'SetPremioPagatoFT 3,3,60,0.10 ' Terno semplice
'SetPremioPagatoFT 4,2,2.33,0.10 ' Quartina per ambo - 6 Ambi
SetPremioPagatoFT 4,3,15,0.25 ' Quartina per Terno - 4 Terni
SetPremioPagatoFT 4,4,300,1 ' Quaterna semplice
'SetPremioPagatoFT 5,2,1.40,0.10 ' Cinquina per ambo - 10 ambi
'SetPremioPagatoFT 5,3,6.,0.10 ' Cinquina per Terno - 10 Terni
'SetPremioPagatoFT 5,4,60,0.10 ' Cinquina per Quaterna - 5 Quaterne
'SetPremioPagatoFT 5,5,2000,0.10 ' Cinquina semplice
'SetPremioPagatoFT 6,3,3,0.10 ' Sestina per Terno - 20 Terni
'SetPremioPagatoFT 6,4,20,0.10 ' Sestina per Quaterna - 15 Quaterne
'SetPremioPagatoFT 6,5,333,0.10 ' Sestina per cinquina - 6 cinquine
'SetPremioPagatoFT 6,6,20000,0.10 ' Sestina semplice
'SetPremioPagatoFT 7,3,1.72,0.10 ' Settina per Terno - 35 Terni
'SetPremioPagatoFT 7,4,8.57,0.10 ' Settina per quaterna - 35 quaterne
'SetPremioPagatoFT 7,5,95,0.10 ' Settina per cinquina - 21 cinquine
'SetPremioPagatoFT 7,6,285,0.10 ' Settina per sestina - 7 sestine
'SetPremioPagatoFT 7,7,20000,0.10 ' Settina semplice
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,7,",") 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",,2)
lis = InputBox("ambata=1, ambo=2, Terno=3 Quaterna=4, Cinquina=5",,3)
SEL = InputBox("Vuoi giocare Tutte le combinazioni o solo le unificate? S,U ",,"U")
co = InputBox("verifica riscontri in colpi n...",,15)
lis2 = InputBox("Verifica se Terno/quaterna già usciti",,3)
co2 = InputBox("Verifica n.conc.prec. per Terno/quaterna già usciti",,200)

fin = storia
ini = storia - z
Iniz = ini
Scrivi "Rileva somme numeri dal concorso n." & Iniz & " al conc.n. " & fin & " Per il DailyPlayFT "
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 07 ........somme......... 01 02 03 04 05 06 07 "
Scrivi "______________________________________________________________________________________________________________________________________________________"
ColoreTesto 1
sRecord = "leggo L'archivio dall'estrazione n." & ini & " all'estrazione n." & EstrazioniArchivioFT
Scrivi sRecord,1
s
 
non postare file perchè se no cancellano anche questo post!

le estrazioni bastano a te che vuoi usare questo script, anche perchè io non sono interessato a questo gioco estero.

adesso mi copio questo script che ha messo e provo a vedere la verifica a ritroso della combinazione se è già uscita.

poi nel pomeriggio e questa sera, te lo riposto corretto.




-----------------------------
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 dell'aleatorio!
 
ciao keeper

sembra andare bene.
aggiornamento fatto:


provalo!



:D

Codice: 
Sub Main
	'''''''''''''''''''script DAILYPLAYFT poste cambiate
	Dim sFileinput
	Dim sFileoutput
	Dim sRecord
	sFileinput = "c:\Temp\DailyPlay.txt"
	sFileoutput = "c:\Temp\DailyPlay2.txt"
	Call EliminaFile(sFileoutput)
	nx = GetScriviFileEstrazioni(sFileoutput,sFileinput)
	Call Messaggio(" Elaborato : " & nx)
	Dim sFile
	sFile = sFileoutput
	Dim n(7)
	Dim Asom(7)
	Dim aRighe(0)
	Dim aposte(5)
	''''''''''''Considera inoltre che l'ambata paga 3.25,l'ambo 14 e il terno 60 E QUATERNA 300.
	'aposte(1) = 1 ' estratto
	aposte(2) = 1
	aposte(3) = 0.25
	'aposte(4) = 1
	'aposte(5) = 1
	' attenzione lo script assume che 1.00 sia la posta minima per ciascuna giocata
	' cio è importante per il calcolo della vincita
	'SetPremioPagatoFT 1,1,3.25,0.10 'Ambata semplice
	'SetPremioPagatoFT 2,1,1.65,0.10 ' coppia per Ambata
	'SetPremioPagatoFT 3,1,1.08,0.10 ' Terzina per Amabata
	'SetPremioPagatoFT 2,2,14,0.10 ' Ambo semplice
	'SetPremioPagatoFT 3,2,4.67,0.10 ' Terzina per ambo - 3 Ambi
	'SetPremioPagatoFT 3,3,60,0.10 ' Terno semplice
	SetPremioPagatoFT 4,2,2.33,0.10 ' Quartina per ambo - 6 Ambi
	SetPremioPagatoFT 4,3,15,0.25 ' Quartina per Terno - 4 Terni
	SetPremioPagatoFT 4,4,300,1 ' Quaterna semplice
	'SetPremioPagatoFT 5,2,1.40,0.10 ' Cinquina per ambo - 10 ambi
	'SetPremioPagatoFT 5,3,6.,0.10 ' Cinquina per Terno - 10 Terni
	'SetPremioPagatoFT 5,4,60,0.10 ' Cinquina per Quaterna - 5 Quaterne
	'SetPremioPagatoFT 5,5,2000,0.10 ' Cinquina semplice
	'SetPremioPagatoFT 6,3,3,0.10 ' Sestina per Terno - 20 Terni
	'SetPremioPagatoFT 6,4,20,0.10 ' Sestina per Quaterna - 15 Quaterne
	'SetPremioPagatoFT 6,5,333,0.10 ' Sestina per cinquina - 6 cinquine
	'SetPremioPagatoFT 6,6,20000,0.10 ' Sestina semplice
	'SetPremioPagatoFT 7,3,1.72,0.10 ' Settina per Terno - 35 Terni
	'SetPremioPagatoFT 7,4,8.57,0.10 ' Settina per quaterna - 35 quaterne
	'SetPremioPagatoFT 7,5,95,0.10 ' Settina per cinquina - 21 cinquine
	'SetPremioPagatoFT 7,6,285,0.10 ' Settina per sestina - 7 sestine
	'SetPremioPagatoFT 7,7,20000,0.10 ' Settina semplice
	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,7,",") 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",,2)
		lis = InputBox("ambata=1, ambo=2, Terno=3 Quaterna=4",,3)
		SEL = InputBox("Vuoi giocare Tutte le combinazioni o solo le unificate? S,U ",,"U")
		co = InputBox("verifica riscontri in colpi n...",,15)
		lis2 = InputBox("Verifica quanti numeri già usciti",,3)
		co2 = InputBox("Verifica in quanti concorsi precedenti ",,50)
		fin = storia
		ini = storia - z
		Iniz = ini
		Scrivi "Rileva somme numeri dal concorso n." & Iniz & " al conc.n. " & fin & " Per il DailyPlayFT "
		Scrivi "Quante Estrazione vuoi esaminare?.... " & z
		Scrivi "Somma nr. consecutività.." & v
		Scrivi "Verifica risultati n.colpi " & co
		Scrivi "Verifica quanti numeri già usciti  " & lis2
		Scrivi "Verifica In quanti concorsi precedenti " & co2
		Scrivi
		Scrivi "Conc.n. 01 02 03 04 05 06 07 ........somme......... 01 02 03 04 05 06 07 "
		Scrivi "______________________________________________________________________________________________________________________________________________________"
		ColoreTesto 1
		sRecord = "leggo L'archivio dall'estrazione n." & ini & " all'estrazione n." & Es
 
ciao rubino lo script sembra rispondere bene ai rewquisiti impostati tra un pò come sempre ti chiederò delle modifice per tentare le vincite superiori. grazie cmoe sempre
 
Stato
Chiusa ad ulteriori risposte.

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