Specifications

260 Chapter 16
Application Programs
Basic Measurement
1530 !
1540 Meas_start: !
1550 Reply=FNMessage(@Agte4991a,"Connect the DUT to electrode plate
on the fixture.")
1560 IF Reply<>0 THEN Prog_int
1570 !
1580
!#################################################################
1590 ! STEP:8 Auto Scaling & Maximum Point Search
1600
!#################################################################
1610 !
1620 ! -> Performing a Single Sweep
1630 !
1640 OUTPUT @Agte4991a;"*CLS"
1650 OUTPUT @Agte4991a;"STAT:OPER:PTR 0"
1660 OUTPUT @Agte4991a;"STAT:OPER:NTR 16"
1670 OUTPUT @Agte4991a;"STAT:OPER:ENAB 16"
1680 OUTPUT @Agte4991a;"*SRE 128"
1690 ON INTR 7 GOTO Auto_scaling
1700 ENABLE INTR 7;2
1710 !
1720 OUTPUT @Agte4991a;"TRIG"
1730 DISP "Now sweeping....."
1740 Meas_wait: GOTO Meas_wait
1750 Meas_end: DISP
1760 OFF INTR 7
1770 !
1780 ! -> Performing an Auto-scale
1790 !
1800 Auto_scaling: !
1810 OUTPUT @Agte4991a;"DISP:TRAC1:Y:AUTO"
1820 OUTPUT @Agte4991a;"DISP:TRAC2:Y:AUTO"
1830 OUTPUT @Agte4991a;"DISP:TRAC3:Y:AUTO"
1840 !
1850 ! -> Searching the Maximum value
1860 !
1870 OUTPUT @Agte4991a;"CALC1:MARK1 ON"
1880 OUTPUT @Agte4991a;"CALC1:MARK1:ACT"
1890 OUTPUT @Agte4991a;"CALC1:MARK:FUNC "&Mkr_src$
1900 OUTPUT @Agte4991a;"CALC1:MARK:FUNC:EXEC"
1910 !
1920 ! -> Reading a marker's value
1930 !
1940 OUTPUT @Agte4991a;"CALC1:MARK1:X?"
1950 ENTER @Agte4991a;Freq_val
1960 OUTPUT @Agte4991a;"CALC1:MARK1:Y?"
1970 ENTER @Agte4991a;Imp_val
1980 !
1990 ! -> Displaying Measurement Result
2000 !
2010 PRINT " -------Measurement Result-------"
2020 PRINT USING "13A,6D.6D,6A";" Frequency: ",Freq_val/1.0E+6,"
[MHz]"
2030 PRINT USING "13A,6D.6D,6A";" Impedance: ",Imp_val," [ohm]"
2040 PRINT ""
2050 !
2060 Reply=FNMessage(@Agte4991a,"Performing a measurement again?")