Remote
Prclgram
Eng
EXAMPLE
PRO&MS
10
REM
The following application program is
written
in BASICA for the IBM PC, PC-= or
20
REM
PC-AT. The National Instruments
Modd
GPIB,PCIIA board provides the interface
30
REM
between the PC and the Fluke 884OA
DMM.
fie program assumes that the configuration
40
REM
program IBCONF
has
been
run
to initialize rhe interface board
with
the device
50
REM
name 18&10A assigned to the GPIBO board.
60
REM
70
REM
The
first 6 lines of code are required to properly link the
NI
drivers
to BASICA
80
REM
90
REM
This program illustrates one possible use of the serial poll register. In
this
100
REM
case it is merely looking for data available. The function of the program is
to
110
REM
display on the screen the lowest resistance value measured on the input terminals
120
REM
of the 8840A using the 2-wire ohms function in autorange. The range and function
130
REM
commands are programmed using the Put Instrument Configuration (PO) command.
140
REM
150 CLEAR ,59736!
160 IBINITl
=
59736!
170 IBINIT2
=
IBINITl
-t
3
180 BLOAD "bib.mn,IBINIT1
190
CALL
IBIMTl
(IBFI~,IBTRG,IBCLR,IBPCT,IBSIC,IBLOC,IBPPCJIBBN~IBO~JIB~CJBS~,
IBRSV,IBPAD,IBSAD,IBIST,IBD~IBEOS,IB~
200
CALL
IBINIT~(IBGTS,IBCAC,IBW~UT,IBPOKE,IBWRT,~BWRT&IBCMD,IBCMD~IBRD,IBRD~IBSTOP,
IBRPP,IBRSP,IBDIAG,IBXTRC,IB~I,IBWR~,IBRD~~B~~~BSTA%,IB~%~IB~%)
210
REM
220
REM
IBM
BASICA on
IBM
PC, PC-XT or PC-AT
230
REM
240
DEVNAME=
"18840An
'Device name is I8840A
250
CALL
IBFIND
@EVNAME$,DVM%)
'Initialize
the
DMM
260
CALL
IBCLR
@W%)
'Clear device
270 FOR
W
=
1
TO 500:
NEXT
W
Wait
1
second before sending commands
.
280
WRT$
=
"N3001PO Y1 ?"
290
CALL
IBWRT
@VM%,WRT$)
Write functions to instrument
300
RD$
=
SPACE$(18)
'11
characters for the reading,
5
for the
310
'suffix
and 2 for the terminators
320
CALL
IBRD @VM%,RD$) 'Get
fht
reading from 8840A
330 R
=
VAL(RD$)
340 PRINT
LEFT$
(RD$,16);"S
(2-WIRE)
LOWEST READINGn
'Display readings
350 WRT$
=
"?"
360
CALL
IBWRT
@VM%,WRT$)
'Trigger the 8840A
370
CALL
IBRSP (DVM%,SPR%)
'Get serial pol byte
380 IF
SPR%
AND
&H40
< >
&H40 THEN 370 'Check for data available
390
RD$
=
SPACE$(18)
400
CALL
IBRD
@VM%,RD$)
'Get next data
410 S
=
VAL
(RD$)
420 IF
S
>=
R
THEN
350
Throw
away data
if
not lowest
430 R
=
S
'Update lowest reading
440 GOT0 340
'Print new low
450
END
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
To Next Page
Loading...
Need help?
General
