Agilent Technologies 4294A, Programming Manual

Page: 65 / 518

Chapter 4 65
Preparing For Accurate Measurement
Fixture Compensation
1. Ch
apter
T
itle
2
. Cha
p
te
r T
itle
3
. Chap
te
r T
itle
4
. Gettin
g Read
y Fo
r
5. Chap
te
r T
itle
Accu
ra
te
M
e
as
ur
em
e
n
t
Standard$ and wait for you to press the y key and the return key.
Lines 1090 to 1100 These lines set the branch target for an SRQ interrupt to make the
SRQ interrupt effective.
Lines 1110 to 1180 These lines send the commands to execute the standard measurement
specified by Standard$.
Line 1200 This line waits for measurement to finish.
Lines 1220 to 1230 These lines indicate the message of measurement completion and
return 0 as the return value from the sub-program.
Lines 1250 to 1260 These lines are steps for any key other than the y key pressed in
response to line 970. These lines return -1 as the return value from the
sub-program.
See Example 4-2 on page 61 for the subprogram Inp_data.
Example 4-3 Date measurement for fixture compensation
10 DIM Adapter$[9],Buff$[9],File$[20],Std_file$[20],Cal_point$[9],
Size$[9]
20 DIM Com_o(1:100,1:2),Com_s(1:100,1:2),Com_l(1:100,1:2)
30 REAL Open_g,Open_c,Short_r,Short_l,Load_r,Load_l
40 INTEGER Result,Scode
50 CLEAR SCREEN
60 IF SYSTEM$("SYSTEM ID")="HP4294A" THEN
70 ASSIGN @Hp4294a TO 800
80 ASSIGN @Binary TO 800;FORMAT OFF
90 MASS STORAGE IS ":INTERNAL1,5"
100 Scode=8
110 ELSE
120 ASSIGN @Hp4294a TO 717
130 ASSIGN @Binary TO 717;FORMAT OFF
140 Scode=7
150 END IF
160 Cal_point$="FIXED"
170 File$="COM_DATA"
180 Std_file$="STD_VAL"
190 !
200 ! Initial Setting
210 !
220 OUTPUT @Hp4294a;"PRES"
230 OUTPUT @Hp4294a;"*OPC?"
240 ENTER @Hp4294a;Buff$
250 OUTPUT @Hp4294a;"CALP ";Cal_point$
260 !
270 ! Entry Standard Value
280 !
290 CALL Inp_data("Open(G)",Open_g)
300 CALL Inp_data("Open(C)",Open_c)
310 CALL Inp_data("Short(R)",Short_r)
320 CALL Inp_data("Short(L)",Short_l)
330 CALL Inp_data("Load(R)",Load_r)
340 CALL Inp_data("Load(L)",Load_l)
350 OUTPUT @Hp4294a;"DCOMOPENG ";Open_g
360 OUTPUT @Hp4294a;"DCOMOPENC ";Open_c/1.E-15
370 OUTPUT @Hp4294a;"DCOMSHORR ";Short_r
380 OUTPUT @Hp4294a;"DCOMSHORL ";Short_l
390 OUTPUT @Hp4294a;"DCOMLOADR ";Load_r
400 OUTPUT @Hp4294a;"DCOMLOADL ";Load_l
410 !
420 ! Data Measurement
430 !