Agilent Technologies 4294A Service Manual download pdf (Page 61)

Chapter 4 61

Preparing For Accurate Measurement

User Calibration

1. Chapter Title

2. Chapter Title 3. Chapter Title

4. Getting Ready For

5. Chapter Title

Accurate Measurement

Example 4-2 Data measurement for user calibration

10 DIM Input_val$[9],Buff$[9],Adapter$[9]

20 REAL Open_g,Open_c,Short_r,Short_l,Load_r,Load_l

30 INTEGER Scode,Err_no

40 CLEAR SCREEN

50 IF SYSTEM$("SYSTEM ID")="HP4294A" THEN

60 ASSIGN @Hp4294a TO 800

70 Scode=8

80 ELSE

90 ASSIGN @Hp4294a TO 717

100 Scode=7

110 END IF

120 Cal_point$="USER"

130 !

140 ! Initial Setting

150 !

160 OUTPUT @Hp4294a;"PRES"

170 OUTPUT @Hp4294a;"*OPC?"

180 ENTER @Hp4294a;Buff$

190 OUTPUT @Hp4294a;"CALP ";Cal_point$

200 !

210 ! Entry Standard Value

220 !

230 CALL Inp_data("Open(G)",Open_g)

240 CALL Inp_data("Open(C)",Open_c)

250 CALL Inp_data("Short(R)",Short_r)

260 CALL Inp_data("Short(L)",Short_l)

270 CALL Inp_data("Load(R)",Load_r)

280 CALL Inp_data("Load(L)",Load_l)

290 OUTPUT @Hp4294a;"DCALOPENG ";Open_g

300 OUTPUT @Hp4294a;"DCALOPENC ";Open_c/1.E-15

310 OUTPUT @Hp4294a;"DCALSHORR ";Short_r

320 OUTPUT @Hp4294a;"DCALSHORL ";Short_l

330 OUTPUT @Hp4294a;"DCALLOADR ";Load_r

340 OUTPUT @Hp4294a;"DCALLOADL ";Load_l

350 !

360 ! Data Measurement

370 !

380 OUTPUT @Hp4294a;"ESNB 256"

390 OUTPUT @Hp4294a;"*SRE 4"

400 !

410 Result=FNUser_cal(@Hp4294a,Scode,"Open")

420 IF Result<>0 THEN Prog_end

430 !

440 Result=FNUser_cal(@Hp4294a,Scode,"Short")

450 IF Result<>0 THEN Prog_end

460 !

470 Result=FNUser_cal(@Hp4294a,Scode,"Load")

480 IF Result<>0 THEN Prog_end

490 !

500 OUTPUT @Hp4294a;"CALDON"

510 OUTPUT @Hp4294a;"*OPC?"

520 ENTER @Hp4294a;Buff$

530 PRINT "All Data Measurement Complete"

540 Prog_end: END

550 !

1 2 ... 56 57 58 59 60 61 62 63 64 65 66 ... 517 518

Comments to this Manuals

No comments