DC Adjustment Procedure (cont’d)
Example Program (cont’d)
450 IF Cal_point=30 THEN !Special case -- set range now
460 OUTPUT @Dmm;"RANGE 10"
470 END IF
480 !
490 OUTPUT @Afg;"CAL:DC:POINT? ";Reading !S end cal value to AFG
500 ENTER @Afg;This_point,Err_num !Returns current point,err code
510 WAIT .5
520 !
530 Results(Cal_point)=PROUND(Reading,-5)
540 Cal_point=Cal_point+1 !Increment Cal_point
550 UNTIL (Err_num<>0) OR (Cal_point>Max_cal_point)
560 !
570 !---------- End of loop ----------
580 !If error, print error number & cal point, else send PUD string
590 IF Err_num=0 THEN
600 PRINT "Calibration Successfu l"
610 !
620 !Store cal information if desired - place desired data inside quotes
630 !in following line and remove !’s.
640 ! Pud$="63 CHARACTERS MAX" ! Change Pud$ as desi red
650 ! OUTPUT @Afg;"*PUD #0"&Pud$;CHR$(10);END
660 ELSE
670 PRINT "Calibration Error Number "&VAL$(Err_num)&" at Cal Point "&VAL$( Cal_point-1)
680 END IF
690 DISP
700 !
710 !---------- Quit - ---------
720 PAUSE
730 OUTPUT @Afg;"CAL:SEC:STATE ON" !Enable cal security
740 OUTPUT @Afg;"*RST" !Reset AFG
750 OUTPUT @Dmm;"RESET"
760 LOCAL @Dmm !Return DMM to local control
770 !
780 ASSIGN @Afg TO *
790 ASSIGN @Dmm TO *
800 STOP !End of main program
810 !
820 !---------- Subr outines ----------
830 !
840 Setup_dmm: !
850 SELECT Cal_point
860 CASE =1 !Cal point 1
870 OUTPUT @Dmm;"FUNC DCV;RANGE 10;NPLC 10;OCOMP OFF"
880 CASE =29 !Cal point 29
890 OUTPUT @Dmm;"RANGE 1;NPLC 1"
(Continued on next page)
Agilent E1445A Service Manual Adjustments 91