Agilent Technologies 4294A Programming Manual page 208

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