Eaton MGR10, Руководство по эксплуатации

Страница: 99 / 108

MGR10 A/B/C - Revision : I (for 7.0 software revision) 99
APPENDIX V : IEEE488 for National Instrument demo programme
' Microsoft QuickBASIC 4.0/4.5
' Example Program using NI-488 board level functions
'=============================================================================
'
' The status variables IBSTA%, IBERR%, and IBCNT% are defined in QBDECL.BAS.
' Each bit of IBSTA% and each value of IBERR% are defined in QBDECL.BAS as
' a mnemonic constant for easy recognition in application programs. In this
' example, these mnemonic definitions are logically ANDed with the variable
' IBSTA% to determine if a particular bit has been set. The mnemonic
' definitions are equated with the variable IBERR% to determine the error
' code.
'
' The subroutine GPIBERR is called when a NI-488 function fails. The
' error message is printed along with the status variables IBSTA%, IBERR%,
' and IBCNT%.
'
' The NI-488 function IBONL is called from the main body of the program or
' from the two subroutines, GPIBERR and DVMERR. When the second parameter
' of the function IBONL is zero, the software and hardware are disabled.
' Execution of this program is terminated after the call to the function
' IBONL to disable the software and hardware.
'
' The STOP command or END command will terminate this program.
'=============================================================================
' QBDECL.BAS contains constants, declarations, and subroutine prototypes.
REM $INCLUDE: 'qbdecl.bas'
' GPIBERR is an error subroutine that is called when a NI-488 function fails.
' DVMERR is an error subroutine that is called when the Fluke 45 does not
' have valid data to send.
DECLARE SUB gpiberr (msg$)
' Assign a unique identifier to board 0 and store in the variable BRD0%.
' The name 'GPIB0' is the default name of board 0. If BRD0% is less
' than zero, call GPIBERR with an error message.
bdname$ = "GPIB0"
CALL ibfind(bdname$, brd0%)
IF brd0% < 0 THEN CALL gpiberr("Ibfind Error")
' Send the Interface Clear (IFC) message. This action initializes the
' GPIB interface board and makes the interface board Controller-In-Charge.
' If the error bit EERR is set in IBSTA%, call GPIBERR with an error message.
CALL ibclr(brd0%)
IF (IBSTA% AND EERR) THEN CALL gpiberr("Ibsic Error")