110 Chapter 9
Measurement Applications (Sample Programs)
Measurement with Auto-sorting System
790 !
800 OUTPUT @Agt4288a;":TRIG:SOUR EXT"
810 OUTPUT @Agt4288a;":INIT:CONT ON"
820 !
830 ! Bin count setting
840 !
850 OUTPUT @Agt4288a;":CALC:COMP:COUN ON"
860 OUTPUT @Agt4288a;":CALC:COMP:COUN:CLE"
870 OUTPUT @Agt4288a;"*OPC?"
880 ENTER @Agt4288a;Buff$
890 !
900 ! SRQ setting
910 !
920 OUTPUT @Agt4288a;":STAT:OPER:ENAB 16"
930 OUTPUT @Agt4288a;"*SRE 128"
940 !
950 FOR I=1 TO Max_meas
960 REPEAT
970 OUTPUT @Agt4288a;":STAT:OPER:COND?"
980 ENTER @Agt4288a;Cond_reg
990 UNTIL BIT(Cond_reg,5)
1000 OUTPUT @Agt4288a;"*CLS"
1010 OUTPUT @Agt4288a;"*OPC?"
1020 ENTER @Agt4288a;Buff$
1030 ON INTR 7 GOTO Meas_end
1040 ENABLE INTR 7;2
1050 PRINT "Set DUT, then input external trigger!"
1060 Meas_wait: GOTO Meas_wait
1070 Meas_end: OFF INTR 7
1080 OUTPUT @Agt4288a;":FETC?"
1090 ENTER @Agt4288a;Meas_stat,Pri_res,Sec_res,Comp
1100 !
1110 PRINT "[MEASUREMENT RESULT]"
1120 PRINT USING "X,7A,X,2D";"BIN :",Comp
1130 PRINT USING "X,7A,X,2D";"STATUS:",Meas_stat
1140 PRINT USING "X,6A,A,X,SD.5DE";Pri$,":",Pri_res
1150 PRINT USING "X,6A,A,X,SD.5DE";Sec$,":",Sec_res
1160 NEXT I
1170 !
1180 OUTPUT @Agt4288a;":CALC:COMP:COUN:DATA?"
1190 ENTER @Agt4288a;Bin(*)
1200 OUTPUT @Agt4288a;":CALC:COMP:COUN:OVLD?"
1210 ENTER @Agt4288a;Ovld
1220 PRINT "[BIN COUNT RESULT]"
1230 PRINT " BIN Count"
1240 PRINT " ------------------------"
1250 FOR I=1 TO 3
1260 PRINT USING "2X,17A,5D";"BIN"&VAL$(I)&":",Bin(I)
1270 NEXT I
1280 PRINT USING "2X,17A,5D";"OUT OF BINS:",Bin(10)
1290 PRINT USING "2X,17A,5D";"AUX BIN:",Bin(11)
1300 PRINT USING "2X,17A,5D";"OVLD:",Ovld
1310 !
1320 Prog_end: END
1330 !=============================================
1340 ! Compensation Data Measurement Function
1350 !=============================================
1360 DEF FNCompen(@Agt4288a,Standard$,Limit)
1370 DIM Inp_char$[9],Buff$[9],Std$[9],Err$[50]
1380 REAL Curr_freq,Freq(1:2),Para1,Para2,Zm,Ym,Gm,Bm
1390 REAL Cpref,Dref,Zref,Gref,Bref
1400 INTEGER Err_flag
1410 OUTPUT @Agt4288a;":SOUR:FREQ?"
1420 ENTER @Agt4288a;Curr_freq