Agilent Technologies 4288A Programming Manual page 111

160 Cbl=1
170 !
180 Mode$="PCNT"
190 Nom=1.E-9
200 !-- [BIN1] --
210 L_lim(1)=-1.0
220 U_lim(1)=1.0
230 !-- [BIN2] --
240 L_lim(2)=-2.0
250 U_lim(2)=2.0
260 !-- [BIN3] --
270 L_lim(3)=-3.0
280 U_lim(3)=3.0
290 !-- [Sec] --
300 L_lim_sec=0.
310 U_lim_sec=.1
320 Aux$="ON"
330 Low_c_rej$="ON"
340 Low_c_rej_lim=10.0
350 !
360 OUTPUT @Agt4288a;"*RST"
370 OUTPUT @Agt4288a;":CALC1:FORM ";Pri$
380 OUTPUT @Agt4288a;":CALC2:FORM ";Sec$
390 OUTPUT @Agt4288a;":SOUR:FREQ ";Freq
400 OUTPUT @Agt4288a;":SOUR:VOLT ";Lvl
410 OUTPUT @Agt4288a;":APER "&Meas_time$
420 OUTPUT @Agt4288a;":CAL:CABL ";Cbl
430 !
440 OUTPUT @Agt4288a;":DISP OFF"
450 OUTPUT @Agt4288a;":SYST:BEEP:STAT OFF"
460 OUTPUT @Agt4288a;":SYST:KLOC ON"
470 !
480 ! Compensation
490 !
500 Result=FNCompen(@Agt4288a,"Open",.00002)
510 IF Result<>0 THEN Prog_end
520 Result=FNCompen(@Agt4288a,"Short",20)
530 IF Result<>0 THEN Prog_end
540 Result=FNCompen(@Agt4288a,"Load",20)
550 IF Result<>0 THEN Prog_end
560 !
570 OUTPUT @Agt4288a;":RANG ";Nom
580 !
590 ! Comparator Setting
600 !
610 OUTPUT @Agt4288a;":CALC:COMP:MODE "&Mode$
620 OUTPUT @Agt4288a;":CALC:COMP:PRIM:NOM ";Nom
630 FOR I=1 TO 3
640 OUTPUT @Agt4288a;":CALC:COMP:PRIM:BIN"&VAL$(I)&" ";L_lim(I);","
;U_lim(I)
650 OUTPUT @Agt4288a;":CALC:COMP:PRIM:BIN"&VAL$(I)&":STAT ON"
660 NEXT I
670 FOR I=4 TO 9
680 OUTPUT @Agt4288a;":CALC:COMP:PRIM:BIN"&VAL$(I)&":STAT OFF"
690 NEXT I
700 OUTPUT @Agt4288a;":CALC:COMP:SEC:LIM ";L_lim_sec;",";U_lim_sec
710 OUTPUT @Agt4288a;":CALC:COMP:SEC:STAT ON"
720 !
730 OUTPUT @Agt4288a;":CALC:COMP:AUXB ON"
740 OUTPUT @Agt4288a;":CREJ "&Low_c_rej$
750 OUTPUT @Agt4288a;":CREJ:LIM ";Low_c_rej_lim
760 OUTPUT @Agt4288a;":CALC:COMP ON"
770 !
780 ! Trigger setting
Chapter 9
Measurement Applications (Sample Programs)
Measurement with Auto-sorting System
109