DLL Direct Entry Functions and Routines
Appendix D
GPIB-232CT-A for MS-DOS/Windows D-2
© National Instruments Corp.
procedure DLLSendIFC(board: integer;
var ibsta: integer;
var iberr: integer;
var ibcntl: longint) ; far;
external 'GPIB' index 119;
(* Your application can now use the functions. *)
var BoardHandle: integer;
var ibsta: integer;
var iberr: integer;
var ibcntl: longint;
var temp: integer;
BoardHandle:= DLLibfind('GPIB0', ibsta, iberr, ibcntl);
temp:= DLLibsic(BoardHandle, ibsta, iberr, ibcntl);
(* or *)
DLLSendIFC(0, ibsta, iberr, ibcntl);
Example 2, accessing the
GPIB.DLL
file from Microsoft Visual Basic:
'First declare the DLL functions you plan to use.
Declare function DLLibfind Lib "gpib.dll"
(ByVal udname$, ibsta%, iberr%, ibcntl&) As Integer
Declare function DLLibsic Lib "gpib.dll"
(ByVal ud%, ibsta%, iberr%, ibcntl&) As Integer
Declare procedure DLLSendIFC Lib "gpib.dll"
(ByVal board%, ibsta%, iberr%, ibcntl&)
'Your application can now use the functions.
Global BoardHandle As Integer
Global ibsta As Integer
Global iberr As Integer
Global ibcntl As Long
BoardHandle% =
DLLibfind("GPIB0", ibsta%, iberr%, ibcntl&)
temp% = DLLibsic(BoardHandle%, ibsta%, iberr%, ibcntl&)
'or
call DLLSendIFC(0, ibsta%, iberr%, ibcntl&)
