[VB] Emission et réception du port série

Bonsoir,

J'essaie d'établir un code qui me permettrait de recevoir des données sur le port série. Mais le débogage bloque sur SerialPort1.ReadLine() quand le port reçoit des données.

Deuxièment quand je teste l'émission de données en écrivant sur le port1 (avec SerialPort1.WriteLine()), la réception ne marche pas (quand je récupère avec ReadLine())

J'ai deux questions : est-ce qu'il est possible d'envoyer et de récupérer les données sur un même port (d'un ordinateur) ?
Comment faire pour lire les données envoyées sur un port série ?

J'ai essayé plusieurs façons : avec serialPort, avec Mscomm, de nouveau avec serialPort...
Y a-t-il quelque chose qu'il faut rajouter ? (ou supprimer ?)

Voici une version avec serialPort...

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

        'vérifier sur le port com est ouvert
        Try
            SerialPort1.Open()
        Catch ex As Exception
            MessageBox.Show("Impossible d'ouvrir le port ")
        End Try
    End Sub

    'quand le port 1 recoit des données
    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        'si des données sont reçues dans le buffer d'entrée
        If SerialPort1.BytesToRead > 0 Then
            Do
                myRxData(SerialPort1.ReadByte)
                If SerialPort1.BytesToRead = 0 Then
                    Exit Do
                End If
            Loop
        End If
    End Sub

    Private Sub myRxData(ByVal mydata As Integer)
        Dim ascChar As String
    
        CheckForIllegalCrossThreadCalls = False

        'format des données du port 1
        ascChar = CChar(ChrW(mydata))
        TextBox1.Text &= ascChar
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'données écrites sur le port 1
        SerialPort1.Write(TextBox2.Text & vbCrLf)
    End Sub

Merci de votre aide !