L
LuigiB
Guest
eh un primo passo per renderlo possibile consisterebbe nel rispondere
alla domanda che ho posto 2 post sopra ...
alla domanda che ho posto 2 post sopra ...
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Scusa luigi non avevo compreso la domandaquote:Originally posted by LuigiB
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 ?
quote:Originally posted by nfp72
CIAO A TUTTI MI FA PIACERE VEDERE FINALMENTE CHE SI PARLA ANCHE DI LOTTOLIVE E CHE QUESTA LOTTERIA CREA INTERESSE COMUNE A NOI TUTTI, CARO CEBINO I CASI ESAMINATI CHE TU PORTI 726 PREVISIONI DI CUI 46 NEGATIVI , ATTESTA QUESTA TEORIA AD UNA PERCENTUALE DI POSITIVITA' PARI A CIRCA IL 94% CORREGGIMI SE SBAGLIO!
MOLTO INTERESSANTE !!
MA PENSO CHE SI POSSA ANCORA MIGLIORARE!
SAREBBE BELLO ANCHE CIMENTARSI AD ESTRAPOLARE PREVISIONI CON QUESTA LOTTERIA DIRETTAMENTE ON-LINE COME GIA' SI FA CON IL 10 E LOTTO OGNI 5 MINUTI !!!!
CHE NE PENSATE ??
quote:Originally posted by LuigiB
Ciao Cebino , ora provo a vedere di accontentarti ... il problema come ti dicevo non è la progressione che adoperi tu , quelli sono parametri variabili che dal programma vengono gestiti in modo astratto non è importante se giochi pari dispari 10 100 o 1000 , il problema è la formula per calcolare la vincita che attualmente funziona come al lotto.. comunque ora mi ci dedico un po' e poi vediamo.
quote:Originally posted by LuigiB
ci sono ancora delel cose che non mi sono chiare.
Esiste una puntata minima ? Qual'è ?
Mi spiego : usando l'esempio di cebino se invece di 1,50 avessi giocato
un euro , la posta per ogni singola quaterna nella sestina sarebbe stata 0,06 .. avrei potuto farlo ?
E' necessario sapere questa informazione per poter calcolare
l'eventuale vincita quando uno gioca di piu della posta minima.
Da come mi pare di intuire la posta minima sarebbe 0,10 ? Dovrebbe essere cosi visto che giocando 0,20 a quaterna avrei vinto il doppio...
comunque preferirei che qualcuno mi linkasse la pagina del regolamento ufficiale. Esiste ?
quote:Originally posted by LuigiB
Cebi nel frattempo che faccio ste modifiche fai una cosa.
prendi il file dello script che stai usando (lo script di Rubino )
aggiungici il file txt delle estrazioni zippa il tutto e mandamelo per posta che ieri da megaupload non l'ho potuto scaricare che mi dava non disponibile.
Sub Main
'''''''''''''''''''script LOTTOGOLDFT
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 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
' 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
SetPremioPagatoFT 2,1,2.925,0.10
SetPremioPagatoFT 3,1,1.95,0.10
SetPremioPagatoFT 2,2,40.00,0.10
SetPremioPagatoFT 3,2,13.33,0.10
SetPremioPagatoFT 3,3,345.00,0.10
SetPremioPagatoFT 4,4,3850.00,0.10
SetPremioPagatoFT 4,2,1,0.10' COME MAI MANCAVA L'IMPORTO PER AMBO ? IO HO MESSO UNA VINCITA FITTIZZIA PARI A 1 FARE LA MODIFICA
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)
z = InputBox("Quante Estrazione vuoi esaminare? ",,1440)
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...",,18)
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
quote:Originally posted by LuigiB
se non hai toccato nula mi sa che non ti trova il file delle estrazioni io avevo modificato il percorso.
Deve essetre per forza cosi perche a me funziona perfettamente ed inoltre qulla parte di codice non è implicata nella modifica
sFileinput = GetDirectoryAppData & "NumbersGBGold.txt"
sFileoutput = GetDirectoryAppData & "NumbersGBGold2.txt"