ScriviResoconto

[Giulio Pedrinelli]

Ciao a tutti;

stavo testando uno script con Spaziometria e con ScriviResoconto le vincite sono a zero.

 

[Giulio Pedrinelli]

Forse non mi sono spiegato bene, questo è lo script:

Sub Main
Dim poste(3)im ruote(10)im t1(20)
poste(2) = 1
ruote(1) = 4
ruote(2) = 5
ruote(3) = 6
Ini = 9729
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 1 Then
t1(1) = Fuori90(Estratto(es,6,3) + 6)
t1(2) = Fuori90(Estratto(es,6,3) + 7)
t1(3) = Fuori90(Estratto(es,6,3) + 41)
t1(4) = Fuori90(Estratto(es,6,3) + 80)
ImpostaGiocata 1,t1,ruote,poste,9
t1(1) = Fuori90(Estratto(es,4,1) + 21)
t1(2) = Fuori90(Estratto(es,4,1) + 26)
t1(3) = Fuori90(Estratto(es,4,1) + 65)
t1(4) = Fuori90(Estratto(es,4,1) + 81)
ImpostaGiocata 2,t1,ruote,poste,9
Gioca es
End If
Next
ScriviResoconto
End Sub

Questo è il resoconto:

RESOCONTO

Casi esaminati : 46
Casi vincenti : 43
Percentuale pos. : 93,48 %
Pronostici totali : 92
Pronostici vinc. : 65
Percentuale pos. : 70,65 %
Giocate in corso : 2
Giocate terminate : 90
Bollette giocate : 2.442
Bollette vincenti : 74
Attesa media : 5
Spesa : 2.442,00 €
Vincita : 0,00 €
Guadagno : -2.442,00 €
Perc. Rendimento : -100 %
Mass. Esposizione : 108,00 €
Estratto su ruota : 149
Ambo su ruota : 76
Terno su ruota : 1

 

[GioRyuKen72]

ciao Giulio, ho lanciato il tuo script e mi da questo resoconto:

 

[Mike58]

Sicuramente avrai una versione inferiore alla 1.6.54 (ultima versione di spaziometria)
E' capitato anche a me che in una versione precedente non venissero conteggiate le vincite.
Questo era dovuto al fatto che in Configura > Premi , questi erano andati persi e settati a zero.
Controlla e vedi se i premi hanno il loro settaggio, se sono settati a zero , o risetti in manuale o scarichi la versione ultima che i premi hanno il settaggio corretto.
Ciao