[VB.net]comunicazione seriale

[18x8x]

salve mi servirebbe un grosso aiuto... devo far comunicare due computer tramite porta seriale e guardando un po' in rete sono riuscito ad arrivare a un programma che in teoria dovrebbe funzionare, anzi funziona solo che quando invio0 una lettera lui mi riceve un altro carattere ad esempio:
a --> O
spazio --> y=
c --> N
e così per altri caratteri, se per esempio mando ciao in corripondenza della c e della a ho rispettivamente M e O....qualcuno potrebbe spiegarmi come poter decodificare tutto ciò magari aggiungendomi una riga di codice così almeno mi posso orientare per farlo??? grazie
P.S. ho già visto tutte le soluzioni possibili che forniscono in internet ma da sempre lo stesso problema

[Fenomeno85]

se non ricordo male (avevo rivisto l'oggetto) tutto si basa sempre sul componete com.
A questo punto o ti cerchi su msdn come usarlo oppure se posti il tuo codice vediamo che c'è di 'sbagliato'

~§~ Sempre E Solo Lei ~§~

[18x8x]

ciao...provo a postarti il codice
questo è il trasmettitore

Imports System.Text

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To _
           My.Computer.Ports.SerialPortNames.Count - 1
            cbbCOMPorts.Items.Add( _
               My.Computer.Ports.SerialPortNames(i))
        Next
        btnDisconnetti.Enabled = False
        For i As Integer = 0 To _
            cbbBaudRate.Items.Add(300)
            cbbBaudRate.Items.Add(600)
            cbbBaudRate.Items.Add(1200)
            cbbBaudRate.Items.Add(2400)
            cbbBaudRate.Items.Add(4800)
            cbbBaudRate.Items.Add(9600)
        Next
        btnDisconnetti.Enabled = False
        For i As Integer = 0 To _
            cbbDataBits.Items.Add(4)
            cbbDataBits.Items.Add(5)
            cbbDataBits.Items.Add(6)
            cbbDataBits.Items.Add(7)
            cbbDataBits.Items.Add(8)
        Next
        btnDisconnetti.Enabled = False
    End Sub

    Private Sub btnConnetti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnetti.Click
        If SerialPort.IsOpen Then
            SerialPort.Close()
        End If
        Try
            With SerialPort
                .PortName = cbbCOMPorts.Text
                .BaudRate = cbbBaudRate.Text
                .Parity = IO.Ports.Parity.None
                .DataBits = cbbDataBits.Text
                .StopBits = IO.Ports.StopBits.One
            End With
            SerialPort.Open()
            lblMessaggio.Text = cbbCOMPorts.Text & " Connessa."
            btnConnetti.Enabled = False
            btnDisconnetti.Enabled = True
            txtStato.BackColor = Color.Green
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
    Private Sub btnDisconnetti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisconnetti.Click
        Try
            SerialPort.Close()
            lblMessaggio.Text = SerialPort.PortName & " Disconnessa."
            btnConnetti.Enabled = True
            btnDisconnetti.Enabled = False
            txtStato.BackColor = Color.Red
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
    Private Sub btnInvia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInvia.Click
        Try
            SerialPort.Write(txtInvia.Text & vbCrLf)
            With txtTesto
                .AppendText(txtInvia.Text & vbCrLf)
                .ScrollToCaret()
            End With
            txtInvia.Text = String.Empty
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
    Public Shared Function ConvertStringToByteArray(ByVal stringToConvert As String) As Byte()
        Return (New UnicodeEncoding).GetBytes(stringToConvert)
    End Function
    Public Delegate Sub myDelegate()
    Public Sub updateTextBox()
        With txtTesto
            .AppendText(SerialPort.ReadExisting)
            .ScrollToCaret()
        End With
    End Sub
    Private Sub btnCancella_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancella.Click
        txtTesto.Clear()
    End Sub
End Class

questo il ricevitore

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To _
           My.Computer.Ports.SerialPortNames.Count - 1
            cbbCOMPorts.Items.Add( _
               My.Computer.Ports.SerialPortNames(i))
        Next
        btnDisconnetti.Enabled = False
        For i As Integer = 0 To _
            cbbBaudRate.Items.Add(300)
            cbbBaudRate.Items.Add(600)
            cbbBaudRate.Items.Add(1200)
            cbbBaudRate.Items.Add(2400)
            cbbBaudRate.Items.Add(4800)
            cbbBaudRate.Items.Add(9600)
        Next
        btnDisconnetti.Enabled = False
        For i As Integer = 0 To _
            cbbDataBits.Items.Add(4)
            cbbDataBits.Items.Add(5)
            cbbDataBits.Items.Add(6)
            cbbDataBits.Items.Add(7)
            cbbDataBits.Items.Add(8)
        Next
        btnDisconnetti.Enabled = False
    End Sub

    Private Sub btnConnetti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnetti.Click
        If SerialPort.IsOpen Then
            SerialPort.Close()
        End If
        Try
            With SerialPort
                .PortName = cbbCOMPorts.Text
                .BaudRate = cbbBaudRate.Text
                .Parity = IO.Ports.Parity.None
                .DataBits = cbbDataBits.Text
                .StopBits = IO.Ports.StopBits.One
            End With
            SerialPort.Open()
            lblMessaggio.Text = cbbCOMPorts.Text & " Connessa."
            btnConnetti.Enabled = False
            btnDisconnetti.Enabled = True
            txtStato.BackColor = Color.Green
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
    Private Sub btnDisconnetti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisconnetti.Click
        Try
            SerialPort.Close()
            lblMessaggio.Text = SerialPort.PortName & " Disconnessa."
            btnConnetti.Enabled = True
            btnDisconnetti.Enabled = False
            txtStato.BackColor = Color.Red
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
    Private Sub DataReceived( _
       ByVal sender As Object, _
       ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
       Handles SerialPort.DataReceived
        txtLeggi.Invoke(New _
                       myDelegate(AddressOf updateTextBox), _
                       New Object() {})
    End Sub

    Public Delegate Sub myDelegate()
    Public Sub updateTextBox()
        With txtLeggi
            .AppendText(SerialPort.ReadExisting)
            .ScrollToCaret()
        End With
    End Sub
    Private Sub btnCancella_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancella.Click
        txtLeggi.Clear()
    End Sub

End Class