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

56 Chapter 4

Preparing For Accurate Measurement

Adapter Setting

200 !

210 Result=FNAdap_setup(@Hp4294a,Scode,"Phase")

220 IF Result<>0 THEN Prog_end

230 !

240 Result=FNAdap_setup(@Hp4294a,Scode,"Open")

250 IF Result<>0 THEN Prog_end

260 !

270 Result=FNAdap_setup(@Hp4294a,Scode,"Short")

280 IF Result<>0 THEN Prog_end

290 !

300 Result=FNAdap_setup(@Hp4294a,Scode,"Load")

310 IF Result<>0 THEN Prog_end

320 !

330 OUTPUT @Hp4294a;"ECALDON"

340 OUTPUT @Hp4294a;"*OPC?"

350 ENTER @Hp4294a;Buff$

360 PRINT "All Data Measurement Complete"

370 !

380 Prog_end: END

390 !

400 ! Adapter Setup Data Measurement Function

410 !

420 DEF FNAdap_setup(@Hp4294a,INTEGER Scode,Standard$)

430 DIM Inp_char$[9],Err_mes$[50]

440 INTEGER Err_no

450 OUTPUT @Hp4294a;"*CLS"

460 PRINT "Set "&Standard$&"-Connection"

470 INPUT "OK? [Y/N]",Inp_char$

480 IF UPC$(Inp_char$)="Y" THEN

490 ON INTR Scode GOTO Meas_end

500 ENABLE INTR Scode;2

510 SELECT Standard$

520 CASE "Phase"

530 OUTPUT @Hp4294a;"ECALP"

540 CASE "Open"

550 OUTPUT @Hp4294a;"ECALA"

560 CASE "Short"

570 OUTPUT @Hp4294a;"ECALB"

580 CASE "Load"

590 OUTPUT @Hp4294a;"ECALC"

600 END SELECT

610 PRINT "Now measuring..."

620 Meas_wait: GOTO Meas_wait

630 Meas_end: !

640 OUTPUT @Hp4294a;"OUTPERRO?"

650 ENTER @Hp4294a;Err_no,Err_mes$

660 IF Err_no=0 THEN

670 PRINT Standard$&" Data Measurement Complete"

680 RETURN 0

690 ELSE

700 PRINT "Error: "&Err_mes$

710 PRINT "Program Interruption"

720 OUTPUT @Hp4294a;"ECALQUI"

730 RETURN -1

740 END IF

750 ELSE

760 PRINT "Program Interruption"

770 OUTPUT @Hp4294a;"ECALQUI"

1 2 ... 51 52 53 54 55 56 57 58 59 60 61 ... 517 518

Comments to this Manuals

No comments