Advertisement
Section
IV
Model
DRC-93C
4 . 1 2 . 3 . 4
This program will restore Programs Step #
1
thru
10
previously stored in file
"PROGRAM1" on Disk A : using GWBASIC or BASICA and the National Instruments GPIP-
PC2
IEEE-488 Card for the IBM
PC
and compatibles.
10
CLEAR
,60969
'BASIC DECLARATIONS
20
IBINITl
=
60969
30
IBINIT2
=
IBINITl
+
3
40
BLOAD "bib .m", IBINITl
50
CALL
IBINIT1(IBFIND,IBTRG,IBCLR,IBPCT,IBSIC,IBLOC, IBPPC, IBBNA, IBONL,
IBRSC,IBSRE,IBRSV,IPPAD,IBSAD,IBIST,IBDMA,IBEOS,IBTMO,IBEOT,IBRDF,IBWRTF)
60
CALL
IBINT2(IBGTS,IBCAC,IBWAIT,IBPOKE,IBWRT,IBWRTA,IBCMD,IBCMDA,
IBRD,IBRDA,IBSTOP,IBRPP,IBRSP,IBDIAG,IBXTRC,IBRDI,IBWRTI,IBRDIA,IBWRTIA,
IBSTA%,IBERR%,IBCNT%)
70
TEMP$="93C"
80 CALL
IBFIND(TEMP$,TEMP'%)
'Required command to address 93C
90
OPEN "A:PROGRAM1" FOR INPUT AS
#1
'Open file to get data
100
FOR
I=1 TO 10
'Program Steps #01
TO
#10
110
INPUT#l,C$
120
B$="E"+
$
'Assemble command
130
B$=B$+CHR$
(13)
+CHR$
(10)
'Add
CR
and LF to command
140
CALL IBWRT(TEMP%,B$)
'Send data to 93C
150
FOR Z=1 TO
1000
160
NEXT
Z
170 NEXT
I
180
CLOSE
1
190
END
4 . 1 2 . 3 . 5
'
National
Instruments
GWBASIC and BASICA IBM Example of E Command
'This number is different for each computer
'93C is IEEE address label set up when running IBCONF
National
Instruments
QUICK
BASIC IBM Example of WEN1N2 Request
Quick Basic
3.0
Example #2
I
THIS PROGRAM
WAS
WRITTEN FOR
THE
NATIONAL INSTRUMENTS GPIP-PC2
I
IEEE-488 CARD FOR IBM
PC AND
COMPATIBLES
I
'
'
on Disk A :
This program will store Programs Step #
1
thru
1 0
in File "PROGRAM1"
1
COMMON SHARED IBSTA%, IBERR%, IBCNT%
TEMP$="dev"
"
'93C
CALL IBFIND (TEMP$, TEMP%)
'Required to address instrument
OPEN "A:PROGRAM1" FOR OUTPUT AS #1 'Open file to store data
FOR
I=1 TO 10
'Program Steps #01 Thru
#10
IF
I<10
THEN
Nl$="
0"
N2$=LTRIM$(RTRIM$(STR$(I)
) )
ELSE
N$=RTRIM$
(
LTRIM$
(
STR$
(
I)
) )
Nl$=LEFT$ (N$
,
1 )
N2$=RIGHT$(N$,2)
N2$=RIGHT$
(STR$
(I)
,
1 )
END IF
4-26
COPYRIGHT
3/88
LSCI
Advertisement
