Agilent Technologies E3633A, E3634A manual Application Programs Example Program for Excel

Chapter 6 Application Programs

Example Program for Excel 97

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 Hewlett Packard 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, _

viAs 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

143

6