LinuxMCE - User contributions [en]

Mitsubishi HC1500

2008-06-18T14:22:28Z

BlackHatBrigade: New page: == Controlling a Mitsubishi HC1500 Projector with RS232 == Future home of HC1500 howto ---- '''Ruby Code''' Section: 193 Off log("Sending Off Command") <$"00\x22\x0D"$> sleep(2...

== Controlling a Mitsubishi HC1500 Projector with RS232 ==

Future home of HC1500 howto

----
'''Ruby Code'''

Section: 193 Off 
log("Sending Off Command")
<$"00\x22\x0D"$>
sleep(2)
<$"00\x22\x0D"$>

Section: 192 On 
log("Sending On Command")
<$"00\x21\x0D"$>
sleep(2)
<$"00\x21\x0D"$>

Section: 373 Prive Method Listing 
#Written by Jason Bennett
def testMsg(msg)
cmd = Command.new(device_.devid_, -1001, 1, 2, 48)
if (msg =~ /00\x21/)
cmd.params_[10] = "1" #Device Turned on
log("Telling DCE Projector is on")
end
if (msg =~ /00\x22/)
cmd.params_[10] = "0" #Device Turned off
log("Telling DCE Projector is off")
end
SendCommand(cmd)
end
def recvMsg()
reply = String.new
while (true)
buff = conn_.Recv(1, -1)
if (buff.length() == 0)
break
end
reply = reply + buff[-1].chr
end
log("New Message: #{reply}")
return reply
end
def log(line)
$log = File.open("/var/log/pluto/" + device_.devid_.to_s + "_Generic_Serial_Device.log", "a")
$log.puts "(***):" + line.to_s
$log.close
end

Section: 350 Process Incoming Data 
#Written by Jason Bennett
msg = recvMsg()
testMsg(msg)
log("Message Caught: #{msg}")

Section: 355 Process Initialize 
<$"00\x21\0D"$>

Onkyo TXSR805

2008-06-18T14:17:42Z

BlackHatBrigade:

== Using the Onkyo TX-SR805 with RS232 Control ==

Future home of the howto for setting up a Onkyo TX-SR805 with RS232 support.

May widen howto to all Onkyo RS232 Receivers.

----
'''Ruby Code:'''

Section: 193 Off 
<$"!1PWR00\r"$>

Section: 192 On 
<$"!1PWR01\r"$>
sleep(2)
<$"!AMT00\r"$>
@mute = false

Section: 169 AM 
<$"!1SLI25\r"$>

Section: 164 Aux 
<$"!1SLI03\r"$>

Section: 172 Aux 2 
<$"!1SLI04\r"$>

Section: 162 CD 
<$"!1SLI23\r"$>

Section: 165 DVD 
<$"!1SLI10\r"$>

Section: 170 FM 
<$"!1SLI24\r"$>

Section: 163 Phono 
<$"!1SLI22\r"$>

Section: 160 Tape / Tape 1 
<$"!1SLI20\r"$>

Section: 173 Tape 2 
<$"!1SLI21\r"$>

Section: 166 Tuner 
<$"!1SLI26\r"$>

Section: 909 XM 
<$"!1SLI31\r"$>

Section: 373 Private Method Listing 
# Written by Jason Bennett
#
# Process 373 - Methods
def receiveMsg
buff = conn_.Recv(7, 1000)
log("Message Received: #{buff}")
trash = conn_.Recv(1, 100)
if (buff.length() < 7)
parsed1 = "ERR"
parsed2 = "00"
else
parsed2 = buff[5].chr + buff[6].chr
parsed1 = buff[2].chr + buff[3].chr + buff[4].chr
return [parsed1, parsed2]
end
end
#-------------------------------------------- Parsing -----------------------------------------------------------------------------------
def chkMsg(cat, opt)
case cat
# Power
when "PWR"
cmd = Command.new(device_.devid_, -1001, 1, 2, 48) # 48 = Power State
case opt
when "01"
cmd.params_[10] = "1" # Command 48, Param 10: 1 = On
when "00"
cmd.params_[10] = "0" # Command 48, Param 10: 2 = Off
end
SendCommand(cmd)
# Master Volume Level
when "MVL"
cmd = Command.new(device_.devid_, -1001, 1, 2, 71) # 71 = Volume
cmd.params_[30] = opt.hex.to_s # Command 71, Param 16 = Volume Level in Decimal
log("volume reported as: #{opt.hex.to_s}")
SendCommand(cmd)
# Input Selection
when "SLI"
cmd = Command.new(device_.devid_, -1001, 1, 2, 49) # 49 = Input Selection
case opt
when "00"
input_param = 316
when "01"
input_param = 317
when "02"
input_param = 318
when "03"
input_param = 164
when "04"
input_param = 172
when "10"
input_param = 165
when "20"
input_param = 160
when "22"
input_param = 163
when "23"
input_param = 162
when "24"
input_param = 170
when "25"
input_param = 169
when "26"
input_param = 166
when "31"
input_param = 909
end
cmd.params_[41] = input_param.to_s() # Command 49, Param 41 = Input
SendCommand(cmd)
end
end
#-------------------------------------------- Logging -----------------------------------------------------------------------------------
def log(line)
$log = File.open("/var/log/pluto/" + device_.devid_.to_s + "_Generic_Serial_Device.log", "a")
$log.puts "(***):" + line.to_s
$log.close
end

Section: 350 Process Incoming Data 
# Written by Jason Bennett
#
# Process 350 - Incoming
incMsg = receiveMsg()
log("New Msg: #{incMsg[0]}:#{incMsg[1]}")
chkMsg(incMsg[0], incMsg[1])

Section: 355 Process Initialize 
#31-May-06 14:13 init Onkyo Receiver
initok=false
for iRetry in 0...4
print "Initializing unit\n"
conn_.Send("!1PWRQSTN\r")
buf = conn_.Recv(200, 1000)
if( !buf.nil? && !buf.index("PWR0").nil? )
print "Initialized ok\n"
initok=true
break
else
print "Didn't respond to command\n"
end
end
if initok==false
DisableDevice( device_.devid_, true )
print "The device wouldn't respond. Disabling it.\n"
return
end
print "Initialized ok, doing log\n"

Section: 97 Mute 
if(@mute)
<$"!1AMT00\r"$>
else
<$"!1AMT01\r"$>
end
@mute=!@mute

Section: 313 Set Volume 
slevel = sprintf( "%x", level.to_i)
<$"!1MVL" + slevel + "\r"$>
SetDeviceDataInDB( device_.devid_, 158, level ) # 158 = DEVICEDATA_Volume_Level_CONST
print "volume and corresponding device data set\n"

Section: 90 Vol Down 
<$"!1MVLDOWN\r"$>

Section: 89 Vol Up 
<$"!1MVLUP\r"$>

Onkyo TXSR805

2008-06-18T14:17:11Z

BlackHatBrigade:

== Using the Onkyo TX-SR805 with RS232 Control ==

Future home of the howto for setting up a Onkyo TX-SR805 with RS232 support.

May widen howto to all Onkyo RS232 Devices.

----
'''Ruby Code:'''

Section: 193 Off 
<$"!1PWR00\r"$>

Section: 192 On 
<$"!1PWR01\r"$>
sleep(2)
<$"!AMT00\r"$>
@mute = false

Section: 169 AM 
<$"!1SLI25\r"$>

Section: 164 Aux 
<$"!1SLI03\r"$>

Section: 172 Aux 2 
<$"!1SLI04\r"$>

Section: 162 CD 
<$"!1SLI23\r"$>

Section: 165 DVD 
<$"!1SLI10\r"$>

Section: 170 FM 
<$"!1SLI24\r"$>

Section: 163 Phono 
<$"!1SLI22\r"$>

Section: 160 Tape / Tape 1 
<$"!1SLI20\r"$>

Section: 173 Tape 2 
<$"!1SLI21\r"$>

Section: 166 Tuner 
<$"!1SLI26\r"$>

Section: 909 XM 
<$"!1SLI31\r"$>

Section: 373 Private Method Listing 
# Written by Jason Bennett
#
# Process 373 - Methods
def receiveMsg
buff = conn_.Recv(7, 1000)
log("Message Received: #{buff}")
trash = conn_.Recv(1, 100)
if (buff.length() < 7)
parsed1 = "ERR"
parsed2 = "00"
else
parsed2 = buff[5].chr + buff[6].chr
parsed1 = buff[2].chr + buff[3].chr + buff[4].chr
return [parsed1, parsed2]
end
end
#-------------------------------------------- Parsing -----------------------------------------------------------------------------------
def chkMsg(cat, opt)
case cat
# Power
when "PWR"
cmd = Command.new(device_.devid_, -1001, 1, 2, 48) # 48 = Power State
case opt
when "01"
cmd.params_[10] = "1" # Command 48, Param 10: 1 = On
when "00"
cmd.params_[10] = "0" # Command 48, Param 10: 2 = Off
end
SendCommand(cmd)
# Master Volume Level
when "MVL"
cmd = Command.new(device_.devid_, -1001, 1, 2, 71) # 71 = Volume
cmd.params_[30] = opt.hex.to_s # Command 71, Param 16 = Volume Level in Decimal
log("volume reported as: #{opt.hex.to_s}")
SendCommand(cmd)
# Input Selection
when "SLI"
cmd = Command.new(device_.devid_, -1001, 1, 2, 49) # 49 = Input Selection
case opt
when "00"
input_param = 316
when "01"
input_param = 317
when "02"
input_param = 318
when "03"
input_param = 164
when "04"
input_param = 172
when "10"
input_param = 165
when "20"
input_param = 160
when "22"
input_param = 163
when "23"
input_param = 162
when "24"
input_param = 170
when "25"
input_param = 169
when "26"
input_param = 166
when "31"
input_param = 909
end
cmd.params_[41] = input_param.to_s() # Command 49, Param 41 = Input
SendCommand(cmd)
end
end
#-------------------------------------------- Logging -----------------------------------------------------------------------------------
def log(line)
$log = File.open("/var/log/pluto/" + device_.devid_.to_s + "_Generic_Serial_Device.log", "a")
$log.puts "(***):" + line.to_s
$log.close
end

Section: 350 Process Incoming Data 
# Written by Jason Bennett
#
# Process 350 - Incoming
incMsg = receiveMsg()
log("New Msg: #{incMsg[0]}:#{incMsg[1]}")
chkMsg(incMsg[0], incMsg[1])

Section: 355 Process Initialize 
#31-May-06 14:13 init Onkyo Receiver
initok=false
for iRetry in 0...4
print "Initializing unit\n"
conn_.Send("!1PWRQSTN\r")
buf = conn_.Recv(200, 1000)
if( !buf.nil? && !buf.index("PWR0").nil? )
print "Initialized ok\n"
initok=true
break
else
print "Didn't respond to command\n"
end
end
if initok==false
DisableDevice( device_.devid_, true )
print "The device wouldn't respond. Disabling it.\n"
return
end
print "Initialized ok, doing log\n"

Section: 97 Mute 
if(@mute)
<$"!1AMT00\r"$>
else
<$"!1AMT01\r"$>
end
@mute=!@mute

Section: 313 Set Volume 
slevel = sprintf( "%x", level.to_i)
<$"!1MVL" + slevel + "\r"$>
SetDeviceDataInDB( device_.devid_, 158, level ) # 158 = DEVICEDATA_Volume_Level_CONST
print "volume and corresponding device data set\n"

Section: 90 Vol Down 
<$"!1MVLDOWN\r"$>

Section: 89 Vol Up 
<$"!1MVLUP\r"$>

Onkyo TXSR805

2008-06-18T14:15:35Z

BlackHatBrigade:

== Using the Onkyo TX-SR805 with RS232 Control ==

Needs a lot of editing...

Section: 193 Off 
<$"!1PWR00\r"$>

Section: 192 On 
<$"!1PWR01\r"$>
sleep(2)
<$"!AMT00\r"$>
@mute = false

Section: 169 AM 
<$"!1SLI25\r"$>

Section: 164 Aux 
<$"!1SLI03\r"$>

Section: 172 Aux 2 
<$"!1SLI04\r"$>

Section: 162 CD 
<$"!1SLI23\r"$>

Section: 165 DVD 
<$"!1SLI10\r"$>

Section: 170 FM 
<$"!1SLI24\r"$>

Section: 163 Phono 
<$"!1SLI22\r"$>

Section: 160 Tape / Tape 1 
<$"!1SLI20\r"$>

Section: 173 Tape 2 
<$"!1SLI21\r"$>

Section: 166 Tuner 
<$"!1SLI26\r"$>

Section: 909 XM 
<$"!1SLI31\r"$>

Section: 373 Private Method Listing 
# Written by Jason Bennett
#
# Process 373 - Methods
def receiveMsg
buff = conn_.Recv(7, 1000)
log("Message Received: #{buff}")
trash = conn_.Recv(1, 100)
if (buff.length() < 7)
parsed1 = "ERR"
parsed2 = "00"
else
parsed2 = buff[5].chr + buff[6].chr
parsed1 = buff[2].chr + buff[3].chr + buff[4].chr
return [parsed1, parsed2]
end
end
#-------------------------------------------- Parsing -----------------------------------------------------------------------------------
def chkMsg(cat, opt)
case cat
# Power
when "PWR"
cmd = Command.new(device_.devid_, -1001, 1, 2, 48) # 48 = Power State
case opt
when "01"
cmd.params_[10] = "1" # Command 48, Param 10: 1 = On
when "00"
cmd.params_[10] = "0" # Command 48, Param 10: 2 = Off
end
SendCommand(cmd)
# Master Volume Level
when "MVL"
cmd = Command.new(device_.devid_, -1001, 1, 2, 71) # 71 = Volume
cmd.params_[30] = opt.hex.to_s # Command 71, Param 16 = Volume Level in Decimal
log("volume reported as: #{opt.hex.to_s}")
SendCommand(cmd)
# Input Selection
when "SLI"
cmd = Command.new(device_.devid_, -1001, 1, 2, 49) # 49 = Input Selection
case opt
when "00"
input_param = 316
when "01"
input_param = 317
when "02"
input_param = 318
when "03"
input_param = 164
when "04"
input_param = 172
when "10"
input_param = 165
when "20"
input_param = 160
when "22"
input_param = 163
when "23"
input_param = 162
when "24"
input_param = 170
when "25"
input_param = 169
when "26"
input_param = 166
when "31"
input_param = 909
end
cmd.params_[41] = input_param.to_s() # Command 49, Param 41 = Input
SendCommand(cmd)
end
end
#-------------------------------------------- Logging -----------------------------------------------------------------------------------
def log(line)
$log = File.open("/var/log/pluto/" + device_.devid_.to_s + "_Generic_Serial_Device.log", "a")
$log.puts "(***):" + line.to_s
$log.close
end

Section: 350 Process Incoming Data 
# Written by Jason Bennett
#
# Process 350 - Incoming
incMsg = receiveMsg()
log("New Msg: #{incMsg[0]}:#{incMsg[1]}")
chkMsg(incMsg[0], incMsg[1])

Section: 355 Process Initialize 
#31-May-06 14:13 init Onkyo Receiver
initok=false
for iRetry in 0...4
print "Initializing unit\n"
conn_.Send("!1PWRQSTN\r")
buf = conn_.Recv(200, 1000)
if( !buf.nil? && !buf.index("PWR0").nil? )
print "Initialized ok\n"
initok=true
break
else
print "Didn't respond to command\n"
end
end
if initok==false
DisableDevice( device_.devid_, true )
print "The device wouldn't respond. Disabling it.\n"
return
end
print "Initialized ok, doing log\n"

Section: 97 Mute 
if(@mute)
<$"!1AMT00\r"$>
else
<$"!1AMT01\r"$>
end
@mute=!@mute

Section: 313 Set Volume 
slevel = sprintf( "%x", level.to_i)
<$"!1MVL" + slevel + "\r"$>
SetDeviceDataInDB( device_.devid_, 158, level ) # 158 = DEVICEDATA_Volume_Level_CONST
print "volume and corresponding device data set\n"

Section: 90 Vol Down 
<$"!1MVLDOWN\r"$>

Section: 89 Vol Up 
<$"!1MVLUP\r"$>

Onkyo TXSR805

2008-06-18T14:12:41Z

BlackHatBrigade:

Onkyo TXSR805

2008-06-18T13:55:38Z

BlackHatBrigade:

== Using the Onkyo TX-SR805 with RS232 Control ==

Needs a lot of editing...

Section: 193 Off 
<code>
<$"!1PWR00\r"$>
</code>

Section: 192 On 
<code>
<$"!1PWR01\r"$> 
sleep(2) 
<$"!AMT00\r"$> 
@mute = false 
</code>

Section: 169 AM 
<code>
<$"!1SLI25\r"$> 
</code>

Onkyo TXSR805

2008-06-18T13:54:35Z

BlackHatBrigade: New page: == Using the Onkyo TX-SR805 with RS232 Control == Needs a lot of editing... Section: 193 Off <code> <$"!1PWR00\r"$> </code> Section: 192 On <code> <$"!1PWR01\r"$> sleep(2) <$"!AMT00\r"$...

== Using the Onkyo TX-SR805 with RS232 Control ==

Needs a lot of editing...

Section: 193 Off
<code>
<$"!1PWR00\r"$>
</code>

Section: 192 On
<code>
<$"!1PWR01\r"$>
sleep(2)
<$"!AMT00\r"$>
@mute = false
</code>

Section: 169 AM
<code>
<$"!1SLI25\r"$>
</code>