Come far valutare POSITIVO solo il caso con 5 check impostagiocata positivi?

[lotto_tom75]

Riporto il pezzo di codice che vorrei modificare al fine di avere in resoconto evidenziati come "positivi" solo i casi in cui tutte e 5 le impostagiocata siano andate a buon fine...

'...

Scrivi String(65,"=")
n(1) = n1
n(2) = n2
EliminaRipetuti n
ImpostaGiocata 1,n,ruota,posta,k,1
an(1) = an1
an(2) = an2
EliminaRipetuti an
ImpostaGiocata 2,an,ruota,posta,k,1
bn(1) = bn1
bn(2) = bn2
EliminaRipetuti bn
ImpostaGiocata 3,bn,ruota,posta,k,1
cn(1) = cn1
cn(2) = cn2
EliminaRipetuti cn
ImpostaGiocata 4,cn,ruota,posta,k,1
dn(1) = dn1
dn(2) = dn2
EliminaRipetuti dn
ImpostaGiocata 5,dn,ruota,posta,k,1
Gioca es,True,,1
End If
End If
Next
Next
Next
Next

ScriviResoconto

End Sub

Per adesso invece basta che un impostagiocata delle 5 vada a buon fine che lo script considera l'esito totale positivo... sfalsandomi la percentuale di esiti positivi da me auspicata nel resoconto...

Grazie a tutti gli esperti e a tutte le esperte in ascolto...

 

[Mike58]

Penso che qui ti devi parecchio ingegnare per il tuo scopo, infatti il resoconto agisce sul gioca (es) e conta tutte le giocate.
per un resoconto ad oc puoi utilizzare i codici
GetSpesa
GetVincita
GetGuadagno

per ogni giocata, ma come ti dicevo ti devi ingegnare

poi esisterebbero anche questi 2 codici che utilizzati ad oc potrebbero farti raggiungero lo scopo.

For k = 1 To GetQuantitaGiocateEffettuate
If GetSituazioneGiocate(k,RetColpo,RetSpesa,RetSpesaParz,RetVincita,RetVincitaParz) Then

Pero ci vuole un po' di ingegno.

 

[lotto_tom75]

Penso che qui ti devi parecchio ingegnare per il tuo scopo, infatti il resoconto agisce sul gioca (es) e conta tutte le giocate.
per un resoconto ad oc puoi utilizzare i codici
GetSpesa
GetVincita
GetGuadagno

per ogni giocata, ma come ti dicevo ti devi ingegnare

poi esisterebbero anche questi 2 codici che utilizzati ad oc potrebbero farti raggiungero lo scopo.

For k = 1 To GetQuantitaGiocateEffettuate
If GetSituazioneGiocate(k,RetColpo,RetSpesa,RetSpesaParz,RetVincita,RetVincitaParz) Then

Pero ci vuole un po' di ingegno.

Proverò ad ingegnarmi... GRAZIE!