17 lines
966 B
QBasic
17 lines
966 B
QBasic
Attribute VB_Name = "TellStickModule"
|
|
Public Declare Function devTurnOn Lib "TellUsbD101.dll" (ByVal lngDeviceId As Long) As Boolean
|
|
Public Declare Function devTurnOff Lib "TellUsbD101.dll" (ByVal lngDeviceId As Long) As Boolean
|
|
Public Declare Function devBell Lib "TellUsbD101.dll" (ByVal lngDeviceId As Long) As Boolean
|
|
Public Declare Function devDim Lib "TellUsbD101.dll" (ByVal lngDeviceId As Long, ByVal level As Byte) As Boolean
|
|
Public Declare Function devMethods Lib "TellUsbD101.dll" (ByVal lngDeviceId As Long) As Long
|
|
|
|
Public Declare Function devGetDeviceId Lib "TellUsbD101.dll" (ByVal a As Long) As Long
|
|
Public Declare Function devGetName Lib "TellUsbD101.dll" (ByVal i As Long) As String
|
|
Public Declare Function devGetNumberOfDevices Lib "TellUsbD101.dll" () As Long
|
|
|
|
Public Const TELLSTICK_TURNON = 1
|
|
Public Const TELLSTICK_TURNOFF = 2
|
|
Public Const TELLSTICK_BELL = 4
|
|
Public Const TELLSTICK_TOGGLE = 8
|
|
Public Const TELLSTICK_DIM = 16
|
|
|