13 187
Application Sample Programs
Basic Measurement
1. Chapter Title
2. Chapter Title 13. Application Sample
4. Chapter Title
5. Chapter Title
Programs
Lines 600 to 630 Performs a single sweep and waits for its completion.
Lines 670 to 700 Executes the auto scale on trace A and trace B to automatically set the
scale parameters so that waveforms fit on the screen.
Lines 740 to 760 Searches for the minimum value (self-resonant point) on trace A using
the marker.
Lines 780 to 860 Reads out the measurement parameter value (impedance) and the
sweep parameter value (frequency) at the marker on trace A and
displays them.
Lines 880 to 890 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-1 Measuring the self-resonant point of a capacitor
10 DIM Adapter$[9],Meas_para$[5],Swp_para$[9],Swp_type$[9]
20 DIM Bw$[9],Fmt_a$[9],Fmt_b$[9],Spl_disp$[9]
30 DIM Buff$[9],Inp_char$[9]
40 REAL Start,Stop,Imp_val,Freq_val
50 INTEGER Scode,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_para$="FREQ"
190 Swp_type$="LOG"
200 Start=100
210 Stop=1.0E+8
220 Bw$="2"
230 Fmt_a$="LOGY"
240 Fmt_b$="LINY"
250 Spl_disp$="ON"
260 !
270 ! Measurement Setting
280 !
290 OUTPUT @Hp4294a;"E4TP "&Adapter$
300 OUTPUT @Hp4294a;"PRES"
310 OUTPUT @Hp4294a;"MEAS "&Meas_para$
320 OUTPUT @Hp4294a;"SWPP "&Swp_para$
330 OUTPUT @Hp4294a;"SWPT "&Swp_type$
340 OUTPUT @Hp4294a;"STAR ";Start
350 OUTPUT @Hp4294a;"STOP ";Stop
360 OUTPUT @Hp4294a;"BWFACT "&Bw$
370 !
380 ! Fixture Compensation (Open/Short)
390 !
400 OUTPUT @Hp4294a;"ESNB 256"
410 OUTPUT @Hp4294a;"*SRE 4"
420 Result=FNFixt_comp(@Hp4294a,Scode,"Open")
430 IF Result<>0 THEN Prog_end
440 Result=FNFixt_comp(@Hp4294a,Scode,"Short")
450 IF Result<>0 THEN Prog_end
To Next Page
Loading...
Need help?
General
