per luigi urge correzione

[keeper]

questo script non mi stoppa le giocate quando una delle due coppie sortisce oppure ambo in quartina
Sub Main
'''''''''''''''''''script uk49
Dim sFileinput
Dim sFileoutput
Dim sRecord
sFileinput = "c:\Temp\uk.txt"
sFileoutput = "c:\Temp\uk2.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.20,l'ambo 79,20 e il terno 560 E QUATERNA 2000.
'aposte(1) = 0.20 'Estratto
aposte(2) = 0.20
'aposte(3) = 0.20
'aposte(4) = 0.20
'aposte(5) = 0.20
' attenzione lo script assume che 1.00 sia la posta minima per ciascuna giocata
' cio è importante per il calcolo della vincita
SetPremioPagatoFT 1,1,1.1,0.20 'Ambata semplice
SetPremioPagatoFT 2,1,1.1,0.20 ' coppia per Ambata
SetPremioPagatoFT 3,1,1.1,0.10 ' Terzina per Amabata
SetPremioPagatoFT 2,2,8.8,0.20 ' Ambo semplice
SetPremioPagatoFT 3,2,8.8,0.20 ' Terzina per ambo - 3 Ambi
SetPremioPagatoFT 3,3,88,0.20 ' Terno semplice
SetPremioPagatoFT 4,1,1.1,0.20 ' Quartina per Estratto - 4 estratti
SetPremioPagatoFT 4,2,8.8,0.20 ' Quartina per ambo - 6 Ambi
SetPremioPagatoFT 4,3,88,0.20 ' Quartina per Terno - 4 Terni
SetPremioPagatoFT 4,4,1000,0.20 ' Quaterna semplice
SetPremioPagatoFT 5,1,6.50,0.20 'Cinquina per estratto - 5 estratti
SetPremioPagatoFT 5,2,132,0.20 ' Cinquina per ambo - 10 ambi
SetPremioPagatoFT 5,3,1400,0.20 ' Cinquina per Terno - 10 Terni
SetPremioPagatoFT 5,4,10000,0.20 ' Cinquina per Quaterna - 5 Quaterne
SetPremioPagatoFT 5,5,30000,0.20 ' Cinquina 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",,2)
SEL = InputBox("Vuoi giocare Tutte le combinazioni o solo le unificate? S,U ",,"U")
co = InputBox("verifica riscontri in colpi n...",,6)
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 uk49FT "
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." & 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

 

[LuigiB]

ciao keeper il motivo è semplicissimo e lo puoi scoprire da solo
guardanto l'help dello script nella funzione ImpostaGiocataFT ...
potrei dirtelo io ovviamente ma sono sicuro che se te lo vai a cercare nell'help ti rimarrà impresso.

 

[keeper]

quote:

dopo due giorni di attenta lettura dello script e una lunga pausa di riflessione credo che il problema vara risolto con questa sintassi
dimmi se è vero per favore
ImpostaGiocataFT(1,tnm,aposte,Int(co),3,,1)
anzicché
Call ImpostaGiocataFT(1,tnm,aposte,co,lis)

 

[LuigiB]

Bravo Keeper ! Si prova cosi e fammi sapere, la sintassi è giusta , fai il test e dimmi se funziona.Ciao !

 

[keeper]

si luigib funziona ho imparato un'altra cosa.grazie

 

[keeper]

quote:Originally posted by keeper

si luigib funziona ho imparato un'altra cosa.grazie

ne approfitto per un'altra richiesta vorrei creare uno script per il winforlife utilizzando più o meno lo stesso script
volevo iniziare a chiederti devo per prima cosa creare un archivio in txt? che devo gestire sempre in una cartella specifica
e poi modificare lo script per 20 numeri totali e dieci estratti.

 

[LuigiB]

certo , il file tzt lo puoi mettere dve ti pare tanto poi il percorso che usi lo imposti nello script.
Ciao

 

[keeper]

l'unica cosa ho questo tipo di archivio con questa formattazione
1id 29/09/2009data 12ora 1 4 5 10 14 15 16 17 18 20 7numerone
2 29/09/2009 13 2 5 6 9 10 11 14 15 17 18 2
3 29/09/2009 14 1 4 8 9 10 11 16 17 19 20 12
4 29/09/2009 15 4 6 7 8 11 12 13 15 19 20 13
5 29/09/2009 16 2 3 5 6 7 10 13 16 17 19 17
6 29/09/2009 17 2 6 8 11 12 13 14 16 17 19 10
7 29/09/2009 18 9 10 12 13 14 15 16 17 19 20 18
8 29/09/2009 19 7 8 9 10 12 13 14 16 17 19 6
9 29/09/2009 20 3 7 8 9 12 14 16 17 18 19 5
10 30/09/2009 8 1 2 3 4 5 6 8 9 16 17 1
11 30/09/2009 9 1 2 5 6 7 10 13 15 17 19 11
12 30/09/2009 10 1 2 5 9 10 13 16 17 18 19 8
13 30/09/2009 11 1 3 5 6 7 11 14 15 18 19 14
14 30/09/2009 12 3 4 7 9 10 12 13 15 16 17 18
15 30/09/2009 13 2 6 7 8 9 10 11 15 16 19 6
16 30/09/2009 14 1 4 5 6 7 11 12 13 16 19 20
17 30/09/2009 15 2 4 7 8 9 12 15 16 17 20 17
18 30/09/2009 16 2 3 4 5 7 8 9 10 16 20 3

 

[keeper]

è questo è l o script che vorrei modificare
Sub Main()
' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
'-------------------------------------------------------------------------------------------------------------------------------
ImpostaArchivio10ELotto(2)
Dim num(20)
Dim asom(20)
Dim acolpi(9999)
storia = InputBox("Statistica Ult.Estrazione da Considerare ",,EstrazioniArchivioDL)
z = InputBox("Quante Estrazione vuoi esaminare? ",,50)
v = InputBox("somma nr.consecutivi 2,3,4,5",,5)
lis = InputBox("Estratto=1, ambo=2, Terno=3, Quaterna=4, Cinquina=5",,5)
acc = InputBox("Accorpa giocate Si-No ",,"S")
fin = storia
Ini = storia - z
Scrivi "Rileva somme numeri dal concorso n." & Ini & " al conc.n. " & fin & " Per il 10 E LOTTO 5 minuti - by Rubino - "
Scrivi "Somma nr. consecutività.." & v
Scrivi "Accorpa giocate.." & acc
Scrivi "Verifica esito : segnala punteggio >= di..." & lis
Scrivi "Conc.n. 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 ........somme......... 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20"
Scrivi "______________________________________________________________________________________________________________________________________________________"
For x = 1 To z
idestr = storia - x
riga = ""
For t = 1 To 20
asom(t) = ""
Next
For yy = 1 To 20
riga = riga & Format2(EstrattoDL(idestr,yy)) & " "
num(yy) = Format2(EstrattoDL(idestr,yy))
Next
If v = 2 Then
For b = 1 To 19
c = Fuori90(Int(num(b)) + Int(num(b + 1)))
asom(b) = asom(b) & CLng(c)
Next
lim = 19
End If
If v = 3 Then
For b = 1 To 18
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)))
asom(b) = asom(b) & CLng(c)
Next
lim = 18
End If
If v = 4 Then
For b = 1 To 17
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)))
asom(b) = asom(b) & CLng(c)
Next
lim = 17
End If
If v = 5 Then
For b = 1 To 16
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)) + Int(num(b + 4)))
asom(b) = asom(b) & CLng(c)
Next
lim = 16
End If
rsomme = ""
For f = 1 To Int(lim)
rsomme = rsomme & Format2(asom(f)) & " "
Next
Scrivi "___________________________________________________________________________________________________________________________________________________________"
ColoreTesto(0)
Scrivi idestr & " " & riga & "......................." & rsomme
''''riepilogo terni con somme uguali
For r = 1 To lim
For r2 = r + 1 To lim + 1
If asom(r) = asom(r2) Then
t1 = Format2(EstrattoDL(idestr,r))
t2 = Format2(EstrattoDL(idestr,r + 1))
If v = 3 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
End If
If v = 4 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
t4 = Format2(EstrattoDL(idestr,r + 3))
End If
If v = 5 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
t4 = Format2(EstrattoDL(idestr,r + 3))
t5 = Format2(EstrattoDL(idestr,r + 4))
End If
u1 = Format2(EstrattoDL(idestr,r2))
u2 = Format2(EstrattoDL(idestr,r2 + 1))
If v = 3 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
End If
If v = 4 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
u4 = Format2(EstrattoDL(idestr,r2 + 3))
End If
If v = 5 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
u4 = Format2(EstrattoDL(idestr,r2 + 3))
u5 = Format2(EstrattoDL(idestr,r2 + 4))
End If
ColoreTesto(1)
Scrivi "------ somma.." & Format2(asom(r)) & " ............" & t1 & " " & t2 & " " & t3 & " " & t4 & " " & t5 & " " & u1 & " " & u2 & " " & u3 & " " & u4 & " " & u5
ReDim tnm(10)
For j = 1 To 10
tnm(j) = 0
Next
tnm(1) = t1
tnm(2) = t2
tnm(3) = t3
tnm(4) = t4
tnm(5) = t5
''''''' accorpa giocate in una unica
If acc = "S" Then
tn

 

[LuigiB]

bene qual'è il tuo dubbio ?

 

[keeper]

il mio dubbio la formattazione dell'archivio

 

[Roby]

Ehilà Keep, vedo che ti stai dedicando ad altri giochi, spero tu faccia soffrire un pò la lottomatica....

Blackmore

 

[stef]

quote:Originally posted by keeper

questo script non mi stoppa le giocate quando una delle due coppie sortisce oppure ambo in quartina

Ciao keeper, anch'io sono un appassionato di loto uk, ho provato a far girare il tuo script, ma senza successo.
Potresti postare lo script corretto?

Grazie
ciao

 

[bergie]

quote:Originally posted by stef

quote:Originally posted by keeper

questo script non mi stoppa le giocate quando una delle due coppie sortisce oppure ambo in quartina

Ciao keeper, anch'io sono un appassionato di loto uk, ho provato a far girare il tuo script, ma senza successo.
Potresti postare lo script corretto?

Grazie
ciao

ciao stef
copia bene da sub main a end sub
apri sez. script e cancella le scritte option ecc,
incolla e lancia.

 

[LuigiB]

ciao Keeper , ho capito nel tuo file di testo disponi anche dell'ora
cosa non prevista per l'acquisizione del file.
Quindi la soluzione consiste nel creare prima un file di testo che rispetti le regole di formattazione previste.
Hai 2 strade

la prima piu semplice consiste nell'aprire il file ad esempio
con excel cancellare la colonna dell'ora e risalvare il file

la seconda invece prevede che da script attraverso il sapiente uso
delle funzioni LeggiRigheFileDiTesto , SplitByChar e
ScriviFile tu possa riprodurre il file col formato che ti serve.

il processo sarebbe questo :
1) Leggo tutte le righe del file in un array
2) ciclo sull'array per tutte le righe e con la funzione splitbychar
ottengo un nuovo array con tutti i dati della riga corrente
3) costruisco una nuova riga partendo dall'array appea detto escludendo la colonna dell'ora
4)con la funzione scrivifile scrivo la nuova riga formattata come voglio

al termine del ciclo avrai un nuovo file con tutte le righe del primo ma senza l'antipatica colonna dell'ora.


Ciao !

 

[stef]

quote:Originally posted by bergie

ciao stef
copia bene da sub main a end sub
apri sez. script e cancella le scritte option ecc,
incolla e lancia.

ciao bergie,
si ho copiato correttamente da sub main a end sub, ma quando lancio lo script, ho questo errore:

Credo che dipenda dal file di archivio. Tu che file utilizzi?
Quello indicato nello script, (uk.txt)?

 

[bergie]

ciao stef
scusa avevo confuso non giocando lotto uk i due script.
ho provato anch'io ma ho lo stesso tuo errore.
bisogna chiedere aiuto a keeper.

 

[keeper]

si dipende file uk.txt che ho creato
x luigi grazie come sempre ci vorra del tempo ma alla fine devo riuscirci.grazie

 

[keeper]

per chi fa girare lo script vi dico che è in fase di test uqindi non affidabile, in quanto dovrei apportare delle modifica perchè i risultati sono negativi per il gioco delle coppie approfitto per chiedervi cosa usate per giocare e dove posso trovare un proigramma che mi indichi le progressioni.

 

[stef]

quote:Originally posted by keeper

si dipende file uk.txt che ho creato
x luigi grazie come sempre ci vorra del tempo ma alla fine devo riuscirci.grazie

Ciao keeper,
io utilizzo questa formattazione nel mio archivio UK

6820;16/06/2011;8;36;25;39;28;48;29
6821;16/06/2011;19;43;20;3;33;22;28
6822;17/06/2011;16;17;31;38;29;45;3
6823;17/06/2011;7;19;39;30;15;12;20
6824;18/06/2011;17;48;35;25;41;8;5

puoi dirmi come hai creato il tuo file?