jeena/telldus
1
0
Fork 0
Code Issues Pull requests Projects Packages Wiki Activity Actions

Added Visual Basic binding.

Browse source
This commit is contained in:
Micke Prag 2008-07-30 15:38:38 +00:00
parent 2d2b290372
commit 95972873a8
1 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
bindings/visual-basic/TellStick.bas Normal file
View file

@ -0,0 +1,17 @@
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