quote:
Originally posted by rubino
okey alla variazione
ma questa riguarda solo il primo script
la farò!
l'unica cosa è che se è uscita una quaterna nei 500 concorsi precedenti, non è detto che si possa ripetere, entro lo stesso range.
e se sfora, non è detto che chissà quando riuscirà, magari dopo 3000 estrazioni .
-----------------------------
hobby e passatempo, il bello dello studio e della ricerca
Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.
E infatti hai ragione,
proprio per questo va fatta la verifica a ritroso, per capire l'andamento di una quartina.Certo avere una serie di statistiche gia preconfezzionate sarebbe bello ma gia cosi e un passo.
Ora ti allego lo script esatto modificato nelle quote e nelle progressioni. Prendi come riferimento questo, dove allo stato attuale con l'archivio da circa 20000 estrazioni sono in attivo di circa 3000 €.
Inoltre se vuoi ho fatto la pubblicazione delle estrazioni in html da dove le puoi prendere live
Pero fai in modo di poter scegliere l'archivio o online o locale
Estrazioni
http://www.lotterianumberstar.com/Lottolivestrazioni/NumbersGBGold.txt
Script
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 ' 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? ",,ultimo)
v = InputBox("Somma nr.Consecutivi 2,3",,2)
lis = InputBox("ambata=1, ambo=2, Terno=3 Quaterna=4, Cinquina=5",,4)
SEL = InputBox("
