Lanfranco60
Super Member >GOLD<
Ciao Luigi, avrei una richiesta su come si può fare una cosa con gli script.
Lo script in fondo è solo un banale esempio e serve appunto solo per esempio
quello che vorrei fare, è avere nell'output un resoconto con un contatore che mi conta
quanti esiti negativi passano prima di avere di nuovo un esito positivo,
visualizzandomeli tutti in maniera sequenziale
e a quanto ammonta il valore massimo, il valore medio e quello minimo
di questa specie di ritardo se cosi lo vogliamo chiamare.
Se potresti modificare tu lo script in basso, mi faresti veramente contento
Grazie
ti faccio degli esempi grafici in modo da spiegarmi
Ti metto qui la fine dell'output dello script sotto fatto girare cosi comè :
Qui invece ti metto lo stesso output come lo vorrei
Lo script d'esempio
Lo script in fondo è solo un banale esempio e serve appunto solo per esempio
quello che vorrei fare, è avere nell'output un resoconto con un contatore che mi conta
quanti esiti negativi passano prima di avere di nuovo un esito positivo,
visualizzandomeli tutti in maniera sequenziale
e a quanto ammonta il valore massimo, il valore medio e quello minimo
di questa specie di ritardo se cosi lo vogliamo chiamare.
Se potresti modificare tu lo script in basso, mi faresti veramente contento
Grazie
ti faccio degli esempi grafici in modo da spiegarmi
Ti metto qui la fine dell'output dello script sotto fatto girare cosi comè :
Codice:
****************************************************************************************************
casi trovati : 51
+----------------------------------------+
| Prima Giocata : 8690 |
| Ultima Giocata : 8740 |
| Range : 51 |
| Casi giocab perc. : 100% |
+----------------------------------------+
ecc..............
Qui invece ti metto lo stesso output come lo vorrei
Codice:
****************************************************************************************************
casi trovati : 51
Negativi dopo positivo :
1,1,1,1,1,1,2. ( sono messi in maniera sequenziale dall'inizio ricerca fino alla fine, se serve deve andare a capo )
Ritardo massimo = 2
Ritardo medio = (in questo caso non c'è perchè l'estrazioni sono poche)
Ritardo minimo = 1
****************************************************************************************************
+----------------------------------------+
| Prima Giocata : 8690 |
| Ultima Giocata : 8740 |
| Range : 51 |
| Casi giocab perc. : 100% |
+----------------------------------------+
ecc..............
Lo script d'esempio
Codice:
Sub Main()
Dim es,Ini,Fin,r1,r2,ee,clp
Dim ruote(2),posta1(1)
Dim n1(2)
posta1(1) = 1
r1 = CInt(InputBox(" Scegli la 1°ruota ",,"1"))
r2 = CInt(InputBox(" Scegli la 2°ruota ",,"2"))
ee = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"50"))
clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Ini = EstrazioneFin - ee
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruote(1) = r1
ruote(2) = r2
a = Estratto(es,r1,1)
b = Estratto(es,r1,5)
c = Estratto(es,r2,1)
d = Estratto(es,r2,5)
n1(1) = Fuori90(a + b + c + d)
n1(2) = Vert(n1(1))
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1
Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2),1
Scrivi String(65,"°"),1
ImpostaGiocata 1,n1,ruote,posta1,clp,1
Gioca es,1,,1
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto
End Sub