Eaton MGR10 Operating Manual

Contents

MGR10 A/B/C - Revision : I (for 7.0 software revision) 99APPENDIX 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")