-
Notifications
You must be signed in to change notification settings - Fork 1
/
Form1.vb
277 lines (233 loc) · 12.3 KB
/
Form1.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
Public Class frmMain
Dim WithEvents tmrFocusTimer As Timer
Dim ResponseMsg As String
Friend WithEvents SysTrayIcon As NotifyIcon
Friend WithEvents MenuItemExit As MenuItem
Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
My.Application.Log.WriteEntry("Server shutdown begun, closing modules")
Me.Hide()
modGlobal.UnloadModules()
SysTrayIcon.Visible = False
If My.Settings.Global_Experimental = True Then
My.Application.Log.WriteEntry("EXPERIMENTAL: Attempting to save DeviceCollection")
modGlobal.SaveCollection()
End If
End Sub
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim Stopwatch As New Stopwatch
Stopwatch.Start()
My.Application.Log.WriteEntry("Main application form loaded")
If My.Settings.Global_UpgradeRequired = True Then
My.Application.Log.WriteEntry("Upgrade required, importing settings from previous release")
My.Settings.Upgrade()
My.Settings.Global_UpgradeRequired = False
My.Settings.Save()
End If
If My.Settings.Converse_PreserveCaps = True Then
My.Application.Log.WriteEntry("Preserve caps mode is enabled")
Else
My.Application.Log.WriteEntry("Preserve caps mode is disabled")
End If
AddHandler My.Settings.PropertyChanged, AddressOf Settings_Changed
Dim SysTrayMenu = New ContextMenu
MenuItemExit = New MenuItem
MenuItemExit.Index = 0
MenuItemExit.Text = "E&xit"
SysTrayMenu.MenuItems.Add(MenuItemExit)
Me.Icon = New Icon(Application.StartupPath & "\assets\HAController.ico")
SysTrayIcon = New NotifyIcon
SysTrayIcon.Icon = Me.Icon
SysTrayIcon.Text = "HAController"
SysTrayIcon.ContextMenu = SysTrayMenu
SysTrayIcon.Visible = True
If My.Settings.Global_LastHomeStatus <> "" Then
My.Application.Log.WriteEntry("Found previous home status")
SetHomeStatus(My.Settings.Global_LastHomeStatus)
End If
modGlobal.LoadModules()
modGlobal.CheckLogFileSize()
If My.Settings.Insteon_LastGoodCOMPort <> "" Then
My.Application.Log.WriteEntry("Found last good COM port on " & My.Settings.Insteon_LastGoodCOMPort)
cmbComPort.Text = My.Settings.Insteon_LastGoodCOMPort
modInsteon.InsteonConnect(My.Settings.Insteon_LastGoodCOMPort, ResponseMsg)
cmbComPort.Text = My.Settings.Insteon_LastGoodCOMPort
lblComConnected.Text = ResponseMsg
End If
If My.Settings.Global_CarMode = True Then
My.Application.Log.WriteEntry("Enabling car mode")
EnableCarMode()
modSpeech.Say("System online")
End If
If My.Settings.Global_StartupCommand <> "" Then
modConverse.Interpret(My.Settings.Global_StartupCommand)
End If
Stopwatch.Stop()
My.Application.Log.WriteEntry("Load cycle completed in " & Stopwatch.Elapsed.Milliseconds & " milliseconds")
txtCommandBar.Enabled = True
txtCommandBar.Select()
End Sub
Function DisableCarMode() As String
Me.TopMost = False
tmrFocusTimer.Dispose()
My.Settings.Global_CarMode = False
RemoveHandler Net.NetworkInformation.NetworkChange.NetworkAddressChanged, AddressOf modComputer.AddressChangedCallback
Return "Car mode disabled"
End Function
Function EnableCarMode() As String
Me.TopMost = True
tmrFocusTimer = New Timer
tmrFocusTimer.Interval = 5000
tmrFocusTimer.Start()
My.Settings.Global_CarMode = True
AddHandler Net.NetworkInformation.NetworkChange.NetworkAddressChanged, AddressOf modComputer.AddressChangedCallback
Return "Car mode enabled"
End Function
Private Sub btnInsteonCheck_Click(sender As Object, e As EventArgs) Handles btnInsteonCheck.Click
My.Application.Log.WriteEntry("Checking device " + txtAddress.Text)
modInsteon.InsteonGetEngineVersion(txtAddress.Text, lblCommandSent.Text)
End Sub
Private Sub btnInsteonOn_Click(sender As Object, e As EventArgs) Handles btnInsteonOn.Click
My.Application.Log.WriteEntry("Setting device " + txtAddress.Text + " set to On")
modInsteon.InsteonLightControl(txtAddress.Text, lblCommandSent.Text, "on")
End Sub
Private Sub btnInsteonOff_Click(sender As Object, e As EventArgs) Handles btnInsteonOff.Click
My.Application.Log.WriteEntry("Setting device " + txtAddress.Text + " set to Off")
modInsteon.InsteonLightControl(txtAddress.Text, lblCommandSent.Text, "off")
End Sub
Private Sub btnInsteonTempDown_Click(sender As Object, e As EventArgs) Handles btnInsteonTempDown.Click
My.Application.Log.WriteEntry("Setting device " + txtAddress.Text + " down one degree")
modInsteon.InsteonThermostatControl(txtAddress.Text, lblCommandSent.Text, "down")
End Sub
Private Sub btnInsteonTempUp_Click(sender As Object, e As EventArgs) Handles btnInsteonTempUp.Click
My.Application.Log.WriteEntry("Setting device " + txtAddress.Text + " up one degree")
modInsteon.InsteonThermostatControl(txtAddress.Text, lblCommandSent.Text, "up")
End Sub
Private Sub btnInsteonTempOff_Click(sender As Object, e As EventArgs) Handles btnInsteonTempOff.Click
My.Application.Log.WriteEntry("Setting device " + txtAddress.Text + " to Off")
modInsteon.InsteonThermostatControl(txtAddress.Text, lblCommandSent.Text, "off")
End Sub
Private Sub btnInsteonTempAuto_Click(sender As Object, e As EventArgs) Handles btnInsteonTempAuto.Click
My.Application.Log.WriteEntry("Setting device " + txtAddress.Text + " to Auto")
modInsteon.InsteonThermostatControl(txtAddress.Text, lblCommandSent.Text, "auto")
End Sub
Private Sub btnInsteonTempHeat_Click(sender As Object, e As EventArgs) Handles btnInsteonTempHeat.Click
My.Application.Log.WriteEntry("Setting device " + txtAddress.Text + " to Heat")
modInsteon.InsteonThermostatControl(txtAddress.Text, lblCommandSent.Text, "heat")
End Sub
Private Sub btnInsteonTempCool_Click(sender As Object, e As EventArgs) Handles btnInsteonTempCool.Click
My.Application.Log.WriteEntry("Setting device " + txtAddress.Text + " to Cool")
modInsteon.InsteonThermostatControl(txtAddress.Text, lblCommandSent.Text, "cool")
End Sub
Private Sub chkInsteonTempFan_CheckedChanged(sender As Object, e As EventArgs) Handles chkInsteonTempFan.CheckedChanged
If chkInsteonTempFan.Checked = False Then
My.Application.Log.WriteEntry("Setting device " + txtAddress.Text + " to Fan Off")
modInsteon.InsteonThermostatControl(txtAddress.Text, lblCommandSent.Text, "fanoff")
ElseIf chkInsteonTempFan.Checked = True Then
My.Application.Log.WriteEntry("Setting device " + txtAddress.Text + " to Fan On")
modInsteon.InsteonThermostatControl(txtAddress.Text, lblCommandSent.Text, "fanon")
End If
End Sub
Private Sub btnInsteonAlarmOn_Click(sender As Object, e As EventArgs) Handles btnInsteonAlarmOn.Click
My.Application.Log.WriteEntry("Turning alarm on")
modInsteon.InsteonAlarmControl(GetInsteonAddressFromNickname("alarm"), lblCommandSent.Text, "on")
Threading.Thread.Sleep(500)
modInsteon.InsteonAlarmControl(GetInsteonAddressFromNickname("siren"), lblCommandSent.Text, "on")
End Sub
Private Sub btnInsteonAlarmOff_Click(sender As Object, e As EventArgs) Handles btnInsteonAlarmOff.Click
My.Application.Log.WriteEntry("Turning alarm off")
modInsteon.InsteonAlarmControl(GetInsteonAddressFromNickname("alarm"), lblCommandSent.Text, "off")
Threading.Thread.Sleep(500)
modInsteon.InsteonAlarmControl(GetInsteonAddressFromNickname("siren"), lblCommandSent.Text, "off")
End Sub
Private Sub cmbComPort_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cmbComPort.SelectionChangeCommitted
modInsteon.InsteonConnect(cmbComPort.SelectedItem.ToString, ResponseMsg)
lblComConnected.Text = ResponseMsg
End Sub
Private Sub cmbStatus_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cmbStatus.SelectionChangeCommitted
SetHomeStatus(cmbStatus.SelectedItem.ToString)
End Sub
Delegate Sub UpdateCallback()
Private Sub Settings_Changed()
If Me.InvokeRequired Then
Dim d As New UpdateCallback(AddressOf Settings_Changed)
Me.Invoke(d)
Else
My.Settings.Save()
cmbStatus.Text = My.Settings.Global_LastHomeStatus
lblCurrentStatus.Text = My.Settings.Global_LastHomeStatus
lblInsideTemp.Text = My.Settings.Global_LastKnownInsideTemp & " F"
lblInsideTemp2nd.Text = My.Settings.Global_LastKnownInsideTemp2nd & " F"
lblOutsideTemp.Text = My.Settings.Global_LastKnownOutsideTemp & " F"
lblOutsideCondition.Text = StrConv(My.Settings.Global_LastKnownOutsideCondition, VbStrConv.ProperCase)
End If
End Sub
Private Sub btnCheckWeather_Click(sender As Object, e As EventArgs) Handles btnCheckWeather.Click
If My.Settings.OpenWeatherMap_Enable = True Then
modSpeech.Say(modOpenWeatherMap.GatherWeatherData())
End If
End Sub
Private Sub MenuItemExit_Click(sender As Object, e As EventArgs) Handles MenuItemExit.Click
Me.Close()
End Sub
Private Sub SysTrayIcon_DoubleClick(sender As Object, e As EventArgs) Handles SysTrayIcon.DoubleClick
Me.WindowState = FormWindowState.Normal
End Sub
Private Sub tmrFocusTimer_Tick(sender As Object, e As EventArgs) Handles tmrFocusTimer.Tick
Me.Activate()
txtCommandBar.Select()
End Sub
Private Sub txtCommandBar_GotFocus(sender As Object, e As EventArgs) Handles txtCommandBar.GotFocus
If modMatrixLCD.MatrixLCDConnected = True Then
Dim MatrixLCDisplay As HAMatrixLCD = DeviceCollection.Item(modMatrixLCD.MatrixLCDisplayIndex)
MatrixLCDisplay.Clear()
MatrixLCDisplay.WriteString(">")
End If
End Sub
Private Sub txtCommandBar_LostFocus(sender As Object, e As EventArgs) Handles txtCommandBar.LostFocus
If modMatrixLCD.MatrixLCDConnected = True Then
Dim MatrixLCDisplay As HAMatrixLCD = DeviceCollection.Item(modMatrixLCD.MatrixLCDisplayIndex)
MatrixLCDisplay.Clear()
MatrixLCDisplay.WriteString("x")
End If
End Sub
Private Sub txtCommandBar_KeyUp(sender As Object, e As KeyEventArgs) Handles txtCommandBar.KeyUp
Dim strCommandString As String = ""
Select Case e.KeyCode
Case Keys.Down
txtCommandBar.Text = ""
Case Keys.Left
If txtCommandBar.Text = "" Then
txtCommandBar.Text = "previous"
txtCommandBar.Select(txtCommandBar.Text.Length, 0)
End If
Case Keys.Return
strCommandString = txtCommandBar.Text
txtCommandBar.Text = ""
Case Keys.Right
If txtCommandBar.Text = "" Then
txtCommandBar.Text = "next"
txtCommandBar.Select(txtCommandBar.Text.Length, 0)
End If
Case Keys.Up
txtCommandBar.Text = modConverse.strLastRequest
txtCommandBar.Select(txtCommandBar.Text.Length, 0)
End Select
If modMatrixLCD.MatrixLCDConnected = True Then
Dim MatrixLCDisplay As HAMatrixLCD = DeviceCollection.Item(modMatrixLCD.MatrixLCDisplayIndex)
If txtCommandBar.Text.Length > (MatrixLCDisplay.Cols * 2 - 2) Then
MatrixLCDisplay.SetAutoscrollOn()
End If
modMatrixLCD.intToast = My.Settings.MatrixLCD_ToastHoldTime
MatrixLCDisplay.Clear()
MatrixLCDisplay.WriteString("> " + txtCommandBar.Text)
End If
If e.KeyCode = Keys.Return Then
modConverse.Interpret(strCommandString)
End If
End Sub
Private Sub txtCommandBar_KeyDown(sender As Object, e As KeyEventArgs) Handles txtCommandBar.KeyDown
If e.KeyCode = Keys.Return Then
e.SuppressKeyPress = True
End If
End Sub
End Class