Agilent Technologies 4288A, Руководство по программированию

Страница: 42 / 289

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