Table of Contents
Advertisement
490
!---------- Start of loop ----------
500
PRINT "CAL POINT","ERR CODE","READING (V)"
510
PRINT "---------","--------","-----------"
520
REPEAT
530
540
550
570
580
590
600
610
620
630
640
UNTIL (Err_num<>0) OR (This_point=0)
650
!
660
!---------- End of loop ----------
670
!IF ERROR, PRINT ERROR NUMBER & CAL POINT
680
IF Err_num=0 THEN
690
700
ELSE
710
"&VAL$(This_point)
720
END IF
730
!
740
!---------- Quit ----------
750
OUTPUT @Afg;"*RST;*CLS"
760
LOCAL @Dmm
770
DISP
780
STOP
790
!
800
!---------- Subroutines ----------
810 Read_dmm:
820
WAIT .5
830
OUTPUT @Dmm;"TRIG SGL"
840
ENTER @Dmm;Reading
850
Reading=PROUND(Reading,-10)
860
RETURN
870
!
880 Errmsg: !
890
BEEP
900
PAUSE
910
STOP
920
RETURN
930
END
68 Adjustments
DISP "DC CALIBRATION IN PROGRESS: CAL POINT #"&VAL$(This_point+1)
!
WAIT .5
GOSUB Read_dmm
IF Cal_point=6 THEN OUTPUT @Dmm;"RANGE 10"
!
OUTPUT @Afg;"CAL:DC:POINT? ";Reading
ENTER @Afg;This_point,Err_num
PRINT This_point,Err_num,Reading
!
PRINT "CALIBRATION SUCCESSFUL"
PRINT "CALIBRATION ERROR NUMBER "&VAL$(Err_num)&" AT CAL POINT
!
!Get reading
!Send cal value to AFG
!Returns current point, err code
!Reset AFG
!Return DMM to local control
!End of main program
!Get reading
Chapter 3
Advertisement
Table of Contents
