Solved

RS-232 Control of Gateway 46" Plasma TV

Posted on 2003-10-28
8
615 Views
Last Modified: 2013-12-25
Hello,

I am attempting (with no success) to write a VB app to turn on and off a Gateway 46" plasma tv via the rs-232 serial port.

I found the manufacture specs for the RS-232 protocol if the 42" here:
[url]http://support.gateway.com/s/Manuals/Desktops/8508947/8508947.htm[/url]

It states the port settings are 9600,N,8,1
Basic Format for Command Parameters:
In order to transmit data from the computer to the plasma TV, the data must be sent in 1 byte hex format. The command code must first be sent to the plasma TV, followed by the value (in hexadecimal format).

Sample sequence to change the plasma TV's input to RGB:

Step 1:  Send 1 byte for command 91 (input select) to the plasma TV in hex format 0x91.
 
Step 2:  Send 1 byte for the value of the RGB input. In this example, send 0x06.
 
Step 3:  The plasma TV then responds to the PC with a 1 byte value to confirm the setting.
 
The following RS-232 remote control commands are available:
--------------------------------------
Item               Cmd  Data      Details  
Read               80    81-A7    Reads the plasma TV's current settings for command 81 through A7
Volume            81    01-64H   Set between 01-64H
Power On/Off    83    00-01    00 = Off 01 = On
ect...
--------------------------------------
Here is the code I wrote (which does not work) to turn off the TV:
   
    MSComm1.CommPort = 1
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.PortOpen = True
    MSComm1.DTREnable = True
    MSComm1.RTSEnable = True

    MSComm1.Output = Chr$(83) & Chr$(0)
I even tried...
    MSComm1.Output = Chr$(131) & Chr$(0)
I even tried...
    MSComm1.Output = Chr$(2) & Chr$(83) &  Chr$(0) Chr$(3)
I even tried...
    MSComm1.Output = Chr$(2) & Chr$(131) &  Chr$(0) Chr$(3)

I am very frustrated with Gateway because they cant help me with this...

Please could someone give me some help? (130 points)
Thank you,
Gregory Foster
0
Comment
Question by:gregoryafoster
8 Comments
 

Expert Comment

by:mshieh
ID: 9637949
Are you using a null modem cable?
0
 
LVL 85

Expert Comment

by:Mike Tomlinson
ID: 9638121
It looks like the codes in the specs are not ascii values, but actual hex values.

Try this:

Private Sub Form_Load()
    Const power As String = "0x83"
    Const powerOff As String = "0x00"
    Const powerOn As String = "0x01"
   
    MSComm1.CommPort = 1
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.PortOpen = True
    MSComm1.DTREnable = True
    MSComm1.RTSEnable = True

    MSComm1.Output = power & powerOn ' Turn the tv On?
    'MSComm1.Output = power & powerOff ' Turn the tv Off?
End Sub
0
 
LVL 5

Expert Comment

by:fantasy1001
ID: 9648327
Try this also,
Private Sub Form_Load()
    with mscomm1
       MSComm1.CommPort = 1
       MSComm1.Settings = "9600,N,8,1"
       MSComm1.PortOpen = True

       MSComm1.Output = chr(131) & chr(13)
       mscomm1.output = chr(0) & chr(13) 'turn off
       mscomm1.portopen = false
    end with
End Sub

Regards,
~fantasy~
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 85

Expert Comment

by:Mike Tomlinson
ID: 9828335
Did you ever get your program to work?
0
 

Author Comment

by:gregoryafoster
ID: 9831554
Well, I was way off here... Gateway really came through for me... I just had to be presistant.

I got in tough with an engineer for Gateway and he had all the information I needed.
I got the program to work and it is really neat! I can control anything on the Plasma tv I want.

I wrote a program that (from a wireless laptop) using winsock to connect to the laptop connected via rs232 to the plasma tv that I can play any dvd or music from any computer (or hard drive) on the plasma. If I can help anyone with this please feel free to email me gaf@gregoryfoster.com

Thanks for all of the support here!
0
 
LVL 85

Expert Comment

by:Mike Tomlinson
ID: 9832351
Very cool.  Let us know specifically what you need help with and we can throw in our two cents.

Idle_Mind
0
 

Accepted Solution

by:
SpazMODic earned 0 total points
ID: 10420040
PAQed, with points refunded (130)

SpazMODic
EE Moderator
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

867 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now