Sub main()
Dim nu(2),nn1(1),nn2(1),ru1(1)
w=18' Qui è possibile modificare il ritardo
rs=CInt (InputBox("In quale estrazione vuoi finire la ricerca?",,9810))
ini=9700
fin=rs
ColoreTesto 1
Scrivi Space(20)&"Numeri Isocroni Continui su Ruota di Miki Listed by Enplein",1
Scrivi Space (20)&"Periodo dal "& DataEstrazione (ini)&"/"&ini&" al "& DataEstrazione (fin)&"/"&fin,1
ColoreTesto 0
Scrivi
Scrivi Space (15)&"TABELLONE",1
Scrivi "R1"& Space (2)&"Nr1"& Space (2)&"Nr2"& Space (2)&"Po1"& Space (2)&"Po2"& Space (3)&"RA1"& Space (3)&"RA1"&_
Space (3)&"RPN1"& Space (3)&"RPN2"& Space (3)&"RSto",1
Scrivi
For es=ini To fin-1
ex=es+1
For r1=1 To 11
If r1=11 Then r1=12
ru1(1)=r1
For i=1 To 90
nn1(1)=i
sf1=SerieFreq (es,fin,nn1,ru1,1)
ra1=SerieRitardo (es+1,fin,nn1,ru1,1)
sp1=Posizione (es,r1,nn1(1))
If sp1>0 And sf1=1 And ra1>w Then
For j=1 To 90
If j<>i Then
nn2(1)=j
sf2=SerieFreq (ex,fin,nn2,ru1,1)
ra2=SerieRitardo (ex+1,fin,nn2,ru1,1)
sp2=Posizione (ex,r1,nn2(1))
If sp2>0 And sf2=1 And ra2>w And Abs (sp1-sp2)=1 Then
nu(1)=nn1(1) : nu(2)=nn2(1)
rar1=SerieRitardo (7000,es-1,nn1,ru1,1)
rar2=SerieRitardo (7000,ex-1,nn2,ru1,1)
rsto1=SerieStorico (1,fin,nn1,ru1,1)
rsto2=SerieStorico (1,fin,nn2,ru1,1)
rsto=SerieStorico (1,fin,nu,ru1,1)
casi=casi+1
Scrivi SiglaRuota (r1)& Space (2)& Format2 (nn1(1))& Space (3)& Format2 (nn2(1))& Space (2)&_
FormatSpace (sp1,3,1)&"^"& Space (1)& FormatSpace (sp2,3,1)&"^"& Space (3)& FormatSpace (ra1,3,1)&_
Space (3)& FormatSpace (ra2,3,1)& Space (3)& FormatSpace (rar1,3,1)& Space (4)& FormatSpace (rar2,3,1)& Space (4)& FormatSpace (rsto,3,1),1
End If
End If
Next
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi "Casi con ritardo > a "&w&" = "&casi,1
ColoreTesto 0
Scrivi
End Sub
