PER SCRIPTER Beppignello , Magia, Joe, Luigi, Robi, ecc.

[vincenzo4221]

Ciao a Tutti
x Beppi , ti avevo già chiesto e visto la necessità riprovo a chiederti se ti è possibile fare uno script , che determini il riardo della formazione x estratto di una coppia o di una terzina formata da ruote diverse e numeri diversi , però ogni numero deve uscire nella sua ruota di origine, esempio attuale :
ho questa terzina VE01 , VE02, CA10 vorrei conoscere il ritardo della formazione rispetto al MAX Storico , oppure BA55, VE01, FI21 , o ancora TO13 TO58 VE02 , non ricordo se avevi già proposto qualcosa a riguardo....ciao

 

[Beppignello]

in questo momento non posso, ho il pc impegnato già per un riduttore di un sistema, vedi sessione sistemistica,

settimana prossima, vediamo se ho finito.

 

[vincenzo4221]

ok Beppi ..a tempo debito ...

 

[Beppignello]

questa è una impronta buttata giù velocemente,

[codice]
Option Explicit
Sub Main
Dim ritardo,ritardomax,frequenza,sretgruppiAnalizz,ini,fine,qt,x,y
Dim an(1),ar(1),nr(3),rt(3)
ini = 3950
fine = InputBox("All'estrazione n.",,EstrazioneFin)
qt = InputBox("Quanti numeri? ",,3)
Scrivi " Situazione statistica al Gruppo ( Estratti - Ruote ) all'.estraz.n." & fine & "/" & DataEstrazione(fine),1
For x = 1 To qt
nr(x) = InputBox(x & " Nr.",,90)
rt(x) = InputBox(x & " Ruota",,12)
Next
Scrivi "-----------------------------"
For y = 1 To qt
an(1) = nr : ar(1) = rt
Call AddNumeriToGruppoStatistico(an,ar(1))
Next
Call StatisticaGruppoFormazioni(1,ritardo,ritardomax,frequenza,sretgruppiAnalizz,ini,fine)
Scrivi "Rc..." & ritardo
Scrivi "RMax." & ritardomax
Scrivi "Freq." & frequenza
Scrivi sretgruppiAnalizz
Scrivi "-----------------------------"
End Sub
[/codice]

 

[vincenzo4221]

Grazie Beppi , quando hai tempo ... mi verrebbe da chiederti di aggiungere la frequenza teorica delle formazioni richieste , per quantificare eventuale scompenso ...poi ci sarebbe altro...segnalare eventuale sincronismo di ritardo o di frequenza fra i numeri dati...ma dopo, sperimentiamo prima un pò, lo strumento di cui mi hai dotato... di nuovo grazie, ciao