Chapter 3 Calibration Procedures

Calibration Program

continued

880

OUTPUT @Pwrsupply;"CAL:VOLT:DATA ";Dmm_rdg

! send stored value to Power Supply

890

OUTPUT

@Pwrsupply;"CAL:VOLT:LEV MID"

 

! set output to middle cal value

900

WAIT 2

 

 

! allow output to settle

910

OUTPUT

@Dmm;"MEAS:VOLT:DC?"

 

! measure output with Dmm and

920

ENTER @Dmm;Dmm_rdg

 

! store in variable Dmm_rdg

930

PRINT Dmm_rdg

 

 

940

OUTPUT @Pwrsupply;"CAL:VOLT:DATA ";Dmm_rdg

! send stored value to Power Supply

950

OUTPUT

@Pwrsupply;"CAL:VOLT:LEV MAX"

 

! set output to maximum cal value

960

WAIT 2

 

 

! allow output to settle

970

OUTPUT

@Dmm;"MEAS:VOLT:DC?"

 

! measure output with Dmm and

980

ENTER @Dmm;Dmm_rdg

 

! store in variable Dmm_rdg

990

PRINT Dmm_rdg

 

 

1000

OUTPUT @Pwrsupply;"CAL:VOLT:DATA ";Dmm_rdg

! send stored value to Power Supply

1010

OUTPUT

@Pwrsupply;"OUTP OFF"

 

 

1020

OUTPUT

@Pwrsupply;"SYST:ERR?"

 

 

1030

ENTER @Pwrsupply;Error$

 

 

1040

!

 

 

 

1050

! Check to see if there is an error.

If there is an error,

1060

! display the error and exit the program.

 

1070

!

 

 

 

1080

CLEAR SCREEN

 

 

1090

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

 

 

1100

PRINT "Voltage calibration completed for Power Supply "

1110

ELSE

 

 

 

1120

PRINT "ERROR:";Error$;"Voltage not Calibrated"

1130

BEEP

 

 

 

1140

GOTO

2250

 

 

1150

END IF

 

 

 

1160

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

1170

PRINT TABXY(10,7),"BEGIN OVP CALIBRATION"

 

1180

WAIT 4

 

 

 

1190

CLEAR SCREEN

 

 

1200

OUTPUT

@Pwrsupply;"OUTP ON"

 

! Turn on Power Supply output

1210

OUTPUT

@Pwrsupply;"CAL:VOLT:PROT"

 

! Perform OVP circuit calibration

1220

WAIT 9

 

 

! Allow OVP calibration to finish

1230

OUTPUT

@Pwrsupply;"OUTP OFF"

 

! Turn off Power Supply output

1240

OUTPUT

@Pwrsupply;"SYST:ERR?"

 

 

1250

ENTER @Pwrsupply;Error$

 

 

1260

!

 

 

 

1270

! Check to see if there is an error.

If there is an error,

1280

! display the error and exit the program.

 

1290

!

 

 

 

1300

CLEAR SCREEN

 

 

1310

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

 

 

1320

PRINT "OVP calibration completed for Power Supply "

1330

ELSE

 

 

 

1340

PRINT "ERROR:";Error$;"OVP not Calibrated"

1350

BEEP

 

 

 

1360

GOTO

2250

 

 

1370

END IF

 

 

 

74

Page 75
Image 75
Agilent Technologies E3632A manual Else