Chapter 3 Calibration Procedures
Calibration Program
74
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
To Next Page
Loading...
