Agilent-technologies 66001A Manual do Utilizador descarregar pdf (Página 40)

40 Calibration

500 INPUT "ENTER VALUE OF CURRENT SHUNT BEING USED",Shunt_val

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

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

530 Current=Volt_read/Shunt_val

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

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

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

570 Current=Volt_read/Shunt_val

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

590 GOSUB Save_cal

600 IF Err_found THEN

610 INPUT "ERRORS have occurred, REPEAT CURRENT

CALIBRATION (Y OR N)?",Resp$

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

Current_cal

630 END IF

640 IF Err_found THEN

650 PRINT "CURRENT CALIBRATION NOT SAVED"

660 ELSE

670 PRINT "CURRENT CALIBRATION COMPLETE"

680 END IF

690 STOP

700 Save_cal: ! SAVE CALIBRATION CONSTANTS

710 REPEAT

720 OUTPUT @Ps;"SYSTEM:ERROR?"

730 ENTER @Ps;Err_num,Err_msg$

740 IF Err_num<>0 THEN

750 PRINT "ERROR: ";Err_msg$

760 Err_found=l

770 END IF

780 UNTIL Err_num=0

790 IF NOT Err_found THEN

800 INPUT "SAVE CALIBRATION CONSTANTS (Y OR N)?",Resp$

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

820 OUTPUT @Ps;"CAL:SAVE"

830 END IF

840 END IF

850 OUTPUT @Ps;"CAL:STATE 0"

860 RETURN

870 END

Figure A-2. Agilent BASIC Calibration Program (continued)

1 2 ... 35 36 37 38 39 40 41 42 43 44 45 ... 54 55

Sem comentários

Agilent-technologies 66001A Manual do Utilizador Página 40