58542 VXIbus Universal Power Meter
A-4 Publication 21555, Rev. E, September 2002
A.2.3 Sensor Calibration Example 3
The following program uses the CAL format to perform power sweep calibration of a power sensor.
Completion of the calibration function is monitored via service requests using the *OPC, operation
complete command. The Standard Event Status Register is used to report pass/fail by asserting bit 3,
value 8, the Device Dependent Error bit.
320 !
330 ! ##################################
340 !
330 ! CALIBRATE THE SENSORS
360 !
370 ! ##################################
380 !
390 ASSIGN@Pwr_mtr to 70101
400 CLEAR@PWR_mtr
410 WAIT 1
420 OUTPUT@Pwr_mtr;*CLS ! Clear status registers and error queue buffer
425 WAIT 0.3
430 OUTPUT@Pwr_mtr;*ESE 1 ! Standard Event Status Enable bit 0, Operation complete
440 OUTPUT@Pwr_mtr;*SRE 32 ! Service Request Enable Status Byte bit 5,
! Standard Event Status Register
450 !
460 ON INTR 7 GOSUB Spoll_intr
470 ENABLE INTR 7;2
480 !
490 ! Calibration Routine
500 !
510 INPUT Connect the sensor to the calibrator. Then press ENTER.,Dmy
520 PRINT Calibrating Sensor 1
525 Srq_flag=0
530 OUTPUT@Pwr_mtr;CAL1;*OPC ! For zeroing substitute CAL1:ZERO for CAL1
540 OUTPUT@Pwr_mtr;*OPC ! If not sent with previous line, send *OPC here
550 !
560 ! Now wait for srq
570 !
580 !
590 !
600 WHILE Srq_flag=0
610 END WHILE
620 !
630 ! Enter Error Reporting From Standard Event Status Register
640 !
650 OUTPUT@Pwr_mtr;*ESR?
660 ENTER@Pwr_mtr;Esr
670 IF Esr=0 THEN PRINT Operation was not completed. Also, no errors.
680 IF Esr=1 THEN
690 PRINT Operation Completed. No errors reported during CAL execution.
700 ELSE
710 IF Pass_cal<>0 THEN PRINT Operation completed. An error has occurred or power
was just turned on.
720 OUTPUT@Pwr_mtr;SYST:ERR?
730 ENTER@Pwr_mtr;Err_msg$ ! Reading an error message clears it
To Next Page
Loading...
