Remote
Programming
EXAMPLE
PROGRAMS
10 REM The following application program
is
written
in
BASICA for the IBM PC,
PC-XT
or
20
REM
PC-AT. The National lnstnunents Model GPIB-PCIIA boatd provides the interface
30
REM
between
the PC and the Fluke
8840A
DM. The program assumes that the configuration
40
REM
program IBCONF
has
been
run
to initialize the interface board with the device
50
REM
name I8840A assigned to the GPIBO board.
60REM
1
70
REM
The
first
6 lines of code are required to properly link the
NI
drivers to BA$ICA
80
REM
WREM
100
REM
This program selects VDC
(Fl),
Autorange
(RO),
Slow We (SO), Continudus lrigger
(TO)
110
REM
and suffixes enabled
(Yl).
The program takes
10
readirigs, displays
them
on the
screen,
120
REM
and
then
stops.
130
REM
140
REM
150
CLEAR
,59736!
160 IBINIT1
=
59736!
170 IBINIT2
=
IBINITl
+
3
180 BLOAD "bib.rnn,IBIMT1
190
CALL
IBINITl
[IBFINDBTRGBQIBPCTJBSIC,IBLOe,IBPPy
IBRSV,IBPAD,IBSAD,IBIST
JBDM~IBEOS
JBTMO,IBEOT,IBRDF
JBVV~TF)
200
CALL
IBINm(IBGTS
JBCACJBWAITJBPOKEJBWRT71BWRT&$CMD
JBCMDqnSRD,IBRDA,IBSTOP7
IBRPP
JBRSP,IBDIAGJBXTRC,IBRDIyIBWRT171B~
210
REM
220
REM
IBM BASICA on IBM PC, PC-XT or PC-AT
230
REM
240 DEVNAME$=T8840An
'Device name is IWA
250
CALL
IBFIND(DEVNAME$,DVM%)
'Initialize the
DMM
260
CALL
IBCLR(DVM%)
'Clear the device
270
FOR
W=l
TO 500
:
NEXT
W
Wait
1
second before sending command
280 WRT$="F1ROSOTOYl"
290
CALL
IBWRT(DVM%,WRT$)
1
300FORI=1TOlO
Write functions
tb
instrument
'11
characters for the reading, 5 for the
'suffix and
2
for the terminators
'Get
data
from
884OA
340 PRINT I, LEFT$(RD$,16)
'Print
to
displ
350
NEXT
I
360
END
IB@, IBM
PC,
PC-XT
and
PC-AT
are registered trademarks
of
lnternatiinal
Business
Machibe
Corporatiin
National
lnstrumentsQ
is
a
registered trademark
of
National tnstruments
Corporation
I
Figure
3-14.
Example Programs:
Using
the
IBM
PC@
3-26
I
I
I
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
To Next Page
Loading...
Need help?
General
