Change Source status

[ingalls]

Hello,

I try to change the source status of my denon avr4308. I changed the name of the sources in the receiver, for example: DVD is HTPC...
It looks like that when I change the source using my script:

Sub Main(ByVal parms As Object)
Dim theResponse As String = ""
theResponse = hs.Plugin("BLDenon").SendRawCommand("SIDVD")
hs.writelog("Info", "The response for the command is: HTPC" & theResponse)
theResponse = Nothing End Sub

I don't have status change in the device status. I would like to have device status change to know wich source I have in my HStouch.
Note: My avr is well controlled with this script and I have a log file saying I the info response.

Thanks for help.

[ingalls]

The status can be change for power, volume, but

For request power status:

Sub Main(ByVal parms As Object)
Dim theResponse As String = ""
theResponse = hs.Plugin("BLDenon").SendRawCommand("PW?")
hs.writelog("Info", "The response for the command is: " & theResponse)
theResponse = nothing
End Sub

For Volume status:

Sub Main(ByVal parms As Object)
Dim theResponse As String = ""
theResponse = hs.Plugin("BLDenon").SendRawCommand("MV?")
hs.writelog("Info", "The response for the command is: " & theResponse)
theResponse = nothing
End Sub

FOr source status, it doesn't work maybe because the name was changed...

Sub Main(ByVal parms As Object)
Dim theResponse As String = ""
theResponse = hs.Plugin("BLDenon").SendRawCommand("SI?")
hs.writelog("Info", "The response for the command is: " & theResponse)
theResponse = nothing
End Sub

[ingalls]

In fact, I tried to put back the default names of the input, but it don't change anything. Maybe the answer is different and bldenon don't understand them?
When I put 3 scripts in the event with command

DenonSrcAppleTV.vb

Sub Main(ByVal parms As Object)
Dim theResponse As String = ""
theResponse = hs.Plugin("BLDenon").SendRawCommand("SITV/CBL")
hs.writelog("Info", "The response for the command is: " & theResponse)
theResponse = Nothing
End Sub

then
DenonResSI.vb

Sub Main(ByVal parms As Object)
Dim theResponse As String = ""
theResponse = hs.Plugin("BLDenon").SendRawCommand("SI?")
hs.writelog("Info", "The response for the command is: " & theResponse)
theResponse = Nothing
End Sub

DenonResSV.vb

Sub Main(ByVal parms As Object)
Dim theResponse As String = ""
theResponse = hs.Plugin("BLDenon").SendRawCommand("SV?")
hs.writelog("Info", "The response for the command is: " & theResponse)
theResponse = Nothing
End Sub

here are some kinds of answers in the log:

23/11/2011 21:44:23 Event Running script in background: DenonSrcAppleTV.vb
23/11/2011 21:44:24 Info The response for the command is:
23/11/2011 21:44:41 Event Event Trigger "aadenonReqSV"
23/11/2011 21:44:41 Event Running script in background: DenonReqSI.vb
23/11/2011 21:44:41 Event Running script in background: DenonResSV.vb
23/11/2011 21:44:42 Info The response for the command is: SVTV/CBL
23/11/2011 21:44:42 Info The response for the command is: SITV/CBL SVTV/CBL

the log info is ok with good audio and video input but no change in the status page...

[ingalls]

Incredibly, with HTPC (change name of DVD source) and vaux command, I have:

23/11/2011 22:19:56 Info The response for the command is: SIDVD SVDVD


23/11/2011 22:22:56 Info The response for the command is: SIV.AUX SVV.AUX

and I have status change...

with these one no change in status:

23/11/2011 22:14:32 Info The response for the command is: SIHDP SVHDP

23/11/2011 22:18:34 Info The response for the command is: SITV/CBL SVTV/CBL

23/11/2011 22:22:08 Info The response for the command is: SINET/USB

For this one it recognise svsiyrce but no sidvr

23/11/2011 22:20:49 Info The response for the command is: SIDVR SVSOURCE

Maybe the plugin doesn't understand these names?

[ingalls]

It seems that the plugin doesn't understand these entries to change the status: SIHDP, SITV/CBL, SINET/USB, SIDVR, SISAT, SIVCR


It should be grat to add the status features for:
-surround mode
-HDMI Monitor out status
-Cinema EQ
-PS night mode
-PS Mode
-PS Room EQ
-PS Restorer