Filter
Top Products
Verification and Calibration 115
540 Password is optional - only required if set to non-zero value
550 Default password is four-digit model number
560 !
570 OUTPUT @Ps;"CAL:STATE ON, 4350"
580 OUTPUT @Ps;"VOLT:LEV 2"
590 ! Refer to Table A-1 for correct shunt value for model being calibrated
600 !
610 INPUT "ENTER VALUE 0F CURRENT SHUNT BEING USED",Shunt_val
620 OUTPUT @Ps;"CAL:CURRENT:LEVEL MIN"
630 INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read
640 Current=Volt_read/Shunt_val
650 OUTPUT @Ps;"CAL:CURRENT ";Current
660 OUTPUT @Ps;"CAL:CURRENT:LEVEL MAX"
670 INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read
680 Current=Volt_read/Shunt_val
690 OUTPUT @Ps;"CAL:CURRENT ";Current
700 GOSUB Save_cal
710 IF Err_found THEN
720 INPUT "ERRORS have occurred, REPEAT CURRENT CALIBRATION ( Y 0R N )?",Resp$
730 IF TRIM$(UPC$(Resp$[l,1] ))="Y" THEN GOTO Volt_cal
740 END IF
750 IF Err_found THEN
760 PRINT "CURRENT CALIBRATION NOT SAVED"
770 ELSE
780 PRINT "CURRENT CALIBRATION COMPLETE"
790 END IF
800 STOP
810 Save_cal: ! SAVE CALIBRATION
820 REPEAT
830 OUTPUT @Ps;"SYSTEM:ERROR?"
840 ENTER @Ps;Err_num,Err_msg$
850 IF Err_num< >0 THEN
860 PRINT "ERROR: ";Err_msg$
870 Err_found=1
880 END IF
890 UNTIL Err_num=0
900 IF NOT Err_found THEN
910 INPUT "SAVE CALIBRATION CONSTANTS ( Y 0R N )?",Resp$
920 IF TRIM$(UPC$(Resp$[l,1] ))="Y" THEN
930 OUTPUT @Ps;"CAL:SAVE"
940 END IF
950 END IF
960 OUTPUT @Ps;"CAL:STATE OFF"
970 RETURN
980 END
Figure A-2. Agilent BASIC Calibration Program (continued)