C
chucklyons
Guest
One of the modules that has been a standard for our Premise installation is John's Kenwood DT-7000s Sirius xdo. My wife likes her Sirius Smooth Jazz (Watercolors), while I...well back to the module
The challenge I had was I wanted to display what was playing on Sirius, but if Iwas playing MP3s, I wanted to see the same type of information on the touchpanel. So in Modules->AutomationBrowser->MediaZonePanel->MediaZoneEx->GetTrack, I modified it to this:
In Modules->AutomationBrowser->MediaZonePanel->MediaZoneEx->GetContent I modified it to this:
Like most of my stuff, nothing startling. 123's Minibrowser code gave me the clues how to manipulate the Track/Content information while John's excellent code gave me the means to be able to do it; putting all of the Sirius Content 'now playing' information ino the description property was brilliant and made this really easy. Even for me!
Next is to modify the minibrowser to give me the Sirius information...
Different question, if anyone is home...does the SRH2000 use anything like the same protocol as the DT-7000? I suspect not (AudioVox vs Kenwood)...

The challenge I had was I wanted to display what was playing on Sirius, but if Iwas playing MP3s, I wanted to see the same type of information on the touchpanel. So in Modules->AutomationBrowser->MediaZonePanel->MediaZoneEx->GetTrack, I modified it to this:
Code:
Output = ""
if not this.NowPlaying is nothing and not this.PlayMode is nothing then
strNowPlaying = this.NowPlaying.DisplayName
if Len(strNowPlaying) > 60 then
strNowPlaying = Left(strNowPlaying, 60)
strNowPlaying = strNowPlaying & "..."
end if
'let's display John's Sirius descriptions - cl
if this.nowplaying.description <> "" then
Output = Output & "Listening to " & this.content.displayname & "' " & strNowPlaying
else
Output = output & "Listening to " & this.nowplaying.artist & "- " & this.Nowplaying.album & "<BR>"
output = output & "Track: " & this.nowplaying.trackname
end if
else
Output = Output & ""
end if
method.Output = Output
Code:
Output = ""
if not this.Content is nothing then
if not this.NowPlaying is nothing then
'let's display John's Sirius descriptions - cl
if this.nowplaying.description <> "" then
output = Output & "Playing: " & this.Nowplaying.Description
end if
else
if this.NowPlaying.DisplayName <> this.Content.DisplayName then
Output = Output & "Current Media: " & this.Content.DisplayName
end if
end if
else
Output = Output & "Please Select Something to Listen To"
end if
method.Output = Output
Next is to modify the minibrowser to give me the Sirius information...
Different question, if anyone is home...does the SRH2000 use anything like the same protocol as the DT-7000? I suspect not (AudioVox vs Kenwood)...