Controller Programs
G-5
IBM PC/XT/AT or PS/2 with
IOtech Driver488 Software
Introduction
Driver488 software is an IEEE-488 driver for IBM PC and
compatible computers. When combined with an IEEE-488
interface board, the package can control devices from lan-
guages including BASIC, Pascal, Fortran, and C. Driver488
software is compatible with:
• IOtech GP488B or GP488/2 boards
• National Instruments GPIB-PC, PCII, PCIIA, or PCIII
boards
• Capital Equipment #01000-00300 board
• IBM GPIB Adapter
The following GW-BASIC program sends a command mes-
sage to the Model 2001 and displays the instrument response
for queries on the CRT. The computer must be equipped with
an IEEE-488 interface board, the DOS 3.00 (or later) operat-
ing system, and a language with DOS I/O capability.
Driver488 controller software must be installed and config-
ured as described in the instruction manual.
Directions
1. Using the front panel MENU key and the GPIB menu
item, set the primary address of the Model 2001 to 16.
2. With power off, connect the Model 2001 to the IEEE-
488 interface installed in the IBM computer.
3. Type in GWBASIC on the computer and get into the Mi-
crosoft interpretive BASIC language.
4. Enter the lines below using the return key after each line.
5. Run the program and type in the desired command
string at the Enter Program Message prompt. For exam-
ple, to request a reading, type in :FETCh? and press the
RETURN key. The reading will be displayed on the
CRT.
IOTECH
10
20
30
35
40
50
60
70
80
90
100
110
120
130
140
150
160
170
180
190
OPEN “\DEV\IEEEOUT” FOR OUTPUT AS #1
IOCTL#1, “BREAK”
PRINT#1,”RESET”
PRINT #1, “TERM LF EOI”
OPEN “\DEV\IEEEIN” FOR INPUT AS #2
PRINT#1, “FILL ERROR”
LINE INPUT “Enter Program Message “;A$
IF LEN(A$)=0 THEN 140
PRINT #1,”OUTPUT 16;”+A$
Length = LEN(A$)
FOR I = 1 TO Length
Char$ = MID$(A$, I, 1)
IF Char$ =”?” THEN GOTO 150
NEXT
GOTO 60
PRINT #1,”ENTER 16”
LIN E INPUT#2,B$
PRINT B$
GOTO 60
END
‘ Open file for output.
‘ Reset.
‘ Open file for input.
‘ Enable Sequence error detect
‘ Prompt for and get commands.
‘ Check for null.
‘ Send commands.
‘ Determine length of string.
‘ Identify character in string.
‘ If “?”, then goto 150.
‘ If not a query, goto 60.
‘ Address 2001 to talk.
‘ Display response message.
‘ Repeat.
To Next Page
Loading...
Need help?
General
