Fluke 8840A User Manual

Remote Programn/lSng
EXAMPLE PRWW
10 REM The following application program is written in BASICA for the IBM PC, PC-XT or
20
REM PC-AT. The National Instruments Model GPIB-PCIIA board provides the interface
30
REM between the PC and the Fluke WOA DMh4. The program assumes that the configuration -
40 RZM program IBCONF has been run to initialize the interface board with the device
50
REM name IWA 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
illusmtes a method of recording
any errors produced by the WOA
100
REM selftest function.
It should be noted that:
110
REM 1. If more than one digital error occurs, only the last one will be reported.
120
REM 2. The response to a Get Instrument Config. (GO) command during selfeest is "9xxx".
130 REM 3. The response to a Get Enor Status (G7) command with no errors present is "1000".
140
REM
150 CLEAR ,59736!
160 IBINIT1
= 59736!
170 IBINIT2
= IBIMT1 + 3
180 BLOAD "bib.m",IBINITl
190
CALL IBINITl (IBFIND,IBTRG,IBC~IBPCT,IBSIC,IBLOC,IBPPC,IBBN~BO~yIBWCyIBS~y
IBW,IBPAD,IBSAD,IBIST,IBDMqlBEOS,IBEOS,IB~O,IBEOT,IB~FyIB~~)
200 CALL IBIMT;!~BGTS,IBCAC,IBWAIT,IBPOKEyIBWRTaIBWRTA,IBCMD,BQvID~RDyIBRD&IBSTOP,
IBRPP JBRSP,IBDIAG,IB~C,IBRDI,IBWRTI,IBRDI&IBWRTIA,IBSTA%,IBERR%,IBCNT%)
210 REM
220 REM IBM BASICA on IBM PC, PC-XT or PC-AT
230
REM
240 DEVNAME = "I884OA"
250
CALL IBFIND @EVNAME$,Dv"%)
260
CALL IBCLR @VM%)
270 FOR W = 1 TO 500: NEXT W
280 PRINT "MONITORING SELFTEST"
290 WRT$ = "20" : CALL IBWRT @VM%,WRT$)
300 WRT$
= "GT : CALL IBWRT @VM%,WRT$)
310 E$ = SPACE$(6)
320
CALL IBRD @VM%,E$)
330
IF (LEFT$(E$,4) = "1000") THEN GOTO 360
340
WRT$ = "XO" : CALL IBWRT @VM%,WRT$)
350 PRINT "ERROR ";lUGHT$(E$,3);" OCCURRED"
360
W$ = "GO" : CALL IBWRT (DVM%,WRT$)
370 ST$
= SPACE$ (6)
380
CALL IBRD @VM%,ST$)
390 IF LEFT$(ST$,4) > = "9000" THEN GOTO 300
400 WRT$ = "GT : CALL IBWRT @VM%,WRT$)
410 E$
= SPACE$(6)
420
CALL IBRD @VM%,E$)
430 IF (LEFT$(E$,4) = "1000") THEN GOT0 450
440 PRINT "ERROR ";RIGHT$(E$,3);" OCCURRED"
450 PRINT
460 PRINT "SELFTEST
COMPLETE"
470 END
'Device name
is 18840A
'Initialize
the DMM
'Clear device
Wait
1 second before sending commands
'Start selftest
'Read error status
'Check for
errors
.
'Clear error register
'Print analog error
'Get
instrument configuration
'Check for selftest still active
'Read error status
'Check for errors
'Print digital error
@
J
Figure 3-14. Example Programs: Using the IBM PC (cont) 3k29
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com

Fluke 8840A Specifications

General

Frequency Range	20 Hz to 100 kHz
Operating Temperature	0°C to 50°C
Display	Vacuum Fluorescent
DC Current Range	0 to 2 A
AC Current Range	0 to 2 A