Application Programs 5E364xA User’s and Service Guide 169Declaration for Windows 3.1'******************************************************************************' This routine requires the file VISA.dll. It typically resides in the' c:\windows\system directory. Additional declations for VISA.DLL are usally in' file visa.bas under c:\vxipnp\win31\include directory on your PC. This routine' uses the VTL Library to send commands to an instrument. A description of these' and additional VTL commands are contained in the Hewlett Packard Visa' Transition Library book Keysight Part Number E2094-90002.'*****************************************************************************Declare Function viOpenDefaultRM Lib "VISA.DLL" Alias "#141" (viDefaultRM AsLong) As LongDeclare Function viOpen Lib "VISA.DLL" Alias "#131" (ByVal viDefaultRM As Long,ByVal viDesc As String, ByVal mode As Long, ByVal timeout As Long, vi As Long) AsLongDeclare Function viClose Lib "VISA.DLL" Alias "#132" (ByVal vi As Long) As LongDeclare Function viRead Lib "VISA.DLL" Alias "#256" (ByVal vi As Long, ByValBuffer As String, ByVal count As Long, retCount As Long) As LongDeclare Function viWrite Lib "VISA.DLL" Alias "#257" (ByVal vi As Long, ByValBuffer As String, ByVal count As Long, retCount As Long) As LongDeclare Function viClear Lib "VISA.DLL" Alias "#260" (ByVal vi As Long) As LongDeclaration for Windows 9.5/NT 4.0'******************************************************************************' Additional declations for VISA32.DLL are usally in file visa32.bas under' c:\vxipnp\win95(or winNT)\include directory on your PC. Also see the VISA' manual'*****************************************************************************Declare Function viOpenDefaultRM Lib "visa32.dll" (instrumentHandle As Long) AsLongDeclare Function viOpen Lib "visa32.dll" (ByVal instrumentHandle As Long, _ByVal viDesc As String, ByVal mode As Long, ByVal timeout As Long, _vi As Long)As LongDeclare Function viClose Lib "visa32.dll" (ByVal vi As Long) As LongDeclare Function viWrite Lib "visa32.dll" (ByVal vi As Long, ByVal Buffer AsString, _ ByVal count As Long, retCount As Long) As LongDeclare Function viRead Lib "visa32.dll" (ByVal vi As Long, ByVal Buffer AsString, _ByVal count As Long, retCount As Long) As Long
