Chapter 3 Calibration Procedures

Calibration Program

...continued

400PRINT TABXY(10,10),"*************************************************"

410PRINT TABXY(10,11)," Using the annunciator, note the output selected."

420PRINT TABXY(10,12)," Connect the selected output to the DMM. Observe"

430PRINT TABXY(10,13)," Polarity."

440PRINT TABXY(10,14),"*************************************************"

450PRINT TABXY(10,15),"Press ’C’ to continue, or ’E’ to Exist, then"

460PRINT TABXY(10,16),"press ’Enter’"

470Ch$="C"

480INPUT Ch$

490IF Ch$="E" OR Ch$="e" THEN GOTO 1420

500

 

OUTPUT @Psup;"OUTP ON"

!

Turn

on Power supply output.

510

 

CLEAR SCREEN

 

 

 

520

 

OUTPUT @Psup;"CAL:VOLT:LEVel MIN" !

Set output to minimum calibration

530

!

 

 

value

540

 

WAIT 1

 

!

Allow output to settle.

550

 

OUTPUT @Dmm;"MEAS:VOLT:DC? "

 

!

Measure output with Dmm.

560

 

ENTER @Dmm;Dmm_rdg

 

!

Sotre in variable Dmm_rdg.

570

 

PRINT Dmm_rdg

 

 

 

580

 

OUTPUT @Psup;"CAL:VOLT:DATA ";Dmm_rdg !

Send stored value to power

590

!

 

 

 

supply

600

 

OUTPUT @Psup;"CAL:VOLT:LEVel MAX" !

Set output to maximum cal value.

610

 

WAIT 1

!

Allow output to settle.

620

 

OUTPUT @Dmm;"MEAS:VOLT:DC?"

!

Measure output with Dmm.

630

 

ENTER @Dmm;Dmm_rdg

!

Store in variable Dmm_rdg.

640

 

PRINT Dmm_rdg

 

 

 

650

 

OUTPUT @Psup;"CAL:VOLT:DATA ";Dmm_rdg ! Send stored value to power

660

!

 

 

 

supply

670OUTPUT @Psup;"OUTP OFF"

680OUTPUT @Psup;"SYST:ERR?"

690ENTER @Psup;Error$

700!

710! Check to see if there is an error. If there is an error,

720! display the error and exit the program.

730!

740IF Error$="+0,""No error""" THEN

750PRINT "Voltage calibration complated for Power Supply ";I

760ELSE

770PRINT "ERROR:";Error$;" Power Supply ";I;" Voltage not Calibrated"

780

GOTO 1420

790

END IF

800

NEXT I

810PRINT TABXY(10,5),"VOLTAGE CALIBRATION COMPLETE"

820PRINT TABXY(10,7),"BEGIN CURRENT CALIBRATION"

830!

840! Perform the CURRENT calibration by stepping through one

850! power supply at a time. Alert the operator to hook up the

860! connection before calibrating.

870!

880FOR I=1 TO 3

890OUTPUT @Psup;"INST:NSEL ";I !Select the output to be calibrated.

900! Alert operator to connect lead

76

Page 77
Image 77
Agilent Technologies E3631A manual END if