Agilent Technologies 4294A Programming Manual page 200

Application Sample Programs
Measuring Dielectric Material
1730 IF Ans=1 THEN
1740 PRINT TABXY(2,7);"s]
1750 RETURN
1760 END IF
1770 END IF
1780 PRINT TABXY(4,7);"->"
1790 Input_config:!
1800 DISP "Start frequency [Hz] = ?";
1810 INPUT "",Start
1820 DISP "Stop frequency [Hz] = ?";
1830 INPUT "",Stop
1840 DISP "Sweep type?
1850 INPUT Ans
1860 IF Ans=1 THEN
1870 Swe_type$="LOG"
1880 ELSE
1890 Swe_type$="LIN"
1900 END IF
1910 DISP "OSC level [V] =?";
1920 INPUT "",Vosc
1930 DISP "Number of point?
1940 INPUT Nop
1950 PRINT TABXY(1,10);"Start: ";Start;"[Hz]
Nop: ";Nop
1960 PRINT TABXY(1,11);"Sweep Type: ";Swe_type$;"
";Vosc;"[V]";
1970 DISP "Measurement condition is OK?
1980 INPUT "",Ans
1990 IF Ans<>0 THEN Input_config
2000 !
2010 OUTPUT @Agt4294a;"CALP USER"
2020 OUTPUT @Agt4294a;"MEAS CPD;TRAC A"
2030 OUTPUT @Agt4294a;"SWPT LIN"
2040 OUTPUT @Agt4294a;"CENT ";Load_center
2050 OUTPUT @Agt4294a;"SPAN 0"
2060 OUTPUT @Agt4294a;"POIN ";2
2070 OUTPUT @Agt4294a;"BWFACT ";Load_bw
2080 OUTPUT @Agt4294a;"PAVER ON;PAVERFACT ";Load_ave
2090 OUTPUT @Agt4294a;"LIMITEST ON;EDITLIML"
2100 OUTPUT @Agt4294a;"LIMCLEL ;LIMSADD"
2110 OUTPUT @Agt4294a;"LIMSTAR ";Load_center
2120 OUTPUT @Agt4294a;"LIMSTOP ";Load_center
2130 OUTPUT @Agt4294a;"LIMLSTAR ";Load_low_limit
2140 OUTPUT @Agt4294a;"LIMUSTAR ";Load_up_limit
2150 OUTPUT @Agt4294a;"LIMLSTOP ";Load_low_limit
2160 OUTPUT @Agt4294a;"LIMUSTOP ";Load_up_limit
2170 OUTPUT @Agt4294a;"LIMSDON;LIMEDONE"
2180 OUTPUT @Agt4294a;"TOPV ";1.5*Load_up_limit-.5*Load_low_limit
2190 OUTPUT @Agt4294a;"BOTV ";1.5*Load_low_limit-.5*Load_up_limit
2200 OUTPUT @Agt4294a;"HIDI ON"
2210 !
2220 Load_adj:!
2230 OUTPUT @Agt4294a;"CONT"
2240 OUTPUT @Agt4294a;"MKR ON"
2250 DISP "Turn the micrometer's knob until PASS is displayed."
2260 PAUSE
2270 OUTPUT @Agt4294a;"HOLD"
2280 OUTPUT @Agt4294a;"OUTPFAIP?"
2290 ENTER @Agt4294a;F_nop
2300 IF F_nop<>0 THEN Load_adj
2310 DISP ""
2320 OUTPUT @Agt4294a;"LIMITEST OFF"
2330 OUTPUT @Agt4294a;"OUTPDTRCP? 1"
2340 ENTER @Agt4294a;Load_c,Dummy
200
"
0:Linear, 1:Log";
[2-801]";
Stop: ";Stop;"[Hz]";"
OSC Level:
0:OK, 1:NO";
13