Quick Basic Ieee-488 Interface Program - Lakeshore 340 User Manual

' IEEEEXAM.BAS
'
' This program works with QuickBasic 4.0/4.5 on an IBM PC or compatible.
'
' The example requires a properly configured National Instruments GPIB-PC2 card. The REM
' $INCLUDE statement is necessary along with a correct path to the file QBDECL.BAS.
' CONFIG.SYS must call GPIB.COM created by IBCONF.EXE prior to running Basic. There must
' be QBIB.QBL library in the QuickBasic Directory and QuickBasic must start with a link
' to it. All instrument settings are assumed to be defaults: Address 12, Terminators
' <CR> <LF> and EOI active.
'
' To use, type an instrument command or query at the prompt. The computer transmits to
' the instrument and displays any response. If no query is sent, the instrument responds
' to the last query received. Type "EXIT" to exit the program.
'
REM $INCLUDE: 'c:\gpib-pc\qbasic\qbdecl.bas'
CLS
PRINT "IEEE-488 COMMUNICATION PROGRAM"
PRINT
CALL IBFIND("dev12", DEV12%)
TERM$ = CHR$(13) + CHR$(10)
LOOP2: IN$ = SPACE$(2000)
LINE INPUT "ENTER COMMAND (or EXIT):"; CMD$
CMD$ = UCASE$(CMD$)
IF CMD$ = "EXIT" THEN END
CMD$ = CMD$ + TERM$
CALL IBWRT(DEV12%, CMD$)
CALL IBRD(DEV12%, IN$)
ENDTEST = INSTR(IN$, CHR$(13))
IF ENDTEST > 0 THEN
IN$ = MID$(IN$, 1, ENDTEST – 1)
PRINT "RESPONSE:", IN$
ELSE
PRINT "NO RESPONSE"
END IF
GOTO LOOP2
Remote Operation
Lake Shore Model 340 Temperature Controller User's Manual
Table 9-3. Quick Basic IEEE-488 Interface Program
EXAMPLE PROGRAM FOR IEEE-488 INTERFACE
'Link to IEEE calls
'Clear screen
'Open communication at address 12
'Terminators are <CR><LF>
'Clear for return string
'Get command from keyboard
'Change input to upper case
'Get out on Exit
'Send command to instrument
'Get data back each time
'Test for returned string
'String is present if <CR> is seen
'Strip off terminators
'Print return string
'No string present if timeout
'Get next command
9-11