Agilent Technologies 75000 Series C - Manual (Page 93)

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
!Send 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 Successful"
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 desired
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 !---------- Subroutines ----------
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