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

62 Chapter 4

Preparing For Accurate Measurement

User Calibration

560 ! User Calibration Data Measurement Function

570 !

580 DEF FNUser_cal(@Hp4294a,INTEGER Scode,Standard$)

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

600 INTEGER Err_no

610 OUTPUT @Hp4294a;"*CLS"

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

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

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

650 ON INTR Scode GOTO Meas_end

660 ENABLE INTR Scode;2

670 SELECT Standard$

680 CASE "Open"

690 OUTPUT @Hp4294a;"CALA"

700 CASE "Short"

710 OUTPUT @Hp4294a;"CALB"

720 CASE "Load"

730 OUTPUT @Hp4294a;"CALC"

740 END SELECT

750 PRINT "Now measuring..."

760 Meas_wait: GOTO Meas_wait

770 Meas_end: !

780 OUTPUT @Hp4294a;"OUTPERRO?"

790 ENTER @Hp4294a;Err_no,Err_mes$

800 IF Err_no=0 THEN

810 PRINT Standard$&" Data Measurement Complete"

820 RETURN 0

830 ELSE

840 PRINT "Error: "&Err_mes$

850 PRINT "Program Interruption"

860 OUTPUT @Hp4294a;"CALQUI"

870 RETURN -1

880 END IF

890 ELSE

900 PRINT "Program Interruption"

910 OUTPUT @Hp4294a;"CALQUI"

920 RETURN -1

930 END IF

940 FNEND

950 !

960 ! Data Input Function

970 !

980 SUB Inp_data(Mes$,Inp_val)

990 DIM Inp_char$[30]

1000 ON ERROR GOTO Inp_start

1010 Inp_start:!

1020 PRINT "Input "&Mes$

1030 INPUT "Value?",Inp_char$

1040 Inp_val=VAL(UPC$(Inp_char$))

1050 PRINT "Input value: ";Inp_val

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

1070 IF UPC$(Inp_char$)<>"Y" THEN Inp_start

1080 OFF ERROR

1090 SUBEND

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

Comments to this Manuals

No comments