Agilent Technologies E3646A, Руководство пользователя, Страница: 147 / 211

Chapter 6 Application Programs
Example Program for Excel 97
147
6
Declaration 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 Agilent Technologies Visa Transition Library book
' Agilent Part Number E2094-90002.
'************************************************************************************
Declare Function viOpenDefaultRM Lib "VISA.DLL" Alias "#141" (viDefaultRM As Long) As Long
Declare 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) As Long
Declare Function viClose Lib "VISA.DLL" Alias "#132" (ByVal vi As Long) As Long
Declare Function viRead Lib "VISA.DLL" Alias "#256" (ByVal vi As Long, ByVal Buffer As
String, ByVal count As Long, retCount As Long) As Long
Declare Function viWrite Lib "VISA.DLL" Alias "#257" (ByVal vi As Long, ByVal Buffer As
String, ByVal count As Long, retCount As Long) As Long
Declare Function viClear Lib "VISA.DLL" Alias "#260" (ByVal vi As Long) As Long
Declaration for Windows 95/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) As Long
Declare 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 Long
Declare Function viClose Lib "visa32.dll" (ByVal vi As Long) As Long
Declare Function viWrite Lib "visa32.dll" (ByVal vi As Long, ByVal Buffer As String, _
ByVal count As Long, retCount As Long) As Long
Declare Function viRead Lib "visa32.dll" (ByVal vi As Long, ByVal Buffer As String, _
ByVal count As Long, retCount As Long) As Long