From 95972873a8cd415c4164f112216eaa1216b47fe7 Mon Sep 17 00:00:00 2001 From: Micke Prag Date: Wed, 30 Jul 2008 15:38:38 +0000 Subject: [PATCH] Added Visual Basic binding. --- bindings/visual-basic/TellStick.bas | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 bindings/visual-basic/TellStick.bas diff --git a/bindings/visual-basic/TellStick.bas b/bindings/visual-basic/TellStick.bas new file mode 100644 index 00000000..558c266f --- /dev/null +++ b/bindings/visual-basic/TellStick.bas @@ -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 +