R
Roby
Guest
ciao keeper
ho inserito la routine di controllo nei 10 concorsi precedenti
per gli ambi secchi
ma avendo un file con pochi concorsi, non ho trovato casi di
ambi già usciti nei 10 concorsi precedenti.
dovresti provare te con il tuo file che senz'altro è più completo, per
vedere se funziona o se invece c'è qualche anomalia.
ho inserito la routine di controllo nei 10 concorsi precedenti
per gli ambi secchi
ma avendo un file con pochi concorsi, non ho trovato casi di
ambi già usciti nei 10 concorsi precedenti.
dovresti provare te con il tuo file che senz'altro è più completo, per
vedere se funziona o se invece c'è qualche anomalia.
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,1
Scrivi "______________________________________________________________________________________________________________________________________________________"
ColoreTesto 0
''''leggo archivio
Dim num(1)
For ini = ini + 1 To fin
idestr = ini
''''-----------------------------------------------------------------------
[?]
