If you were in Canada I'd ship you one of my keypads, I don't use them and they are just collecting dust. I'd have tossed them out but I was hoping to find a project for them or their parts in the future.
Announcement
Collapse
No announcement yet.
Monoprice 6 zone amplifier
Collapse
X
-
Originally posted by LCrawfo View PostIf you were in Canada I'd ship you one of my keypads, I don't use them and they are just collecting dust. I'd have tossed them out but I was hoping to find a project for them or their parts in the future.HS4 Pro, 4.2.19.16 Windows 10 pro, Supermicro LP Xeon
Comment
-
I'm thinking of using my keypads because they glow blue just like my jasco zwave switches. I think it might look pretty sweet with everything in one multi-gang plate.
Back to our regularly scheduled program:
In between barbequing some chicken and drinking some beer I hooked up the rs232 port to my homeseer server and tried the script posted by steveng (big thank you!) and it works like a champ. It looks like the amp does reply, here is my log:
May-09 4:49:14 PM Audio Received:<11MU00 #
May-09 4:49:13 PM Audio Sending: <11MU00
May-09 4:49:13 PM Audio Port Open - Sending Data
May-09 4:49:13 PM Audio Main() Called - Attempting To Open
May-09 4:49:13 PM Event Running script in background: C:/Program Files (x86)/HomeSeer HS3/scripts/MonopriceAmp.vb
May-09 4:49:13 PM Event Event Trigger "Test Events Monoprice amp on"
May-09 4:49:13 PM Event Event Test Events Monoprice amp on triggered by the event page 'Run' button.
I think even though this should be a plugin I'm going to expand on the script to pass in parameters such as:
Z1ON
or
Z1Vol20
so that there is only 1 script that you can call with a "target"-"command" kind of philosophy.
Comment
-
Just wanted to throw it out there, i have pretty much all scripts written, just never threw it into a plugin, I created scripts to create devices and have back end scripts that get status every hour and also reset it if power goes out (it turns all the volumes up to 35 if power goes out (ouch).
Anyway here is a screen shot of mine (This is 1 zone, I have 6 zones ruinning), let me know if I can help
I had a power outage today @5:30 or so and it reset bass, source and volume once power was restored
Scripts I have
Create devices (6 zones)
Get status (hourly based on event)
Reset for power outage (based on event)
Change PA/Power/Source/Volume/Bass/Treble (with voice, Device list, HSTouch)
I also have scripts/events written for announcements (Homeseer speak) that will turn on a zone PA, change source and speak - 7:00 every morning Jarvis (my systems name) comes on and greets us with today's weather and the turns on music in the bathroom then at 7:45 he tells us to have a great day and shuts it off.
Let me know if I can help
Thanks,
Steven
Comment
-
Originally posted by happnatious1 View Post...
I think even though this should be a plugin I'm going to expand on the script to pass in parameters such as:
Z1ON
or
Z1Vol20
so that there is only 1 script that you can call with a "target"-"command" kind of philosophy.
Comment
-
Originally posted by steveng View PostScripts I have
Create devices (6 zones)
Get status (hourly based on event)
Reset for power outage (based on event)
Change PA/Power/Source/Volume/Bass/Treble (with voice, Device list, HSTouch)
I also have scripts/events written for announcements (Homeseer speak) that will turn on a zone PA, change source and speak - 7:00 every morning Jarvis (my systems name) comes on and greets us with today's weather and the turns on music in the bathroom then at 7:45 he tells us to have a great day and shuts it off.
You don't have a device for mute I noticed.
I haven't had a power failure, but I'm going to have to simulate one and see what the AMP does, right now I have them on a UPS (more for protection from surges than anything else - and to shut everything down when the power does fail, should happen a few times this summer with wind storms).
I would love to see what scripts you have created.
Comment
-
Originally posted by happnatious1 View Post
I think even though this should be a plugin I'm going to expand on the script to pass in parameters such as:
Z1ON
or
Z1Vol20
so that there is only 1 script that you can call with a "target"-"command" kind of philosophy.
Marco
Comment
-
Originally posted by steveng View PostJust wanted to throw it out there, i have pretty much all scripts written, just never threw it into a plugin, I created scripts to create devices and have back end scripts that get status every hour and also reset it if power goes out (it turns all the volumes up to 35 if power goes out (ouch).
Anyway here is a screen shot of mine (This is 1 zone, I have 6 zones ruinning), let me know if I can help
I had a power outage today @5:30 or so and it reset bass, source and volume once power was restored
Scripts I have
Create devices (6 zones)
Get status (hourly based on event)
Reset for power outage (based on event)
Change PA/Power/Source/Volume/Bass/Treble (with voice, Device list, HSTouch)
I also have scripts/events written for announcements (Homeseer speak) that will turn on a zone PA, change source and speak - 7:00 every morning Jarvis (my systems name) comes on and greets us with today's weather and the turns on music in the bathroom then at 7:45 he tells us to have a great day and shuts it off.
Let me know if I can help
Thanks,
StevenHS4 Pro, 4.2.19.16 Windows 10 pro, Supermicro LP Xeon
Comment
-
I have a couple of RXA-3000s and an RXA-2000, same controls as the CXA-5000 above. They can be controlled by RS-232 or by IP. IP control can be through their own web page with any browser, but they also must have an API, since they have a control app that works across the line.HS4 Pro, 4.2.19.16 Windows 10 pro, Supermicro LP Xeon
Comment
-
Here's what I got for a script so far: (not fully tested)
Code:'Send Parameters in the form target|command|value ie. z1|volume|20 'targets: a1,a2,a3, z1,z2,z3,z4,z5,z6,z7,z8,z9,z10,z11,z12,z13,z14,z15,z16,z17,z18. 'commands: power,volume, mute, dnd(do not disturb),balance, treble, bass, source. 'value: on, off, volume 00-38, treble/base 00-14, balance 00-20 'Don't forget to set the com port Imports System.Threading Imports System.IO.Ports Imports System.Object Imports System.Text Public COMPort As New SerialPort() Public Sub Main(ByVal parm as Object) Dim tcArray(2) As String tcArray = parm.ToString.Split("|") Dim target As String = tcArray(0) Dim command As String = tcArray(1) Dim value As String = tcArray(2) hs.writelog("Monoprice Amp", "Script called with: "& target & "|" & command & "|" & value) Dim tcString = "" 'this is what will eventually be sent to the com port Dim tcStringBuilder As New StringBuilder("<") 'start building tcString Select Case target 'Select Target Case "a1" tcStringBuilder.Append ("10") Case "a2" tcStringBuilder.Append ("20") Case "a3" tcStringBuilder.Append ("30") Case "z1" tcStringBuilder.Append ("11") Case "z2" tcStringBuilder.Append ("12") Case "z3" tcStringBuilder.Append ("13") Case "z4" tcStringBuilder.Append ("14") Case "z5" tcStringBuilder.Append ("15") Case "z6" tcStringBuilder.Append ("16") Case "z7" tcStringBuilder.Append ("21") Case "z8" tcStringBuilder.Append ("22") Case "z9" tcStringBuilder.Append ("23") Case "z10" tcStringBuilder.Append ("24") Case "z11" tcStringBuilder.Append ("25") Case "z12" tcStringBuilder.Append ("26") Case "z13" tcStringBuilder.Append ("31") Case "z14" tcStringBuilder.Append ("32") Case "z15" tcStringBuilder.Append ("33") Case "z16" tcStringBuilder.Append ("34") Case "z17" tcStringBuilder.Append ("35") Case "z18" tcStringBuilder.Append ("36") Case Else hs.writelog("Monoprice Amp", "Target not found: " & target) End Select Select Case command Case "power" tcStringBuilder.Append ("PR") Case "mute" tcStringBuilder.Append ("MU") Case "volume" tcStringBuilder.Append ("VO") Case "dnd" tcStringBuilder.Append ("DT") Case "treble" tcStringBuilder.Append ("TR") Case "bass" tcStringBuilder.Append ("BS") Case "balance" tcStringBuilder.Append ("BL") Case "source" tcStringBuilder.Append ("CH") Case Else hs.writelog("Monoprice Amp", "Command not found: " & command) End Select Select Case value Case "on" tcStringBuilder.Append ("01") case "off" tcStringBuilder.Append ("00") Case Else tcStringBuilder.Append (value) End Select tcString = tcStringBuilder.ToString() Dim Com as Object Dim rxBuff as String rxBuff = "" COMPort.PortName = "COM5" COMPort.BaudRate = 9600 COMPort.Parity = System.IO.Ports.Parity.None COMPort.DataBits = 8 COMPort.StopBits = System.IO.Ports.StopBits.One Comport.ReadTimeout = 1000 If COMPort.IsOpen = False Then COMPort.Open() End If Com = tcString & vbCr hs.writelog("Audio", "Sending: " & Com) COMPort.Write(Com) System.Threading.Thread.Sleep(600) 'Reading the com port: rxBuff = (COMPort.ReadExisting) If rxBuff <> "" Then hs.writelog("Audio", "Received:" & rxBuff) rxBuff = "" End If COMPort.close() End Sub
Last edited by happnatious1; May 11, 2015, 03:34 PM.
Comment
Comment