Hi All
I recently installed a URC system (MX-780's and MSC-400 - part of the complete control suite that are pretty cheap now) and have integrated with HomeSeer. Now, from anywhere in the house, with an RF remote I can run any event in HS. It was actually pretty simple to do once I'd learned how to program the MX and MSC.
I basically connected the MSC-400 to HS with a serial cable (using an EdgePort 16 USB to RS232 - these things are awesome) and create RS232 commands to run events. So now, I can send any event (that I've added to the remote) to HomeSeer.
For those interested, I switched from Logitech Harmony to URC. I wrote an article about it here: http://www.hometoys.com/emagazine/20...er-remote/2066
The script to receive RS232 commands and trigger events is:
In startup.txt added (I'm using com19)
Added this to shutdown.txt
Created Callback script "com19_event.vb"
I added this line to remove an extra \x0D at start of every string:
Now I can run any event in HomeSeer from my URC MSC-400
Links:
MSC-400: http://www.universalremote.com/produ...ations/msc-400
MX-780: http://www.universalremote.com/produ...remotes/mx-780
Regards
Mark
I recently installed a URC system (MX-780's and MSC-400 - part of the complete control suite that are pretty cheap now) and have integrated with HomeSeer. Now, from anywhere in the house, with an RF remote I can run any event in HS. It was actually pretty simple to do once I'd learned how to program the MX and MSC.
I basically connected the MSC-400 to HS with a serial cable (using an EdgePort 16 USB to RS232 - these things are awesome) and create RS232 commands to run events. So now, I can send any event (that I've added to the remote) to HomeSeer.
For those interested, I switched from Logitech Harmony to URC. I wrote an article about it here: http://www.hometoys.com/emagazine/20...er-remote/2066
The script to receive RS232 commands and trigger events is:
In startup.txt added (I'm using com19)
Code:
e=hs.OpenComPort(19,"9600,n,8,1",1,"com19_event.vb","main") if e<> "" then hs.writelog "Error opening COM19",e else hs.writelog "COM19", "Setup complete" end if
Code:
e=hs.CloseComPort("19") if e<> "" then hs.writelog "Error closing COM19",e else hs.writelog "COM19", "Port was closed" end if
Code:
sub main(data) dim EventName EventName = Right(data, Len(data) -1 ) hs.writelog( "Serial", "Data Received: " & chr(34) & EventName & chr(34)) If hs.eventexists(EventName) = True Then hs.triggerevent(EventName) hs.writelog( "Serial", "Triggered Event: " & chr(34) & EventName & chr(34)) Else hs.writelog( "Serial", "No Event Matching " & chr(34) & EventName & chr(34) & " Exists") End If end Sub
Code:
EventName = Right(data, Len(data) -1 )
Links:
MSC-400: http://www.universalremote.com/produ...ations/msc-400
MX-780: http://www.universalremote.com/produ...remotes/mx-780
Regards
Mark
Comment