Agilent Technologies 4294A Programming Manual page 187

Lines 600 to 630
Lines 670 to 700
Lines 740 to 760
Lines 780 to 860
Lines 880 to 890
Example 13-1 Measuring the self-resonant point of a capacitor
10
20
30
40
50
60
70
80
90
100
110
120
130
140
150
160
170
180
190
200
210
220
230
240
250
260
270
280
290
300
310
320
330
340
350
360
370
380
390
400
410
420
430
440
450
13
Performs a single sweep and waits for its completion.
Executes the auto scale on trace A and trace B to automatically set the
scale parameters so that waveforms fit on the screen.
Searches for the minimum value (self-resonant point) on trace A using
the marker.
Reads out the measurement parameter value (impedance) and the
sweep parameter value (frequency) at the marker on trace A and
displays them.
Prompts the user to determine whether to perform a measurement
again. If the key and the
[y]
DUT connection part (line 570).
DIM Adapter$[9],Meas_para$[5],Swp_para$[9],Swp_type$[9]
DIM Bw$[9],Fmt_a$[9],Fmt_b$[9],Spl_disp$[9]
DIM Buff$[9],Inp_char$[9]
REAL Start,Stop,Imp_val,Freq_val
INTEGER Scode,Result
CLEAR SCREEN
!
IF SYSTEM$("SYSTEM ID")="HP4294A" THEN
ASSIGN @Hp4294a TO 800
Scode=8
ELSE
ASSIGN @Hp4294a TO 717
Scode=7
END IF
!
Adapter$="OFF"
Meas_para$="IMPH"
Swp_para$="FREQ"
Swp_type$="LOG"
Start=100
Stop=1.0E+8
Bw$="2"
Fmt_a$="LOGY"
Fmt_b$="LINY"
Spl_disp$="ON"
!
! Measurement Setting
!
OUTPUT @Hp4294a;"E4TP "&Adapter$
OUTPUT @Hp4294a;"PRES"
OUTPUT @Hp4294a;"MEAS "&Meas_para$
OUTPUT @Hp4294a;"SWPP "&Swp_para$
OUTPUT @Hp4294a;"SWPT "&Swp_type$
OUTPUT @Hp4294a;"STAR ";Start
OUTPUT @Hp4294a;"STOP ";Stop
OUTPUT @Hp4294a;"BWFACT "&Bw$
!
! Fixture Compensation (Open/Short)
!
OUTPUT @Hp4294a;"ESNB 256"
OUTPUT @Hp4294a;"*SRE 4"
Result=FNFixt_comp(@Hp4294a,Scode,"Open")
IF Result<>0 THEN Prog_end
Result=FNFixt_comp(@Hp4294a,Scode,"Short")
IF Result<>0 THEN Prog_end
Application Sample Programs
Basic Measurement
key are pressed, returns to the
[Enter]
187