Table of Contents
Advertisement
Chapter 3
Writing an Advanced Program Using NI-488.2 Routines
Reading$ = Left%(Reading$, IBCNT%)
PRINT "Reading: "; Reading$
SUM = SUM + VAL(Reading$)
NEXT M%
PRINT "The average of the 10 readings is", SUM/10
CALL IBONL (0,0)
END
The Error Handling Subroutine
SUB gpiberr(msg$) STATIC
LOCATE 15,1
PRINT msg$
PRINT "IBSTA=&H"; HEX$(IBSTA%); " < ";
IF IBSTA% AND EERR THEN PRINT " ERR";
IF IBSTA% AND TIMO THEN PRINT " TIMO";
IF IBSTA% AND EEND THEN PRINT " END";
IF IBSTA% AND SRQI THEN PRINT " SRQI";
IF IBSTA% AND RQS THEN PRINT " RQS";
IF IBSTA% AND CMPL THEN PRINT " CMPL";
IF IBSTA% AND LOK THEN PRINT " LOK";
IF IBSTA% AND RREM THEN PRINT " REM";
IF IBSTA% AND CIC THEN PRINT " CIC";
IF IBSTA% AND AATN THEN PRINT " ATN";
IF IBSTA% AND TACS THEN PRINT " TACS";
IF IBSTA% AND LACS THEN PRINT " LACS";
IF IBSTA% AND DTAS THEN PRINT " DTAS";
IF IBSTA% AND DCAS THEN PRINT " DCAS";
PRINT ">
PRINT "IBERR="; IBERR%;
IF IBERR% = EDVR THEN PRINT " EDVR <DOS Error>
IF IBERR% = ECIC THEN PRINT " ECIC <Not CIC>
IF IBERR% = ENOL THEN PRINT " ENOL <No Listener>
IF IBERR% = EADR THEN PRINT " EADR <Address error>
IF IBERR% = EARG THEN PRINT " EARG <Invalid argument>"
IF IBERR% = ESAC THEN PRINT " ESAC <Not Sys Ctrlr>
IF IBERR% = EABO THEN PRINT " EABO <Op. aborted>
IF IBERR% = ENEB THEN PRINT " ENEB <No GPIB board>
IF IBERR% = EOIP THEN PRINT " EOIP <Async I/O in prg>"
IF IBERR% = ECAP THEN PRINT " ECAP <No capability>
IF IBERR% = EFSO THEN PRINT " EFSO <File sys. error> "
IF IBERR% = EBUS THEN PRINT " EBUS <Command error>
IF IBERR% = ESTB THEN PRINT " ESTB <Status byte lost>"
IF IBERR% = ESRQ THEN PRINT " ESRQ <SRQ stuck on>
IF IBERR% = ETAB THEN PRINT " ETAB <Table Overflow>
PRINT "IBCNT="; IBCNT%; "
END SUB
© National Instruments Corp.
"
3-11
PCII/IIA and NI-488.2 MS-DOS
"
"
"
"
"
"
"
"
"
"
"
"
Advertisement
Table of Contents
