Advertisement
Model
DRC-93C
Section IV
4 . 1 5 . 3
IEEE-488 TEST
PROGRAM
Quick Basic
3.0
Example
National Instruments
QUICK
BASIC
IBM Example
THIS PROGRAM WAS WRITTEN FOR THE NATIONAL INSTRUMENTS GPIP-PC2
IEEE-488
CARD
FOR IBM
PC AND
COMPATIBLES
This program will allow the user to communicate with Lake Shore's
instruments, interactively from the keyboard of an IBM compatible
computer which has a National Instruments GPIB-PC2 installed.
common shared IBSTA%, IBERR%, IBCNT%
print "Input number for the type of
instrument---820,93C,82C,
or 93C
print "0=820"
print
"2 =8 2
C"
print "1=93C"
print
3=9
3C"
input I$
if I$="0" then TEMP$="dev20" 'default address for
820
if I$="1" then TEMP$="dev12" 'default address for 93C, etc.
if I$="2" then TEMP$="dev12"
if 1$="3" then TEMP$="dev12"
call IBFIND
(TEMP$,
TEMP%)
A$=space$(
750)
B$=B$+chr$
(13)
+chr$
(10)
'Add
CR
and
LF
to command
call IBWRT (TEMP%, B$)
'Send command to instrument
call IBRD(TEMP%,A$)
'ENTER from instrument (SEE NOTE BELOW)
print A$
'Display received information on screen
A$=space$ (750)
Clear A$
goto Loopl
end
Lake Shore Cryotronics instruments will return the data requested,
but if the command input to the instrument does not request any
information the instrument will respond with the information last
'set up when running IBCONF
'Required command to address instrument
Loopl: input B$
'Entered from keyboard while running
requested.
4 . 1 5 . 4
HP86B
Bus
Commands
Program
The following program is for the HP86B and exercises the various bus
commands.
10
REM Set IEEE Address to 12
20
REM Address Switch
1
OPEN
( 0 )
to get
(CR)
(LF)
30
DIM A$[42]
!
For longest string
40
OUTPUT
712;"W0"
!
Note WO
50
ENTER 712;A$
!
Ask for string WO
60
DISP "WO
=
";A$
!
Display string
WO
70 DISP "Display Sensor
="
;A$
[
1,8]
80
DISP "Control Sensor
="
;A$
[
10,171
90
DISP "Set Point =";A$[19,26]
!
Display Set Point Reading
!
Display Sensor reading
!
Display Control Sensor Reading
COPYRIGHT
3/88
LSCI
4-31
Advertisement
