Table of Contents
Advertisement
10 !This program reads the calibration data for the counter into an array.
20 !Before calibrating the counter, it is a good idea to read
30 !and store the current values in case something goes wrong with the
40 !calibration.
50 !In this program, the calibration values are stored in the array cal_data.
60 !Normally, you would store the calibration data on a disk for safe
70 !keeping. The calibration values should only be changed by running the
80 ! calibration diagnostics.
90 !
100
DIM Cal_data$[57]
110
DIM Err_string$[255]
120
CLEAR SCREEN
130
ASSIGN @Count TO 703
140
CLEAR @Count
150
OUTPUT @Count;"*RST"
160
OUTPUT @Count;"*CLS"
170
OUTPUT @Count;"*SRE 0"
180
OUTPUT @Count;"*ESE 0"
190
OUTPUT @Count;":STAT:PRES"
200
210
220
OUTPUT @Count;":CAL:DATA?"
230
ENTER @Count USING "#,4A";Head1$
240
ENTER @Count USING "%,K";Cal_data$
250
PRINT "Calibration data now in array Cal_data"
260
! You may want to store Cal_data$ and Head1$ on a disk.
270
! If, at some later point, you need to send the calibration data
280
! back to the counter, you would use the following command:
290
! OUTPUT @Count;":CAL:DATA ";Head1$&Cal_data$
300
! REPEAT
310
!
OUTPUT @Count;"SYST:ERR?"
320
!
ENTER @Count;Err_num,Err_string$
330
!
IF Err_num<>0 THEN
340
!
PRINT Err_num,Err_string$
350
!
END IF
360
! UNTIL Err_num=0
370
END
Chapter 3 Programming Your Universal Counter for Remote Operation
Programming Examples
To Read and Store Calibration Information
(HP BASIC)
3-68
! Array to hold calibration data
! Array to hold error message
! Assign I/O path for HP 53131A
! Reset the HP 53131A
! Clear event registers and error queue
! Clear service request enable register
! Clear event status enable register
! Preset enable registers and
! transition filters for operation and
! questionable status structures.
! Ask for data
! Send calibration data
Programming Guide
Advertisement
Table of Contents
