fillotto
Advanced Member >PLATINUM<
Ho questo script che ho adattato(da uno script di Magia) alla lotteria pensylvenia (30 numeri con estrazioni di 5 numeri giornalieri) non riesco a capire come , in questo caso funzioni il FuoriX sembra che ad ogni estrazione aggiunga 1 , ma trovando in una estrazione il num 30 da 31 quindi non funziona inoltre il resoconto pur segnalando i casi positivi mette 0 alle vincite
Codice:
Prima Giocata : 2600 |
| Ultima Giocata : 2724 |
| Range : 125 |
| Casi giocab perc. : 100% |
+-------------------------------------------------+
| RESOCONTO |
+-------------------------------------------------+
| Casi esaminati : 125 |
| Casi vincenti : 21 |
| Percentuale pos. : 16,8 % |
| Pronostici totali : 125 |
| Pronostici vinc. : 21 |
| Percentuale pos. : 16,8 % |
| Giocate in corso : 5 |
| Giocate terminate : 120 |
| Bollette giocate : 911 |
| Bollette vincenti : 21 |
| Attesa media : 5 |
| Spesa : 18.220,00 € |
| Vincita : 0,00 € |
| Guadagno : -18.220,00 € |
| Perc. Rendimento : -100 % |
| Mass. Esposizione : 3.920,00 € |
| Estratto : 67 |
| Ambo : 75 |
| Terno : 33 |
| Quaterna : 4 |
| Cinquina : 0 |
Codice:
Sub Main()
Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)
Scrivi " Proviamo a Vincere a Lotto Pensylvenia ",1
ReDim aposte(5)
aposte(3) = 2.00
k = 8
Ini = 2600
fin = EstrazioniArchivioFT
For es = ini To fin
Messaggio es
AvanzamentoElab ini,fin,es
e1 = EstrattoFT(es,1)
e2 = EstrattoFT(es,2)
e3 = EstrattoFT(es,3)
e4 = EstrattoFT(es,4)
e5 = EstrattoFT(es,5)
casi = casi + 1
Scrivi String(80,"-") & " Caso n° " & Format2(casi),1
ScriviEstrazioneFT(es),1
Scrivi String(80,"-"),1
ReDim nfr1(5,1),nfr2(5,1),apos5(5)
apos5(5) = True
'apos6(6) = True
For y = 1 To 5
nfr1(y,0) = Format2(y)
nfr1(y,1) = EstrattoFrequenzaFT(y,Ini,fin,apos5)
nfrq1 = EstrattoFrequenzaFT(y,Ini,fin)
Next
OrdinaMatrice nfr1,- 2,1
For y = 1 To 5
nfr2(y,0) = Format2(y)
nfr2(y,1) = EstrattoFrequenzaFT(y,Ini,fin,apos5)
nfrq2 = EstrattoFrequenzaFT(y,Ini,fin)
Next
OrdinaMatrice nfr2,- 2,1
a01 = FuoriX(e1 + 1,50)
a02 = FuoriX(e2 + 1,50)
a03 = FuoriX(e3 + 1,50)
a04 = FuoriX(e4 + 1,50)
a05 = FuoriX(e5 + 1,50)
num = Array(a00,a01,a02,a03,a04,a05)
OrdinaMatrice num,1
Scrivi "Numeri in gioco : " & StringaNumeri(num,",",True),3,3,3
Scrivi String(80,"-"),1
n01 = Array(a00,a01,a02,a03,a04,a05)
ImpostaGiocataFT 01,n01,aposte,k,3,,1
ImpostaGiocataFT 1,num,aposte,k,3,,1
GiocaFT es,True,,True
Next
Scrivi
ScriviResocontoFT
End Sub