Advertisement
Model DRc-93c
Section IV
B$="WE"+N1$+N2
$
'Assemble command
B$=B$+CHR$
(13)
+CHR$
(10)
CALL
IBWRT(TEMP%,B$)
CALL
IBRD(TEMP%,A$)
PRINT A$
PRINT #1,A$
NEXT I
CLOSE
1
'Close the file
END
'Add
CR
and
LF
to command
'Request Program Step I
'Get Program Step I
'Save on disk in file PROGRAM1
'Display received information on screen
4 . 1 2 . 3 . 6
National Instruments
QUICK
BASIC
IBM
Example of E
Command
Quick Basic
3.0
Example #3
THIS PROGRAM WAS WRITTEN FOR THE NATIONAL INSTRUMENTS GPIP-PC2
IEEE-488
CARD
FOR IBM
PC AND
COMPATIBLES
This program will restore Programs Step #
1
thru
10
from File "PROGRAM1"
on Disk A :
COMMON SHARED IBSTA%, IBERR%, IBCNT%
TEMP$="dev12
"
'93C
CALL
IBFIND (TEMP$,
TEMP%)
OPEN "A:
PROGRAM1"
FOR INPUT AS #1
FOR
I=1 TO 10
'Program steps
#01
Thru
#10
INPUT
#1,C$
B$="E"+C$
'Assemble command
B$=B$+CHR$
(13) +CHR$
(10)
CALL
IBWRT(TEMP%,B$)
FOR
Z=1
TO
1000:
NEXT Z
NEXT I
CLOSE
1
'Close the file
END
'address instrument
'Open file with data
'Get data from file "PROGRAM1"
'Add
CR
and
LF
to command
'Send command to instrument
COPYRIGHT
3/88
LSCI
4-27
Advertisement
