Table of Contents
Advertisement
480 Current_cal: !
Imon DAC and Current DAC calibration
490
Err_found=0
500
PRINT TABXY(5,10),"CONNECT INSTRUMENTS AS SHOWN IN FIG. A -1(2). Then Press Continue"
510
PAUSE
520
CLEAR SCREEN
540
Password is optional - only required if set to non-zero value
550
Default password is four-digit model number
560
!
570
! LINE 590 PASSWORD MUST BE EDITED FOR MODEL OTHER THAN E4356A
580
!
590
OUTPUT @Ps;"CAL:STATE ON, 4356"
600
OUTPUT @Ps;"VOLT:LEV 2"
610
! Refer to Table A-1 for correct shunt value for model being calibrated
620
!
630
INPUT "ENTER VALUE 0F CURRENT SHUNT BEING USED",Shunt_val
680
OUTPUT @Ps;"CAL:CURRENT:LEVEL MIN"
690
INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read
700
Current=Volt_read/Shunt_val
710
OUTPUT @Ps;"CAL:CURRENT ";Current
720
OUTPUT @Ps;"CAL:CURRENT:LEVEL MAX"
730
INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read
740
Current=Volt_read/Shunt_val
750
OUTPUT @Ps;"CAL:CURRENT ";Current
760
GOSUB Save_cal
770
IF 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"
850
END IF
860
STOP
870 Save_cal:
! SAVE CALIBRATION
880
REPEAT
890
OUTPUT @Ps;"SYSTEM:ERROR?"
900
ENTER @Ps;Err_num,Err_msg$
910
IF Err_num< >0 THEN
920
930
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
1000
END IF
1010
END IF
1020
OUTPUT @Ps;"CAL:STATE OFF"
1030
RETURN
1040
END
104
Calibration
Figure B-2. BASIC Calibration Program (continued)
PRINT "ERROR: ";Err_msg$
Err_found=1
OUTPUT @Ps;"CAL:SAVE"
Advertisement
Table of Contents
