User Ardirtbiker

Version	Status	Date Updated	Updated By
710	Unknown	N/A	N/A
810	Unknown	N/A	N/A
1004	Unknown	N/A	N/A
1204	Unknown	N/A	N/A
1404	Unknown	N/A	N/A
Usage Information

This article is a stub and requires expansion

Using the Kenwood Sovereign with RS232 Control

UNDER DEVELOPMENT

---

Current features supported:

• On/Off
• Mute
• Volume control (Up/Down)

Defined but not tested:

• Input selection
• DSP Modes
• THX contols

Also, Logging events is not up to par either.

---

Internal

#373 Private Method Listing

1. Private - Date: 2011-01-17

def SendIrCommand(command)

   for i in 0...1
       conn_.Send("\x01" + command + "\x02\x0D\x0D\x0A")
       reply = conn_.RecvDelimited("\x04", 2000)
       if( !reply.nil? && reply.length()>4 )
           log("Received good reply: " + reply + "\n")
           return reply
       else
           buf = conn_.Recv(1000,1000);
           log("Flushed buffer: " + buf + "\n")
       end
   end
   return "Invalid"

end

def log(word) $logFile.print( word + "\n" ) $logFile.flush() print(word + "\n") end

def GetRadioStations()

   # would like to implement reading from a table in pluto_media that
   # is populated from a screen in web admin... that queries a website for
   # local radio stations based on latitude & longitude or zip code.

   # for now.. populate an array manually

end

#350 Process Incoming Data

buf = conn_.Recv(1000,1000) log("Received '" + buf + "' data from Receiver")

#355 Process Initialize

1. Kenwood VR5x00 Receiver initialization

$logFile = File.new("/var/log/pluto/VR5x00.log", "w")

for iRetry in 0...4

   print "Initializing unit\n"
   conn_.Send("\x01PWR?\x02\x0D\x0D\x0A")
   buf = conn_.RecvDelimited("\x04", 2000)
   if( !buf.nil? && !buf.index("PWR").nil? )
       log("Data from Receiver: " + buf + "\n")
       # see if any more data from receiver
       buf = conn.Recv(1000,1000)
       log("is this data trash? " + buf + "\n")
       log("Initialized ok\n")
       return
   end
   log("Failed to initialize.  Wait 1 secs and try again\n")
   sleep(1)

end

1. DisableDevice( device_.devid_, true )

log("The device wouldn't respond. Disabling it.\n")

Power

#193 Off

SendIrCommand("PWR0")

#192 On

SendIrCommand("PWR1") sleep(2) SendIrCommand("MUTE0") @mute=false

Sound & Volume

#97 Mute

1. Mute

mute_state = SendIrCommand("MUTE?")[-6,5] case mute_state

   when "MUTE0"
       SendIrCommand("MUTE1")
   when "MUTE1"
       SendIrCommand("MUTE0")

end

#90 Volume Down

1. Vol Down

volume_level = (SendIrCommand("VOL?")[-3,2]).hex if volume_level > 0

   volume_level -= 1
   newvol = ("VOL" + "%02x" % volume_level.to_s).upcase
   SendIrCommand(newvol)
   log("Volume decreased to : " + newvol)

else

   log("Volume at Minimum")

end

#89 Vol Up

1. Volume Up

volume_level = (SendIrCommand("VOL?")[-3,2]).hex if volume_level < 100

   volume_level += 1
   newvol = ("VOL" + "%02x" % volume_level.to_s).upcase
   SendIrCommand(newvol)
   log("Volume increase to : " + newvol)

else

   log("Volume at Maximum")

end

Input Selection

#163 Phono

SendIrCommand("SEL00")

#873 Tuner - Digital

SendIrCommand("SEL01")

#162 CD

SendIrCommand("SEL02")

#160 Tape/Tape 1

SendIrCommand("SEL03")

#420 CDR

SendIrCommand("SEL04")

#155 Video 1

SendIrCommand("SEL05")

#156 Video 2

SendIrCommand("SEL06")

#157 Video 3

SendIrCommand("SEL07")

#158 Video 4

SendIrCommand("SEL08")

1. 165 DVD

SendIrCommand("SEL09")

#316 AV 1

SendIrCommand("SEL0A")