SCPI vba
Declare Function viOpenDefaultRM Lib "VISA32.DLL" Alias "#141" (sesn As Long) As Long
Declare Function viOpen Lib "VISA32.DLL" Alias "#131" (ByVal sesn 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" Alias "#132" (ByVal vi As Long) As Long
Declare Function viGetAttribute Lib "VISA32.DLL" Alias "#133" (ByVal vi As Long, ByVal attrName As Long, attrValue As Any) As Long
Declare Function viSetAttribute Lib "VISA32.DLL" Alias "#134" (ByVal vi As Long, ByVal attrName As Long, ByVal attrValue As Long) As Long
Declare Function viRead Lib "VISA32.DLL" Alias "#256" (ByVal vi As Long, ByVal buffer As String, ByVal count As Long, retCount As Long) As Long
Declare Function viRead Lib "VISA32.DLL" Alias "#256" (ByVal vi As Long, ByRef buffer As Byte, ByVal Count As Long, retCount As Long) As Long
'Declare Function viWrite Lib "VISA32.DLL" Alias "#257" (ByVal vi As Long, ByVal buffer As String, ByVal count As Long, retCount As Long) As Long
Declare Function viWrite Lib "VISA32.DLL" Alias "#257" (ByVal vi As Long, ByRef buffer As Byte, ByVal Count As Long, retCount As Long) As Long
Declare Function viReadSTB Lib "VISA32.DLL" Alias "#259" (ByVal vi As Long, Status As Integer) As Long
Declare Function viGpibControlREN Lib "VISA32.DLL" Alias "#208" (ByVal vi As Long, ByVal Mode As Integer) As Long
Declare Function viGpibControlATN Lib "VISA32.DLL" Alias "#210" (ByVal vi As Long, ByVal Mode As Integer) As Long
Declare Function viGpibSendIFC Lib "VISA32.DLL" Alias "#211" (ByVal vi As Long) As Long
Declare Function viGpibCommand Lib "VISA32.DLL" Alias "#212" (ByVal vi As Long, ByRef buffer As Byte, ByVal Count As Long, retCount As Long) As Long