Discussion :

[alex2395]

Bonjour, je débute avec Visual Basic 2005 et j'essaie de communiquer via un port série avec 2 PC.
J'arrive à écrire des données (ce qui est déjà bien) mais pas à lire.
Je teste avec l'hyper terminal donc j'écris pour envoyer des données puis j'essaie sur l'autre PC de les lire avec mon programme.

Voici mon code tout simple avec une fenêtre et un bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Public Class Form1
 
    Dim parity As System.IO.Ports.Parity, _
           stopBits As System.IO.Ports.StopBits
    Dim returnStr As String = ""
    Dim Incoming As String
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox(ReceiveSerialData())
    End Sub
 
    Function ReceiveSerialData() As String
        Using com1 As IO.Ports.SerialPort = _
                My.Computer.Ports.OpenSerialPort("COM1", 9600, parity.None, 8, stopBits.One)
            Do
                Incoming = com1.ReadLine()
                If Incoming Is Nothing Then
                    Exit Do
                Else
                    returnStr &= Incoming & vbCrLf
                End If
            Loop
        End Using
        Return returnStr
    End Function
End Class

après divers test il semblerait que cette ligne Incoming = com1.ReadLine() ne fonctionne pas. A chaque fois que je clique sur le bouton, la fenêtre se bloque et se met en attente.

Voilà j'espère avoir été assez précis si quelqu'un peut m'aider

[alex2395]

J'ai viré ma bouvcle DO...LOOP et après appuie sur la touche entrée ça fonctionne bien