Agilent Technologies 4294A, Programming Manual

Page: 225 / 518

13 225
Application Sample Programs
Measurement controlling oscillator level
1. Ch
apter
T
itle
2.
Ch
ap
te
r
T
itl
e
1
3
. Application Sample
4
. Chap
te
r T
itle
5. Chap
te
r T
itle
Programs
Lines 460 to 500 Turns on the manual sweep function and the level monitor function,
and sets the oscillator level mode to Power_mode$.
Lines 520 to 600 According to the oscillator level mode, substitutes the command name
for reading the level monitor value, the range (lower limit and upper
limit) of level setting into the variables: Command$, Range_l, and
Range_u, respectively.
Lines 640 to 650 Prompts the user to connect a DUT, and waits for a press of the
[Enter]
key after the connection.
Lines 670 to 700 Displays header for list of measurement results, and substitutes the
format to display the measurement results into the variable: Img$.
Lines 720 Sets the measurement point.
Lines 730 to 750 Sets the initial setting to control the oscillator level.
Lines 760 to 880 Until the difference between the test signal level (target) and the
monitor level is less than the variable: Err_limit, iterates setting and
monitoring, and updating the oscillator level. (maximum number of
iteration times is the variable: Iteration.)
Lines 890 to 970 Reads out the measurement results and displays them according to
Img$.
Lines 990 to 1010 Sets the trace A display format to Fmt_a$, and then executes the auto
scale on trace A to automatically set the scale parameters so that
waveforms fit on the screen.
Lines 1020 to 1040 Sets the trace B display format to Fmt_b$, and then executes the auto
scale on trace B to automatically set the scale parameters so that
waveforms fit on the screen.
Lines 1060 to 1070 Prompts the user to determine whether to perform a measurement
again. If the
[y]
key and the
[Enter]
key are pressed, returns to the
DUT connection part (line 570).
Example 13-5 Measurement controlling oscillator level
10 DIM Adapter$[9],Meas_para$[9],Pow_mode$[9],Swp_type$[9]
20 DIM Fmt_a$[9],Fmt_b$[9],Buff$[9],Inp_char$[9],Img$[50]
30 REAL Start,Stop,Level,Data_a(1:2),Data_b(1:2)
40 REAL Err_limit,Range_l,Range_u
50 INTEGER Scode,Nop,Iteration,Result
60 CLEAR SCREEN
70 !
80 IF SYSTEM$("SYSTEM ID")="HP4294A" THEN
90 ASSIGN @Hp4294a TO 800
100 Scode=8
110 ELSE
120 ASSIGN @Hp4294a TO 717
130 Scode=7
140 END IF
150 !
160 Adapter$="OFF"
170 Meas_para$="IMPH"
180 Swp_type$="LOG"
190 Start=1.0E+3
200 Stop=1.0E+7
210 Nop=21
220 Fmt_a$="LOGY"