Specifications

Chapter 15 177
Sample Application Programs
Measuring the DUT with a Test Fixture
15. Sample Application
Programs
620 OUTPUT @Agt4287a;":CORR1:CKIT DEF"
630 !
640 PRINT "## Measurement for Calibration##"
650 Result=FNCal(@Agt4287a,Scode,"Open",Open_l_lim,Open_u_lim)
660 IF Result<>0 THEN Prog_end
670 !
680 Result=FNCal(@Agt4287a,Scode,"Short",Short_l_lim,Short_u_lim)
690 IF Result<>0 THEN Prog_end
700 !
710 Result=FNCal(@Agt4287a,Scode,"Load",Load_l_lim,Load_u_lim)
720 IF Result<>0 THEN Prog_end
730 !
740 Result=FNCal(@Agt4287a,Scode,"Low Loss C",-1.E+9,1.E+9)
750 IF Result<>0 THEN Prog_end
760 !
770 OUTPUT @Agt4287a;":CORR1:COLL:SAVE"
780 OUTPUT @Agt4287a;"*OPC?"
790 ENTER @Agt4287a;Buff$
800 !----------------------------------------
810 ! Compensation
820 !----------------------------------------
830 PRINT "## Test Fixture Setting ##"
840 CALL Set_fixture(@Agt4287a)
850 !
860 OUTPUT @Agt4287a;":CORR2:CKIT DEF"
870 !
880 PRINT "## Measurement for Compensation ##"
890 PRINT "Set the test fixture on the coaxial port, then"
900 Result=FNCompen(@Agt4287a,Scode,"Open",Open_l_lim)
910 IF Result<>0 THEN Prog_end
920 !
930 Result=FNCompen(@Agt4287a,Scode,"Short",Short_u_lim)
940 IF Result<>0 THEN Prog_end
950 !
960 OUTPUT @Agt4287a;":CORR2:COLL:SAVE"
970 OUTPUT @Agt4287a;"*OPC?"
980 ENTER @Agt4287a;Buff$
990 !----------------------------------------
1000 ! Trigger source setting
1010 !----------------------------------------
1020 OUTPUT @Agt4287a;":TRIG:SOUR BUS"
1030 OUTPUT @Agt4287a;":INIT:CONT ON"
1040 Meas_start:!
1050 !----------------------------------------
1060 ! Measurement
1070 !----------------------------------------
1080 PRINT "Set DUT, then Push [Enter] key"
1090 INPUT "",Inp_char$
1100 !
1110 ! Triggering and data read
1120 !
1130 REPEAT
1140 OUTPUT @Agt4287a;":STAT:OPER:COND?"
1150 ENTER @Agt4287a;Cond_reg
1160 UNTIL BIT(Cond_reg,5)
1170 OUTPUT @Agt4287a;"*TRG"
1180 ENTER @Agt4287a;Res(*)
1190 !----------------------------------------
1200 ! Display Result
1210 !----------------------------------------
1220 Img$="2D,4X,2D,3X,MD.3DE,X,MD.3DE,X,MD.3DE,X,MD.3DE,X,MD.3DE,X,
MD.3DE"
1230 PRINT "### Result ###"
1240 PRINT "No. Status ";