HP 53131A/132A 225 MHz Programming Manual page 150

'This program sets up the counter to determine the statistics of
'50 period measurements that are within limits defined by the variables
''UPPER' and 'LOWER'. Periods that are outside of the limits are not
'included in the statistics. The Limit graph is displayed so you can see if
'measurements are in limit.
'To alert the program that the statistics are ready, bit 8 in the Operation
'Status register is used. When statistics are being calculated, this bit
'is high, when they are complete, the bit goes low. By using the transition
'filters, an SRQ can be generated when statistics are complete.
'The SUB sendhp sends commands to the counter
DECLARE SUB sendhp (code$)
REM $INCLUDE: 'QBSETUP.BAS'
DIM SHARED source AS LONG
DIM status AS INTEGER
DIM complete AS INTEGER
DIM statusbyte AS INTEGER
DIM maximum AS STRING * 23
DIM minimum AS STRING * 23
DIM mean AS STRING * 23
DIM sdev AS STRING * 23
DIM nummeas AS INTEGER
DIM lower AS SINGLE
DIM upper AS SINGLE
nummeas = 50
lower = .0000005
upper = .000001
actual% = 0
maxelem% = 23
source& = 703
isc& = 7
complete = 0
state% = 1
priority% = 1
CLS
CALL IOEOI(isc&, state%)
CALL IOCLEAR(source&)
CALL sendhp("*RST")
CALL sendhp("*CLS")
CALL sendhp("*SRE 0")
CALL sendhp("*ESE 0")
CALL sendhp(":STAT:PRES")
CALL sendhp(":FUNC " + CHR$(34) + "PER 1" + CHR$(34)) 'Measure period
'The function must be a quoted string. The actual string sent to the
'counter is "PER 1"
Chapter 3 Programming Your Universal Counter for Remote Operation
Programming Examples
To Use Limits to Filter Data Before Measuring Stats
(QuickBASIC)
'Make sure EOI enabled
'Reset counter and interface
'Reset counter
'Clear event registers and error queue
'Clear service request enable register
'Clear event status enable registers
'Preset filters for Operation and
'Questionable Status structures
3-82
'Required by HP 82335A
'Address and select code
'Status byte variable
'Variable used in the program
'Status Byte variable
'Strings used to enter stats
'Number of measurements
'Lower limit
'Upper limit
'Number of statistics measurements
'Limit values
'Used in IOENTERS
'Used in IOENTERS
'Counter at address 3
'Select code 7
'Used to check if stats received
'Used in IOEOI
'Used in IOPEN
Programming Guide