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