HP 53131A, 132A manual Send the expected frequency

Chapter 3 Programming Your Universal Counter for Remote Operation

Elements of SCPI Commands

To Optimize Throughput (QuickBASIC) (Continued)

'The following lines will provide the fastest throughput, regardless of 'the state of the counter before these lines are executed.

CALL sendhp(":FREQ:ARM:STAR:SOUR IMM")	'These 3 lines enable using
CALL sendhp(":FREQ:ARM:STOP:SOUR IMM")	'time arming with a 0.1 second
CALL sendhp(":EVENT1:LEVEL 0")	'Set trigger level on channel 1
	'This also disables auto trigger
CALL sendhp(":CALC:MATH:STATE OFF")	'Make sure all post-processing
CALL sendhp(":CALC2:LIM:STATE OFF")	'is turned off.
CALL sendhp(":CALC3:AVER:STATE OFF")
CALL sendhp(":HCOPY:CONT OFF")	'Do not update printing operations
CALL sendhp(":ROSC:SOUR INT")
CALL sendhp(":ROSC:EXT:CHECK OFF")
CALL sendhp(":DIAG:CAL:INT:AUTO OFF")	'Disable automatic interpolator
	'calibration. The most recent
	'calibration factors will be
	'used in the calculation for
	'frequency
CALL sendhp("*DDT #15FETC?")	'Define trigger as fetc?
CALL sendhp(":DISP:ENABLE OFF")	'Turn off the display
CALL sendhp("READ:FREQUENCY?")	'Read the expected frequency
CALL IOENTERS(source&, freqstring(1), maxelem%, actual%)
CALL sendhp(":FREQ:EXP1 " + freqstring(1))	'Send the expected frequency
CALL sendhp(":INIT:CONT ON")	'Start making measurements
PRINT "Making measurements"
FOR i = 1 TO samples
CALL IOTRIGGER(source)	'Query the counter for data

CALL IOENTERS(source&, freqstring(i), 22, actual%) 'Read the ASCII characters NEXT i

PRINT "Measurements complete"

END

SUB sendhp (code$)

CALL iooutputs(source, code$, LEN(code$))

END SUB

Programming Guide 3-87