Agilent Technologies 4294A Programming Manual page 61

Example 4-2 Data measurement for user calibration
10
20
30
40
50
60
70
80
90
100
110
120
130
140
150
160
170
180
190
200
210
220
230
240
250
260
270
280
290
300
310
320
330
340
350
360
370
380
390
400
410
420
430
440
450
460
470
480
490
500
510
520
530
540 Prog_end:
550
Chapter 4
DIM Input_val$[9],Buff$[9],Adapter$[9]
REAL Open_g,Open_c,Short_r,Short_l,Load_r,Load_l
INTEGER Scode,Err_no
CLEAR SCREEN
IF SYSTEM$("SYSTEM ID")="HP4294A" THEN
ASSIGN @Hp4294a TO 800
Scode=8
ELSE
ASSIGN @Hp4294a TO 717
Scode=7
END IF
Cal_point$="USER"
!
! Initial Setting
!
OUTPUT @Hp4294a;"PRES"
OUTPUT @Hp4294a;"*OPC?"
ENTER @Hp4294a;Buff$
OUTPUT @Hp4294a;"CALP ";Cal_point$
!
! Entry Standard Value
!
CALL Inp_data("Open(G)",Open_g)
CALL Inp_data("Open(C)",Open_c)
CALL Inp_data("Short(R)",Short_r)
CALL Inp_data("Short(L)",Short_l)
CALL Inp_data("Load(R)",Load_r)
CALL Inp_data("Load(L)",Load_l)
OUTPUT @Hp4294a;"DCALOPENG ";Open_g
OUTPUT @Hp4294a;"DCALOPENC ";Open_c/1.E-15
OUTPUT @Hp4294a;"DCALSHORR ";Short_r
OUTPUT @Hp4294a;"DCALSHORL ";Short_l
OUTPUT @Hp4294a;"DCALLOADR ";Load_r
OUTPUT @Hp4294a;"DCALLOADL ";Load_l
!
! Data Measurement
!
OUTPUT @Hp4294a;"ESNB 256"
OUTPUT @Hp4294a;"*SRE 4"
!
Result=FNUser_cal(@Hp4294a,Scode,"Open")
IF Result<>0 THEN Prog_end
!
Result=FNUser_cal(@Hp4294a,Scode,"Short")
IF Result<>0 THEN Prog_end
!
Result=FNUser_cal(@Hp4294a,Scode,"Load")
IF Result<>0 THEN Prog_end
!
OUTPUT @Hp4294a;"CALDON"
OUTPUT @Hp4294a;"*OPC?"
ENTER @Hp4294a;Buff$
PRINT "All Data Measurement Complete"
END
!
Preparing For Accurate Measurement
User Calibration
61