X Clario

[Roby]

Ciao CLARIO,
ho scaricato dall'area download il tuo script, volevo sapere se puoi implementarlo aggiungendo nell'OUTPUT i ritardi R.P./1 - R.P./2 - R.P.3

Ecco il listato:

Sub main()
Dim i(25)
Dim ord(90,4)
Dim mru(1000,8)
i(1)=1:i(2)=7:i(3)=11:i(4)=13:i(5)=17:i(6)=19:i(7)=23:i(8)=29
i(9)=31:i(10)=37:i(11)=41:i(12)=(43)
i(13)=89:i(14)=83:i(15)=79:i(16)=77:i(17)=73:i(18)=71:i(19)=67
i(20)=61:i(21)=59:i(22)=53:i(23)=(49):i(24)=47:i(25)=90
s1=0:s2=0:aa=1
es=7339: es1=es:fin=EstrazioneFin
nn=0
For t=1 To 25
For r=1 To 10
For y=1 To 90
ri=0
a=y
For j=7340 To fin
a= Fuori90(a+i(t))
If j>fin Then Exit For
If Posizione(j,r,a)>0 Then ri=0
If Posizione(j,r,a)=0 Then ri=ri+1
Next
ord(y,1)=a: ord(y,2)=rird(y,3)=rrd(y,4)=i(t)
Next
nn=nn+1
OrdinaMatrice ord,-1,2
For q=1 To 2
mru(nn,1)=ord(1,1):mru(nn,2)=ord(1,2):mru(nn,3)=ord(1,3)
mru(nn,4)=ord(1,4)
Next
Next
For q=1 To 90
ord(q,1)=0
ord(q,2)=0
ord(q,3)=0
ord(q,4)=0
Next
Next
Scrivi: Scrivi "ordinamento ruote": Scrivi
OrdinaMatrice mru,-1,2
For j=1 To 9
Scrivi j&" numero="&mru(j,1)&" rit="&mru(j,2)&" ruota="&mru(j,3)&" indice incr="&mru(j,4)
a0=Fuori90(mru(j,1)+mru(j,4))

If j=1 Then Scrivi "AMBATA VALIDA PER L'ESTRAZIONE SUCCESSIVA= "&a0: Scrivi
If j<>1 Then Scrivi "AMBATA VALIDA PER L'ESTRAZIONE SUCCESSIVA= "&a0: Scrivi
Next
Scrivi:Scrivi "estrazione di fine ricerca nr "&fin&" del "& DataEstrazione(fin)
End Sub


Spero che tu possa accontentarmi
Saluti

Sincronone

 

[sincronone]

Clario......ci sei !!!! Toc-Toc
Ciao

Sincronone