Agilent Technologies 4288A Programming Manual page 119

620 NEXT Ch
630 PRINT "##### Short Data Measurement #####"
640 FOR Ch=0 TO Max_chan
650 OUTPUT @Agt4288a;":CORR:MULT:CHAN ";Ch
660 PRINT "Set the Scanner's Channel to No."&VAL$(Ch)&", and"
670 Result=FNCompen(@Agt4288a,"Short",20)
680 IF Result<>0 THEN Prog_end
690 NEXT Ch
700 PRINT "##### Load Data Measurement #####"
710 FOR Ch=0 TO Max_chan
720 OUTPUT @Agt4288a;":CORR:MULT:CHAN ";Ch
730 PRINT "Set the Scanner's Channel to No."&VAL$(Ch)&", and"
740 Result=FNCompen(@Agt4288a,"Load",.2)
750 IF Result<>0 THEN Prog_end
760 NEXT Ch
770 !
780 OUTPUT @Agt4288a;":RANG ";Nom
790 !
800 ! Comparator Setting
810 !
820 OUTPUT @Agt4288a;":CALC:COMP:MODE "&Mode$
830 OUTPUT @Agt4288a;":CALC:COMP:PRIM:NOM ";Nom
840 FOR I=1 TO 3
850 OUTPUT @Agt4288a;":CALC:COMP:PRIM:BIN"&VAL$(I)&" ";L_lim(I);","
;U_lim(I)
860 OUTPUT @Agt4288a;":CALC:COMP:PRIM:BIN"&VAL$(I)&":STAT ON"
870 NEXT I
880 FOR I=4 TO 9
890 OUTPUT @Agt4288a;":CALC:COMP:PRIM:BIN"&VAL$(I)&":STAT OFF"
900 NEXT I
910 OUTPUT @Agt4288a;":CALC:COMP:SEC:LIM ";L_lim_sec;",";U_lim_sec
920 OUTPUT @Agt4288a;":CALC:COMP:SEC:STAT ON"
930 !
940 OUTPUT @Agt4288a;":CALC:COMP:AUXB "&Aux$
950 OUTPUT @Agt4288a;":CREJ "&Low_c_rej$
960 OUTPUT @Agt4288a;":CREJ:LIM ";Low_c_rej_lim
970 OUTPUT @Agt4288a;":CALC:COMP ON"
980 !
990 ! Trigger setting
1000 !
1010 OUTPUT @Agt4288a;":TRIG:SOUR EXT"
1020 OUTPUT @Agt4288a;":INIT:CONT ON"
1030 !
1040 ! Bin count setting
1050 !
1060 OUTPUT @Agt4288a;":CALC:COMP:COUN ON"
1070 OUTPUT @Agt4288a;":CALC:COMP:COUN:CLE"
1080 OUTPUT @Agt4288a;"*OPC?"
1090 ENTER @Agt4288a;Buff$
1100 !
1110 ! SRQ setting
1120 !
1130 OUTPUT @Agt4288a;":STAT:OPER:ENAB 16"
1140 OUTPUT @Agt4288a;"*SRE 128"
1150 !
1160 ! Data buffer setting
1170 !
1180 OUTPUT @Agt4288a;":DATA:POIN BUF3,";Max_chan+1
1190 OUTPUT @Agt4288a;":DATA:FEED:CONT BUF3,ALW"
1200 OUTPUT @Agt4288a;":FORM REAL"
1210 !
1220 FOR I=1 TO Max_meas
1230 PRINT "Set DUT of All Channels."
1240 !
Chapter 9
Measurement Applications (Sample Programs)
Measurement with changing channels (scanning)
117