Agilent Technologies 4288A Programming Manual page 42

Preparation for Accurate Measurement (Executing Compensation)
Executing OPEN/SHORT/LOAD Compensation
Line 1520
The Inp_data sub-program of Lines 1540 to 1680 used to input data is described below.
Line 1590
Lines 1610 to 1620 Prompts the user to enter the data value specified with Mes$ and waits
Lines 1630 to 1650 Displays the entered value and waits for the user to enter yes or no
Line 1660
Example 4-1 Executing the OPEN/SHORT/LOAD compensation (compen.bas)
10
20
30
40
50
60
70
80
90
100
110
120
130
140
150
160
170
180
190
200 Prog_end:
210
220
230
240
250
260
270
280
290
300
310
320
330
340
350
360
370
380
40
Cable, F_shift, Open, Shor, Load, Load_ref, and Load_para$ to the
file.
Displays the name of the file to which the compensation state is saved.
Makes the setup to return to the entry start line when an error (for
example, due to improper input) occurs so that the user can make the
entry again.
for the user to enter the value.
(the y/n key).
If a key other than the y key is pressed in Line 1650, returns to the
entry start line (Line 1610).
DIM File_name$[20]
INTEGER Result
CLEAR SCREEN
!
ASSIGN @Agt4288a TO 717
!
File_name$="Cmp_data"
!
OUTPUT @Agt4288a;":SYST:PRES"
!
Result=FNCompen(@Agt4288a,"Open",.00002)
IF Result<>0 THEN Prog_end
Result=FNCompen(@Agt4288a,"Short",20)
IF Result<>0 THEN Prog_end
Result=FNCompen(@Agt4288a,"Load",.2)
IF Result<>0 THEN Prog_end
!
CALL Save_comp_data(@Agt4288a,File_name$)
!
END
!=============================================
! Compensation Data Measurement Function
!=============================================
DEF FNCompen(@Agt4288a,Standard$,Limit)
DIM Inp_char$[9],Buff$[9],Std$[9],Err$[50]
REAL Curr_freq,Freq(1:2),Para1,Para2,Zm,Ym,Gm,Bm
REAL Cpref,Dref,Zref,Gref,Bref
INTEGER Err_flag
OUTPUT @Agt4288a;":SOUR:FREQ?"
ENTER @Agt4288a;Curr_freq
Freq(1)=1.E+3
Freq(2)=1.E+6
Load_para$="CPD"
OUTPUT @Agt4288a;":STAT:OPER:ENAB 128"
OUTPUT @Agt4288a;"*SRE 128"
SELECT Standard$
CASE "Open"
Std$="STAN1"
Chapter 4