Remote
~rogramrnbng
WPLE
PROGW
The following application program is
written
in
QBASIC for the IBM PC, PC-XT or
PC-AT. The National Instnunents Model GPIB-PCIIA board provides the interface
between the
PC
and the Fluke WOA DMM. The program assumes that the configuration
program IBCONF has been
run
to initialize the interface board
with
the device
name IWOA assigned to the GPIBO board.
This
program selects VDC
(Fl),
Autorange RO), Slow rate (SO), Continuous
trigger
(TO)
and suffixes enabled
el).
All
readings appear simultaneously on the insbxment
display
and
the PC screen
with
suffixes enabled for function readout. Full local
control is given to the 8840A. Note the local control must be
given
to the board
and not the device. Press
cCTRL>
BREAK
to terminate
this
program.
'
.
Microsoft QuidcBasic
V
4.5
on IBM PC, PC-XT or PC-AT
'$INCLUDE: 'qbib45.dcl'
BDNAME$
=
"GPIBO" 'Board name is GPIBO
CALL
IBFIND(BDNAME$, BD%)
'Initialize
IEEE
Interface Board
devname$
=
"18&40A" 'Device name
is
18840A
CALL
IBFIND(devname$, dm%)
initialize
the device
CALL
IBCLR(dvm%) 'Clear the device
WRT$
=
"FIROSOTOY1" 'F1
=
Volts DC, RO
=
Autorange,
'SO
=
Slow reading rate, TO
=
Internal
'Trigger,
Y1
=
Enable suffix
CALL
fBWRT(dvm%,
WRT$)
Write functions to the instrument
CALL
IBLOC(dvm%)
'Give local control to the instrument
V%=O:x%=O
CALL
IBSRE(BD%,
V%)
'De-assert the remote enable signal so
'the WA stays
in
local
when
an
IBRD
call
'is made
again:
RD$
=
SPACFS(18)
'11
characters for the reading,
5
for the
'suffix
and
2
for the terminators
CALL
IBRD(dvm%,
RD$)
'Get data
x%
=
x%
+
1
'Increment reading count
PRINT
XO/07
LEFT$
(R.D$,
16)
Display reading
GOT0 again
END
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
To Next Page
Loading...
Need help?
General
