GPIB Operation Description (Option)
INPUT #2, result$
PRINT "step", j, ": ", result$
NEXT j
PRINT
PRINT #1, "output 3; SAFEty: RESult: ALL: MMET?"
PRINT #1, "enter 3"
FOR j = 1 TO STEPNUM%
INPUT #2, result$
PRINT "step", j, ": ", result$
NEXT j
END IF
WEND
PRINT #1, "output 3; SOURce: SAFEty: STOP"
CLOSE: SYSTEM
END
REM----------------------------------------------------------------------------------------
REM Please run the ULI file before this program.
REM This program is that getting results
REM through GPIB from the 1905X.
REM 1905X's GPIB address is 3
REM----------------------------------------------------------------------------------------
REM CLS
PRINT "Program is running."
OPEN "gpib0" FOR OUTPUT AS #1 'set the talker
OPEN "gpib0" FOR INPUT AS #2 'set the listener
REM define the SRQ-handling routine
ON PEN GOSUB MySRQRoutine
REM Enable the on SRQ functionality
PEN ON
PRINT #1, "abort"
PRINT #1, "GPIBEOS IN LF" ' set the end code
REM PRINT "waiting for SRQ from 1905X"
PRINT #1, "output 3; SOURce: SAFEty: STOP" ' STOP the instrument
PRINT #1, "output 3; *SRE 2" 'set status enable register
PRINT #1, "output 3; *ESE 60" 'set standard enable register
PRINT #1, "output 3; SOURce: SAFEty: STARt"
FOR I = 1 TO 10000
PRINT "Please wait for SRQ ", I
NEXT I
PRINT "Program is stopped!"
5-41
www.valuetronics.com
To Next Page
Loading...
