Hola meta mira haber si sacas algo en claro,segun el que me lo puso funciona,a mi no
Option Strict Off
Public Class Form1
Private WithEvents PUERTO As New System.IO.Ports.SerialPort
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each PUERTO As String In My.Computer.Ports.SerialPortNames
ComboBox1.Items.Add(PUERTO)
Next
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
PUERTO = My.Computer.Ports.OpenSerialPort(ComboBox1.Text)
PUERTO.BaudRate = 9600 ' 115200
PUERTO.Parity = IO.Ports.Parity.None
PUERTO.DataBits = 8
PUERTO.StopBits = IO.Ports.StopBits.Two
If PUERTO.IsOpen Then
TextBox5.Text = "EL PUERTO IS OPEN"
End If
Me.Refresh()
If PUERTO.ReadExisting.Contains("41") Then '("41")
TextBox1.BackColor = Color.Red
ElseIf PUERTO.ReadExisting.Contains("B") Then
TextBox2.BackColor = Color.Red
ElseIf PUERTO.ReadExisting.Contains("") Then
TextBox3.BackColor = Color.Red
ElseIf PUERTO.ReadExisting.Contains("D") Then
TextBox4.BackColor = Color.Red
ElseIf PUERTO.ReadExisting.Contains("a") Then
TextBox1.BackColor = Color.Beige
ElseIf PUERTO.ReadExisting.Contains("b") Then
TextBox2.BackColor = Color.Beige
ElseIf PUERTO.ReadExisting.Contains("c") Then
TextBox3.BackColor = Color.Beige
ElseIf PUERTO.ReadExisting.Contains("d") Then
TextBox4.BackColor = Color.Beige
End If
' PUERTO.Close()
' TextBox5.Text = "EL PUERTO IS CLOSED "
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A() As Byte = {&H41}
PUERTO.Write(A, 0, A.Length)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim B() As Byte = {&H42}
PUERTO.Write(B, 0, B.Length)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim C() As Byte = {&H43}
PUERTO.Write(C, 0, C.Length)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim D() As Byte = {&H44}
PUERTO.Write(D, 0, D.Length)
End Sub
End Class
dETECTAR
