Added VisualBasic example
This commit is contained in:
Fredrik Jacobsson
parent
6d967c6f3b
commit
199143ec7c
3 changed files with 248 additions and 0 deletions
212
bindings/visual-basic/example/TellStick VB-example - simple.frm
Normal file
212
bindings/visual-basic/example/TellStick VB-example - simple.frm
Normal file
|
|
@ -0,0 +1,212 @@
|
||||||
|
VERSION 5.00
|
||||||
|
Begin VB.Form frmMain
|
||||||
|
BorderStyle = 4 'Fixed ToolWindow
|
||||||
|
Caption = "TellStick VB-example - simple"
|
||||||
|
ClientHeight = 4680
|
||||||
|
ClientLeft = 2040
|
||||||
|
ClientTop = 3600
|
||||||
|
ClientWidth = 3990
|
||||||
|
Icon = "TellStick VB-example - simple.frx":0000
|
||||||
|
LinkTopic = "Form1"
|
||||||
|
MaxButton = 0 'False
|
||||||
|
MinButton = 0 'False
|
||||||
|
ScaleHeight = 4680
|
||||||
|
ScaleWidth = 3990
|
||||||
|
ShowInTaskbar = 0 'False
|
||||||
|
Begin VB.CommandButton cmdDim
|
||||||
|
Caption = "90%"
|
||||||
|
Height = 465
|
||||||
|
Index = 8
|
||||||
|
Left = 3480
|
||||||
|
TabIndex = 12
|
||||||
|
Top = 4110
|
||||||
|
Width = 420
|
||||||
|
End
|
||||||
|
Begin VB.CommandButton cmdDim
|
||||||
|
Caption = "80%"
|
||||||
|
Height = 465
|
||||||
|
Index = 7
|
||||||
|
Left = 3060
|
||||||
|
TabIndex = 11
|
||||||
|
Top = 4110
|
||||||
|
Width = 420
|
||||||
|
End
|
||||||
|
Begin VB.CommandButton cmdDim
|
||||||
|
Caption = "70%"
|
||||||
|
Height = 465
|
||||||
|
Index = 6
|
||||||
|
Left = 2640
|
||||||
|
TabIndex = 10
|
||||||
|
Top = 4110
|
||||||
|
Width = 420
|
||||||
|
End
|
||||||
|
Begin VB.CommandButton cmdDim
|
||||||
|
Caption = "60%"
|
||||||
|
Height = 465
|
||||||
|
Index = 5
|
||||||
|
Left = 2220
|
||||||
|
TabIndex = 9
|
||||||
|
Top = 4110
|
||||||
|
Width = 420
|
||||||
|
End
|
||||||
|
Begin VB.CommandButton cmdDim
|
||||||
|
Caption = "50%"
|
||||||
|
Height = 465
|
||||||
|
Index = 4
|
||||||
|
Left = 1800
|
||||||
|
TabIndex = 8
|
||||||
|
Top = 4110
|
||||||
|
Width = 420
|
||||||
|
End
|
||||||
|
Begin VB.CommandButton cmdDim
|
||||||
|
Caption = "40%"
|
||||||
|
Height = 465
|
||||||
|
Index = 3
|
||||||
|
Left = 1380
|
||||||
|
TabIndex = 7
|
||||||
|
Top = 4110
|
||||||
|
Width = 420
|
||||||
|
End
|
||||||
|
Begin VB.CommandButton cmdDim
|
||||||
|
Caption = "30%"
|
||||||
|
Height = 465
|
||||||
|
Index = 2
|
||||||
|
Left = 960
|
||||||
|
TabIndex = 6
|
||||||
|
Top = 4110
|
||||||
|
Width = 420
|
||||||
|
End
|
||||||
|
Begin VB.CommandButton cmdDim
|
||||||
|
Caption = "20%"
|
||||||
|
Height = 465
|
||||||
|
Index = 1
|
||||||
|
Left = 540
|
||||||
|
TabIndex = 5
|
||||||
|
Top = 4110
|
||||||
|
Width = 420
|
||||||
|
End
|
||||||
|
Begin VB.CommandButton cmdDim
|
||||||
|
Caption = "10%"
|
||||||
|
Height = 465
|
||||||
|
Index = 0
|
||||||
|
Left = 120
|
||||||
|
TabIndex = 4
|
||||||
|
Top = 4110
|
||||||
|
Width = 420
|
||||||
|
End
|
||||||
|
Begin VB.CommandButton cmdBell
|
||||||
|
Caption = "Bell"
|
||||||
|
Height = 735
|
||||||
|
Left = 1500
|
||||||
|
Picture = "TellStick VB-example - simple.frx":0ECA
|
||||||
|
Style = 1 'Graphical
|
||||||
|
TabIndex = 3
|
||||||
|
Top = 3285
|
||||||
|
Width = 1000
|
||||||
|
End
|
||||||
|
Begin VB.ListBox deviceList
|
||||||
|
Height = 3180
|
||||||
|
Left = 60
|
||||||
|
TabIndex = 2
|
||||||
|
Top = 60
|
||||||
|
Width = 3810
|
||||||
|
End
|
||||||
|
Begin VB.CommandButton cmdOff
|
||||||
|
Caption = "Off"
|
||||||
|
Height = 735
|
||||||
|
Left = 120
|
||||||
|
Picture = "TellStick VB-example - simple.frx":1794
|
||||||
|
Style = 1 'Graphical
|
||||||
|
TabIndex = 1
|
||||||
|
Top = 3285
|
||||||
|
Width = 1000
|
||||||
|
End
|
||||||
|
Begin VB.CommandButton cmdOn
|
||||||
|
Caption = "On"
|
||||||
|
Height = 735
|
||||||
|
Left = 2900
|
||||||
|
Picture = "TellStick VB-example - simple.frx":205E
|
||||||
|
Style = 1 'Graphical
|
||||||
|
TabIndex = 0
|
||||||
|
Top = 3285
|
||||||
|
Width = 1000
|
||||||
|
End
|
||||||
|
End
|
||||||
|
Attribute VB_Name = "frmMain"
|
||||||
|
Attribute VB_GlobalNameSpace = False
|
||||||
|
Attribute VB_Creatable = False
|
||||||
|
Attribute VB_PredeclaredId = True
|
||||||
|
Attribute VB_Exposed = False
|
||||||
|
Private Sub cmdBell_Click()
|
||||||
|
Dim blnBell As Boolean
|
||||||
|
blnBell = devBell(deviceList.ItemData(deviceList.ListIndex))
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub cmdDim_Click(Index As Integer)
|
||||||
|
Dim blnDim As Boolean
|
||||||
|
Dim level As Byte
|
||||||
|
Select Case Index
|
||||||
|
Case "8"
|
||||||
|
level = 230
|
||||||
|
Case "7"
|
||||||
|
level = 204
|
||||||
|
Case "6"
|
||||||
|
level = 179
|
||||||
|
Case "5"
|
||||||
|
level = 153
|
||||||
|
Case "4"
|
||||||
|
level = 128
|
||||||
|
Case "3"
|
||||||
|
level = 102
|
||||||
|
Case "2"
|
||||||
|
level = 77
|
||||||
|
Case "1"
|
||||||
|
level = 51
|
||||||
|
Case "0"
|
||||||
|
level = 25
|
||||||
|
End Select
|
||||||
|
blnDim = devDim(deviceList.ItemData(deviceList.ListIndex), level)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub cmdOff_Click()
|
||||||
|
Dim blnOff As Boolean
|
||||||
|
blnOff = devTurnOff(deviceList.ItemData(deviceList.ListIndex))
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub cmdOn_Click()
|
||||||
|
Dim blnOn As Boolean
|
||||||
|
blnOn = devTurnOn(deviceList.ItemData(deviceList.ListIndex))
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub deviceList_Click()
|
||||||
|
Dim intMethods As Integer
|
||||||
|
|
||||||
|
intMethods = devMethods(deviceList.ItemData(deviceList.ListIndex))
|
||||||
|
cmdOn.Enabled = (intMethods And TELLSTICK_TURNON)
|
||||||
|
cmdOff.Enabled = (intMethods And TELLSTICK_TURNOFF)
|
||||||
|
cmdBell.Enabled = (intMethods And TELLSTICK_BELL)
|
||||||
|
|
||||||
|
For a = 0 To 8
|
||||||
|
cmdDim(a).Enabled = (intMethods And TELLSTICK_DIM)
|
||||||
|
Next
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Form_Load()
|
||||||
|
|
||||||
|
Dim numDevices As Integer, i As Integer
|
||||||
|
numDevices = devGetNumberOfDevices()
|
||||||
|
|
||||||
|
For i = 0 To numDevices - 1
|
||||||
|
Dim strName As String
|
||||||
|
Dim intId As Integer
|
||||||
|
|
||||||
|
intId = devGetDeviceId(i)
|
||||||
|
strName = devGetName(intId)
|
||||||
|
deviceList.AddItem strName
|
||||||
|
deviceList.ItemData(i) = intId
|
||||||
|
Next
|
||||||
|
|
||||||
|
deviceList.ListIndex = 0
|
||||||
|
|
||||||
|
End Sub
|
||||||
BIN
bindings/visual-basic/example/TellStick VB-example - simple.frx
Normal file
BIN
bindings/visual-basic/example/TellStick VB-example - simple.frx
Normal file
Binary file not shown.
|
|
@ -0,0 +1,36 @@
|
||||||
|
Type=Exe
|
||||||
|
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\..\..\WINDOWS\system32\STDOLE2.TLB#OLE Automation
|
||||||
|
Form=TellStick VB-example - simple.frm
|
||||||
|
Module=TellStickModule; ..\TellStick.bas
|
||||||
|
Startup="frmMain"
|
||||||
|
HelpFile=""
|
||||||
|
ExeName32="TellStick VB-example - simple.exe"
|
||||||
|
Command32=""
|
||||||
|
Name="TellStickExample"
|
||||||
|
HelpContextID="0"
|
||||||
|
CompatibleMode="0"
|
||||||
|
MajorVer=1
|
||||||
|
MinorVer=0
|
||||||
|
RevisionVer=0
|
||||||
|
AutoIncrementVer=0
|
||||||
|
ServerSupportFiles=0
|
||||||
|
VersionCompanyName="Telldus Technologies"
|
||||||
|
CompilationType=0
|
||||||
|
OptimizationType=0
|
||||||
|
FavorPentiumPro(tm)=0
|
||||||
|
CodeViewDebugInfo=0
|
||||||
|
NoAliasing=0
|
||||||
|
BoundsCheck=0
|
||||||
|
OverflowCheck=0
|
||||||
|
FlPointCheck=0
|
||||||
|
FDIVCheck=0
|
||||||
|
UnroundedFP=0
|
||||||
|
StartMode=0
|
||||||
|
Unattended=0
|
||||||
|
Retained=0
|
||||||
|
ThreadPerObject=0
|
||||||
|
MaxNumberOfThreads=1
|
||||||
|
DebugStartupOption=0
|
||||||
|
|
||||||
|
[MS Transaction Server]
|
||||||
|
AutoRefresh=1
|
||||||
Loading…
Add table
Add a link
Reference in a new issue