[mythtv-users] Serial control of a TV

[Adam Stylinski]

On Tue, Mar 17, 2009 at 08:22:19AM -0400, Ronald Frazier wrote:
> > Is anyone controlling a Sharp TV via serial?
> 
> 
> Sorry I'm a few days late replying, but I am doing serial control of
> my Aquos. I wrote a custom perl script to handle it using the
> Device::SerialPort module. You can download the perl module here:
> 
> http://www.ronfrazier.net/mythtv/downloads/Aquos.pm
> 
> On my system, I've got several scripts that try to control the TV, and
> since I didn't want them trying to share the serial port, I wrote a
> script (aquosserver.pl) that runs in the background, accepts TCP
> connections, and then issues commands from those connections and sends
> back the results. This way there is only one program touching the
> serial port. If you are interested, I can make that program available,
> but I need to clean up a few things first. Let me know.
> 
> If you want to write your own perl script to use that module, you can
> do something like the following (I hope this works right...I just
> gutted a few parts of my aquosserver.pl script ):
> 
> 
> #!/usr/bin/perl
> 
> use strict;
> use RFLibs::Aquos;
> 
> my $serialport_device = '/dev/ttyS2';
> my $aquos = new RFLibs::Aquos($serialport_device);
> 
> #enable the TV to be powered on via serial port
> $aquos->enable_serial_powerup(1);
> 
> #query power status
> my $is_power_on = $aquos->power();
> 
> #power on
> $aquos->power(1);
> 
> #turn the volume down by 1
> $aquos->adjust_volume(-1);
> 
> #set the volume to 12
> $aquos->volume(12);
> 
> #query the current volume
> my $volume = $aquos->volume();
> 
> #toggle mute
> $aquos->toggle_mute();
> 
> #set to input 6
> return $aquos->input(6);
> 
> 
> -- 
> Ron
> Ronald Frazier Photography - http://www.ronfphoto.com/
> Blogging About Photography - http://ronfrazier.blogspot.com/
> _______________________________________________
> mythtv-users mailing list
> mythtv-users at mythtv.org
> http://mythtv.org/cgi-bin/mailman/listinfo/mythtv-users

How difficult would this be to do for the Kuro?
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 198 bytes
Desc: not available
URL: <http://mythtv.org/pipermail/mythtv-users/attachments/20090317/09e1c21d/attachment.pgp>