Figure B-2. BASIC Calibration Program (continued)

480 Current_cal: ! Imon DAC and Current DAC calibration

490 Err_found=0

500PRINT TABXY(5,10),"CONNECT INSTRUMENTS AS SHOWN IN FIG. A -1(2). Then Press Continue"

510PAUSE

520CLEAR SCREEN

540Password is optional - only required if set to non-zero value

550Default password is four-digit model number

560!

570! LINE 590 PASSWORD MUST BE EDITED FOR MODEL OTHER THAN E4356A

580!

590OUTPUT @Ps;"CAL:STATE ON, 4356"

600OUTPUT @Ps;"VOLT:LEV 2"

610! Refer to Table A-1 for correct shunt value for model being calibrated

620!

630INPUT "ENTER VALUE 0F CURRENT SHUNT BEING USED",Shunt_val

680OUTPUT @Ps;"CAL:CURRENT:LEVEL MIN"

690INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read

700Current=Volt_read/Shunt_val

710OUTPUT @Ps;"CAL:CURRENT ";Current

720OUTPUT @Ps;"CAL:CURRENT:LEVEL MAX"

730INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read

740Current=Volt_read/Shunt_val

750OUTPUT @Ps;"CAL:CURRENT ";Current

760GOSUB Save_cal

770IF Err_found THEN

780

INPUT "ERRORS have occurred, REPEAT CURRENT CALIBRATION ( Y 0R N )?",Resp$

790

IF TRIM$(UPC$(Resp$[l,1] ))="Y" THEN GOTO Volt_cal

800

END IF

810

IF Err_found THEN

820

PRINT "CURRENT CALIBRATION NOT SAVED"

830

ELSE

840

PRINT "CURRENT CALIBRATION COMPLETE"

850END IF

860STOP

870Save_cal: ! SAVE CALIBRATION

880REPEAT

890

OUTPUT @Ps;"SYSTEM:ERROR?"

900

ENTER @Ps;Err_num,Err_msg$

910

IF Err_num< >0 THEN

920

PRINT "ERROR: ";Err_msg$

930

Err_found=1

940

END IF

950

UNTIL Err_num=0

960

IF NOT Err_found THEN

970

INPUT "SAVE CALIBRATION CONSTANTS ( Y 0R N )?",Resp$

980

IF TRIM$(UPC$(Resp$[l,1] ))="Y" THEN

990

OUTPUT @Ps;"CAL:SAVE"

1000

END IF

1010

END IF

1020

OUTPUT @Ps;"CAL:STATE OFF"

1030

RETURN

1040

END

104 Calibration

Page 104
Image 104
Agilent Technologies E4356A manual Figure B-2. Basic Calibration Program