![Agilent Technologies Agilent 4396B Gpib Programming Manual Download Page 62](http://html.mh-extra.com/html/agilent-technologies/agilent-4396b/agilent-4396b_gpib-programming-manual_2867995062.webp)
c
b
360
OUTPUT
@Hp4396;"CLES"
370
OUTPUT
@Hp4396;"*SRE
4;ESNB
1"
380
ON
INTR
7
GOTO
Sweep_end
!
\
When
iBASIC
is
used,
change
"7"
to
"8"
390
ENABLE
INTR
7;2
!
/
400
OUTPUT
@Hp4396;"SING"
410
Measuring:GOTO
Measuring
420
Sweep_end:
!
430
OUTPUT
@Hp4396;"LIMITEST
ON"
440
DIM
Dt(1:801,1:4)
450
OUTPUT
@Hp4396;"OUTPLIMF?"
!
\
Output
test
results.
460
ENTER
@Hp4396
USING
"%,K";Dt(*)
!
/
470
OUTPUT
@Hp4396;"OUTPFAIP?"
480
ENTER
@Hp4396;Failp
490
IF
Failp=0
THEN
Passed
500
"
FAIL
POINTS
"
510
FOR
I=1
TO
Failp
520
530
"Swp.
prmtr
:
";Dt(I,1)
540
"
Results
Upper
Lower
"
550
TAB(5);Dt(I,2);TAB(17);Dt(I,3);TAB(32);Dt(I,4)
560
NEXT
I
570
Passed:
!
580
DISP
"Program
End"
590
STOP
600
!
610
Loadlimit:
!
620
INPUT
"ENTER
SWEEP
PARAMETER
(Hz)",Table(I,1)
630
INPUT
"ENTER
UPPER
LIMIT
VALUE",Table(I,2)
640
INPUT
"ENTER
LOWER
LIMIT
VALUE",Table(I,3)
650
I;TAB(11);Table(I,1);TAB(27);Table(I,2);TAB(42);Table(I,3 )
660
RETURN
670
END
Figure
8-1.
Sample
Program
:
Limit
T
est
(2/2)
Edit
Limit
Line
60
CLEAR
SCREEN
70
USING
"10A,15A,15A,15A";"Segment","Swp.Prmtr(Hz)","Upper","Lowe r"
80
!
90
DIM
Table(1:18,1:3)
100
INPUT
"Enter
number
of
segments
(<=18)",Numb
110
FOR
I=1
TO
Numb
120
GOSUB
Loadlimit
130
NEXT
I
140
!
150
LOOP
160
INPUT
"Do
you
want
to
edit?
(Y/N)",An$
170
EXIT
IF
An$="N"
OR
An$="n"
180
INPUT
"Enter
segment
number(<=18)",I
190
IF
Numb<I
THEN
Numb=I
200
GOSUB
Loadlimit
210
END
LOOP
8-2
Programming
Limit
T
est
from
Remote