
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
510PAUSE
520CLEAR SCREEN
540Password is optional - only required if set to
550Default password is
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
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