Specifications

Chapter 15 197
Sample Application Programs
Measuring Array (Multi-Element) Components
15. Sample Application
Programs
610 OUTPUT @Agt4287a;":DISP:UPD "&Update$
620 OUTPUT @Agt4287a;":SYST:BEEP1:STAT "&Beep$
630 OUTPUT @Agt4287a;":SYST:BEEP2:STAT "&Beep$
640 OUTPUT @Agt4287a;":SYST:KLOC "&Lock$
650 OUTPUT @Agt4287a;":SYST:KLOC:KBD "&Lock$
660 OUTPUT @Agt4287a;":SYST:KLOC:MOUS "&Lock$
670 !----------------------------------------
680 ! Calibration
690 !----------------------------------------
700 PRINT "##### Load Definition #####"
710 FOR Tab=1 TO Max_tab_no
720 PRINT "----- Table No.";Tab;"-----"
730 OUTPUT @Agt4287a;":SOUR:LIST:TABL ";Tab
740 OUTPUT @Agt4287a;":CORR1:CKIT USER"
750 OUTPUT @Agt4287a;":CORR1:CKIT:LIST ON"
760 OUTPUT @Agt4287a;":CORR1:CKIT:STAN3:FORM RL"
770 CALL Inp_data("Load Rs Value",Load_rs)
780 CALL Inp_data("Load Ls Value",Load_ls)
790 CALL Inp_data("Load Rdc Value",Load_rdc)
800 OUTPUT @Agt4287a;":CORR1:CKIT:STAN3:LIST 1,";Load_rs;","
;Load_ls
810 OUTPUT @Agt4287a;":CORR1:CKIT:STAN3:DC ";Load_rdc
820 NEXT Tab
830 !
840 PRINT "##### Measurement for Calibration #####"
850 PRINT "##### Open Data Measurement #####"
860 FOR Tab=1 TO Max_tab_no
870 OUTPUT @Agt4287a;":SOUR:LIST:TABL ";Tab
880 PRINT "Set the Scanner's Channel to No."&VAL$(Tab)&", and"
890 Result=FNCal(@Agt4287a,Scode,"Open",Open_l_lim,Open_u_lim)
900 IF Result<>0 THEN Prog_end
910 NEXT Tab
920 !
930 PRINT "##### Short Data Measurement #####"
940 FOR Tab=1 TO Max_tab_no
950 OUTPUT @Agt4287a;":SOUR:LIST:TABL ";Tab
960 PRINT "Set the Scanner's Channel to No."&VAL$(Tab)&", and"
970 Result=FNCal(@Agt4287a,Scode,"Short",Short_l_lim,Short_u_lim)
980 IF Result<>0 THEN Prog_end
990 NEXT Tab
1000 !
1010 PRINT "##### Load Data Measurement #####"
1020 FOR Tab=1 TO Max_tab_no
1030 OUTPUT @Agt4287a;":SOUR:LIST:TABL ";Tab
1040 PRINT "Set the Scanner's Channel to No."&VAL$(Tab)&", and"
1050 Result=FNCal(@Agt4287a,Scode,"Load",Load_l_lim,Load_u_lim)
1060 IF Result<>0 THEN Prog_end
1070 NEXT Tab
1080 !
1090 FOR Tab=1 TO Max_tab_no
1100 OUTPUT @Agt4287a;":SOUR:LIST:TABL ";Tab
1110 OUTPUT @Agt4287a;":CORR1:COLL:SAVE"
1120 OUTPUT @Agt4287a;"*OPC?"
1130 ENTER @Agt4287a;Buff$
1140 NEXT Tab
1150 !----------------------------------------
1160 ! Trigger source setting
1170 !----------------------------------------
1180 OUTPUT @Agt4287a;":ABOR"
1190 OUTPUT @Agt4287a;":TRIG:SOUR EXT"
1200 !----------------------------------------
1210 ! Measurement
1220 !----------------------------------------
1230 PRINT "##### Measurement #####"
1240 FOR I=1 TO Meas_max