Option Strict Off Option Explicit On Module RSIB32 '---------------------------------------------------------------- ' ' MODULE RSIB32 ' ' COMPILER Microsoft Visual Basic 32 bit versions ' ' AUTHOR J. Ganzert, Rohde & Schwarz ' ' ABSTRACT This module contains function declarations and constant definitions ' for use of the RSIB32.DLL from VB.NET ' '---------------------------------------------------------------- '------------------------------- ' DLL Function Declarations '------------------------------- Declare Function RSDLLibfind Lib "rsib32.dll" (ByVal udName As String, ByRef ibsta As Short, ByRef iberr As Short, ByRef ibcntl As Integer) As Short Declare Function RSDLLibwrt Lib "rsib32.dll" (ByVal ud As Short, ByVal Wrt As String, ByRef ibsta As Short, ByRef iberr As Short, ByRef ibcntl As Integer) As Short Declare Function RSDLLibrd Lib "rsib32.dll" (ByVal ud As Short, ByVal Rd As String, ByRef ibsta As Short, ByRef iberr As Short, ByRef ibcntl As Integer) As Short Declare Function RSDLLibwrtf Lib "rsib32.dll" (ByVal ud As Short, ByVal File As String, ByRef ibsta As Short, ByRef iberr As Short, ByRef ibcntl As Integer) As Short Declare Function RSDLLibrdf Lib "rsib32.dll" (ByVal ud As Short, ByVal File As String, ByRef ibsta As Short, ByRef iberr As Short, ByRef ibcntl As Integer) As Short Declare Function RSDLLilwrt Lib "rsib32.dll" (ByVal ud As Short, ByVal Wrt As String, ByVal Cnt As Integer, ByRef ibsta As Short, ByRef iberr As Short, ByRef ibcntl As Integer) As Short Declare Function RSDLLilrd Lib "rsib32.dll" (ByVal ud As Short, ByVal Rd As String, ByVal Cnt As Integer, ByRef ibsta As Short, ByRef iberr As Short, ByRef ibcntl As Integer) As Short Declare Function RSDLLilrdfloat Lib "rsib32.dll" Alias "RSDLLilrd" (ByVal ud As Short, ByVal Rd As Single(), ByVal Cnt As Integer, ByRef ibsta As Short, ByRef iberr As Short, ByRef ibcntl As Integer) As Short Declare Function RSDLLTestSrq Lib "rsib32.dll" (ByVal ud As Short, ByRef Result As Short, ByRef ibsta As Short, ByRef iberr As Short, ByRef ibcntl As Integer) As Short Declare Function RSDLLWaitSrq Lib "rsib32.dll" (ByVal ud As Short, ByRef Result As Short, ByRef ibsta As Short, ByRef iberr As Short, ByRef ibcntl As Integer) As Short Declare Function RSDLLibtmo Lib "rsib32.dll" (ByVal ud As Short, ByVal tmo As Short, ByRef ibsta As Short, ByRef iberr As Short, ByRef ibcntl As Integer) As Short Declare Function RSDLLibsre Lib "rsib32.dll" (ByVal ud As Short, ByVal v As Short, ByRef ibsta As Short, ByRef iberr As Short, ByRef ibcntl As Integer) As Short Declare Function RSDLLibloc Lib "rsib32.dll" (ByVal ud As Short, ByRef ibsta As Short, ByRef iberr As Short, ByRef ibcntl As Integer) As Short Declare Function RSDLLibeot Lib "rsib32.dll" (ByVal ud As Short, ByVal v As Short, ByRef ibsta As Short, ByRef iberr As Short, ByRef ibcntl As Integer) As Short Declare Function RSDLLibrsp Lib "rsib32.dll" (ByVal ud As Short, ByRef spr As Short, ByRef ibsta As Short, ByRef iberr As Short, ByRef ibcntl As Integer) As Short Declare Function RSDLLibonl Lib "rsib32.dll" (ByVal ud As Short, ByVal v As Short, ByRef ibsta As Short, ByRef iberr As Short, ByRef ibcntl As Integer) As Short Declare Function RSDLLibclr Lib "rsib32.dll" (ByVal ud As Short, ByRef ibsta As Short, ByRef iberr As Short, ByRef ibcntl As Integer) As Short '---------------------------------------- ' Defines for bits in the status byte ibsta '---------------------------------------- Public Const IBSTA_ERR As Short = &H8000S Public Const IBSTA_TIMO As Short = &H4000S Public Const IBSTA_CMPL As Short = &H100S '------------------------------- ' Codes for error variable iberr '------------------------------- Public Const IBERR_DEVICE_REGISTER As Short = 1 Public Const IBERR_CONNECT As Short = 2 Public Const IBERR_NO_DEVICE As Short = 3 Public Const IBERR_MEM As Short = 4 Public Const IBERR_TIMEOUT As Short = 5 Public Const IBERR_BUSY As Short = 6 Public Const IBERR_FILE As Short = 7 End Module