SERIALPORT NO VB 2005

EDRAUDELOBO1 18/02/2012 23:12:05
#395101

boas estou a tentar ler e amarzenar e pisquisar dados (ex; a= 50 b= 49 c= 64 ...) resebidos na SerialPort
de uma clp programada em lader
no vb 2005 coloquei este code mais nao sei como amarzenar e pesquizar

Public Class Form1

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PictureBox2.SendToBack()
Button2.SendToBack()
SerialPort1.Write([Ô]2[Ô])
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

PictureBox1.SendToBack()
Button1.SendToBack()
SerialPort1.Write([Ô]1[Ô])
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
PictureBox3.SendToBack()
Button3.SendToBack()
SerialPort1.Write([Ô]3[Ô])
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
PictureBox4.SendToBack()
Button4.SendToBack()
SerialPort1.Write([Ô]4[Ô])
End Sub


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If SerialPort1.IsOpen = False Then
SerialPort1.Open()
SerialPort1.NewLine = Chr(13)
RichTextBox1.Text = SerialPort1.ReadLine()

End If

Select Case RichTextBox1.Text

Case [Ô]a= 50[Ô]
PictureBox2.SendToBack()
Button2.SendToBack()
End Select

Select Case RichTextBox1.Text

Case [Ô]b= 52[Ô]
PictureBox4.SendToBack()
Button4.SendToBack()
End Select


End Sub


End Class


alguem ai pode me dar uma mao?