X rubino

[miki55]

Ciao rubino. Volevo chiederti ( anche a beneficio di tutti noi) una modifica a questo script
Esso è valido per l'inserimento di un solo estratto che ci dice e qual'è il suo ritardo att e quello storico per estr determ.
L'eventuale modifica è l'utilità che invece di un solo numero per volta è quella di poter inserire 2/3/4 nr
a piacere per la ricerca di quale posizione ha maggior ritardo per estratto determ
Ad esempio la terzina simm 1.31.61 oppure 1.10.11.19 in quale posiz ha maggior rit?
Utile questo script per la velocità poichè la ricerca è distibuita su tutte e 10 le ruote in contemporanea,
invece di inserirli uno per volta su altri software....
Grazie sono a disposizione







SubMain()



Dimnumero

Dimritardi(5,10)

Dimstorici(5,10)



numero=InputBox("Inserisci ilnumero per la ricerca.")

Ifnumero="" Then

MsgBox "Programmaterminato, non e' stato inserito nessun numero"

ExitSub

EndIf



For r= 1 To 10

For i= 1 To 5

ritardi(i,r)=EstrazioneIni

Next

Next



For n=EstrazioneIniToEstrazioneFin

For r= 1 To 10

p=Posizione(n,r,numero)

If p>0 Then



If n-ritardi(p,r) >storici(p,r) Thenstorici(p,r)=n-ritardi(p,r)

ritardi(p,r)=n

EndIf

Next

Next



Scrivi ""

ScriviString(40,"=")

Scrivi "Ritardi nelle5 posizioni del numero " &CStr(numero)

ScriviString(40,"=")

Scrivi ""



For r=1 To 10

ScriviNomeRuota(r)

Scrivi " Rit Sto"

For p= 1 To 5

Scrivi "Posizione " &CStr(p) & ": " &FormatSpace(EstrazioneFin-ritardi(p,r),6) &CStr(storici(p,r))

Next

Scrivi "-----------------------------"

Next







EndSub