Specifications

Chapter 16 257
Application Programs
Basic Measurement
16. Application Program
Example 16-1 Measuring the self-resonant point of an inductor
10
!*****************************************************************
20 !* E4991A + 16197A Impedance Measurement (Using Chip Inductor)
30 !* HTBasic Sample Program
40
!*****************************************************************
50 !
60
!#################################################################
70 ! STEP1: Preparation for a Measurement
80
!#################################################################
90 !
100 DIM Inp_char$[9],Buff$[9]
110 DIM Swp_type$[11]
120 DIM Para_a$[5],Para_b$[5],Para_c$[5]
130 DIM Fmt_a$[11],Fmt_b$[11],Fmt_c$[11],Display$[11]
140 DIM Cal_type$[11],Fixture$[11]
150 DIM Mkr_src$[9]
160 REAL Curr_lev,Start,Stop
170 REAL Freq_val,Imp_val
180 INTEGER Corr,Nop,Reply,Result
190 !
200 CLEAR SCREEN
210 !
220 ASSIGN @Agte4991a TO 717
230 !
240 Nop=201 ! Number of Points: 201
250 Swp_type$="LOG" ! Type of Sweep Mode(X-axis):
LOGARITHMIC
260 Start=1.0E+6 ! Start Frequency: 1.0 MHz
270 Stop=3.0E+9 ! Stop Frequency: 3.0 GHz
280 Curr_lev=1.0E-3 ! Source Current Level: 1 mA
290 Para_a$="Z" ! Measurement/ Trace1: |Z|
300 Para_b$="LS" ! Parameters Trace2: Ls
310 Para_c$="Q" ! Trace3: Q
320 Fmt_a$="LOG" ! Display/ Trace1: LOGARITHMIC
330 Fmt_b$="LIN" ! Format(Y-axis) Trace2: LINEAR
340 Fmt_c$="LIN" ! Trace3: LINEAR
350 Display$="OVER" ! Display Split/Overlay: OVERLAY
360 Cal_type$="FIX" ! Calibration Type: FIXED
370 Fixture$="FXT16197A" ! Test Fixture: 16197A
380 Mkr_src$="MAX" ! Specified Search Function: MAXIMUM
390 !
400 Reply=FNMessage(@Agte4991a,"Do all the preparations for a
measurement.")
410 IF Reply<>0 THEN Prog_int
420 !
430
!#################################################################
440 ! STEP2: Specifying Measurement Conditions
450
!#################################################################
460 !
470 ! -> Reset the E4991A to default state