Table of Contents
Advertisement
'This program is useful for writing macros for the counter. Softkeys
'are available at the bottom of the computer screen to help determine
'the status of the macros.
'The SUB sendhp sends commands to the HP 53131A
DECLARE SUB sendhp (code$)
REM $INCLUDE: 'QBSETUP.BAS'
DIM SHARED source AS LONG
DIM maxlength AS INTEGER
DIM actual AS INTEGER
DIM length AS INTEGER
maxlength = 6400
DIM answer AS STRING
DIM namemacro AS STRING
DIM commandmacro AS STRING
DIM results AS STRING * 6400
DIM macros AS STRING
source = 703
isc& = 7
state% = 1
CLS
CALL IOEOI(isc&, state%)
CALL sendhp("*RST")
CALL sendhp("*CLS")
CALL sendhp("*SRE 0")
CALL sendhp("*ESE 0")
CALL sendhp(":STAT:PRES")
CALL sendhp(":INIT:CONT OFF")
KEY 1, "Free"
KEY 2, "Enable"
KEY 3, "Display"
KEY 4, "Query"
KEY 5, "Define"
KEY 6, "Delete1"
KEY 7, "Purge"
KEY 8, "Disable"
KEY 9, "Send"
KEY 10, "QUIT"
FOR i = 1 TO 10
KEY(i) ON
NEXT i
KEY ON
Chapter 3 Programming Your Universal Counter for Remote Operation
Programming Examples
To Use Macros (QuickBASIC)
3-88
'Required by HP 82335A
'Address and select code
'HP 53131A at address 3
'Select code 7
'Make sure EOI enabled
'Reset the counter
'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.
'Put counter in Single
Programming Guide
Advertisement
Table of Contents
