Table des Matières
Publicité
Les langues disponibles
Les langues disponibles
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.
'
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.
'
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.
'
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.
'
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.
'
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")
MGR10 A/B/C Indice : J (version 7.0 du logiciel)
When the second parameter
If BRD0% is less
This action initializes the
In this
The
97
Publicité
Table des Matières
