Well, I've been playing with my firecracker today (keep your jokes to yourself) and I have to say it's pretty cool. I grabbed an X10 library dll from Brian Vallelunga's site: here
The code below took about 5 minutes to write and now I can control the two modules that came with the firecracker just by clicking on a form button.
Next step, speech control...
Imports Vallelunga.X10
Public Class Form1
Private DeviceID As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RadioButton1.Checked = True
End Sub
Private Sub LampON(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
SendSignal(CM17ACommand.TurnOn)
End Sub
Private Sub LampOFF(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
SendSignal(CM17ACommand.TurnOff)
End Sub
Private Sub ItemSelect(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged
If sender.Equals(RadioButton1) Then
DeviceID = 2
ElseIf sender.Equals(RadioButton1) Then
DeviceID = 3
End If
End Sub
Private Sub SendSignal(ByVal command As CM17ACommand)
Dim firecracker As CM17A = CM17A.Instance("COM1")
firecracker.SendCommand(HouseCode.B, DeviceID, command)
firecracker.Dispose()
End Sub
End Class
