Un aiuto per resoconto

[avio]

Ciao a tutti

se imposto lo script

for p1= 2 to 89
est=8000
fine=9000
for se= est to fine
ecc
ecc

next'se

scriviresoconto

next'p1

i casi esaminati
i casi vincenti
Percentuale pos
vanno tutti in aumento (non reali)
come si fa ad azzerare il Resoconto?

grazie per le risposte

 

[claudio8]

Spiegati meglio se vuoi che qualcuno ti aiuti, anzi prova a postare lo script.

 

[avio]

Sub Main
Dim b(5),g(5),c(5),posta(2),ruota(1)
posta(2)=1
kk=10
For p1= 2 To 89
est=9000
fine=9100
For se= est To fine
Messaggio se & " " & p1
For ru= 1 To 1
b(1)=Estratto(se,ru,1)
b(2)=Estratto(se,ru,2)
b(3)=Estratto(se,ru,3)
b(4)=Estratto(se,ru,4)
b(5)=Estratto(se,ru,5)
If b(1)>b(2) Then g(1)=b(1)-b(2) Else g(1)=(90+b(1)-b(2))
If b(2)>b(3) Then g(2)=b(2)-b(3) Else g(2)=(90+b(2)-b(3))
If b(3)>b(4) Then g(3)=b(3)-b(4) Else g(3)=(90+b(3)-b(4))
If b(4)>b(5) Then g(4)=b(4)-b(5) Else g(4)=(90+b(4)-b(5))
If b(5)>b(1) Then g(5)=b(5)-b(1) Else g(5)=(90+b(5)-b(1))
For v1= 1 To 5
c(v1)=(g(v1)+p1) Mod 90
Next
Scrivi g(1) & " " & g(2) & " " & g(3) & " " & g(4) & " " & g(5) & " " & p1
ruota(1)=ru
ImpostaGiocata 1,c,ruota,posta,kk,2
Gioca se,True
Next'ru
Next'se
ScriviResoconto
Next'p1
End Sub

ciao
se prendi un solo numero il risultato del resoconto e diverso
es: l'ultimo se al p1 metti 89 to 89

 

[claudio8]

1° suggerimento:
If b(1) > b(2) Then g(1) = b(1) - b(2) Else g(1) =(90 + b(1) - b(2))
sostiutuire con:
g(1) =fuori90(90 + b(1) - b(2))
e cosi via x le altre differenze
2° suggerimento:
non utilizzare l'operatore Mod, bensi usa il fuori90.
c(v) =(g(v) + p1) Mod 90
diventa
c(v) =fuori90(g(v) + p1) ... oltre ad essere x il lotto, ti evita che il risultato 0 sia inutilizzabile nelle giocate, con il fuori90, lo zero del Mod vale 90.

Per il resoconto, è come dici tu, cumula le giocate, non si azzera di volta in volta.
Ricordo che tempo fa affrontammo questo problema ma non ricordo se e come fu risolto.
Personalmente non lo uso mai.
Aspetta altri suggerimenti.
Saluti

 

[avio]

ciao claudio

per la prima osservazione il risultato non cambia
la somma dei 5 numeri deve essere sempre 90
per il secondo dei numeri la somma deve essere sempre p1 * 5

per il MOD 90 lo uso perché è variabile non è fisso come fuori90 ..... mod 91 mod 88 ecc ecc
peccato che non si possa resettare la memoria del resoconto ,lo farò senza resoconto

 

[claudio8]

ciao claudio

per la prima osservazione il risultato non cambia : non è vero, perchè se il mod ti da come resto zero, il numero non viene preso in considerazione nella giocata o verificaesito, inoltre riduci le operazioni da far fare allo script riducendo i tempi di elaborazione
la somma dei 5 numeri deve essere sempre 90 non lo leggo nello script.
per il secondo dei numeri la somma deve essere sempre p1 * 5 non lo leggo nello script.

per il MOD 90 lo uso perché è variabile non è fisso come fuori90 ..... mod 91 mod 88 ecc ecc esiste anche il fuorix che fa al caso tuo di uso variabile
peccato che non si possa resettare la memoria del resoconto ,lo farò senza resoconto

ciao