bonjour,

Je viens de passer 2 jours sur le net à chercher pourquoi mon bout de code ne fonctionne pas.

je doit développer une application qui reçoit à partir d'un pied à coulisse connecté sur le port série les informations de mesure.

je teste la lecture avec le code suivant:

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
28
29
30
31
32
33
34
35
36
37
38
 
Public Class Form1
 
    Dim returnstr As String = ""
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        SerialPort1.Open()
        AddHandler SerialPort1.DataReceived, AddressOf Receiver
 
 
    End Sub
 
    Private Sub Receiver(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs)
 
        Dim Incoming As String
        Dim sp As SerialPort = CType(sender, SerialPort)
 
        Dim counter As Integer = SerialPort1.BytesToRead
 
        Select Case e.EventType
            Case SerialData.Chars
                Incoming = sp.ReadLine()
                returnStr &= Incoming
                Me.Invoke(New MethodInvoker(AddressOf Display))
 
            Case SerialData.Eof
 
                'Me.Invoke(New MethodInvoker(AddressOf parseXML))
 
        End Select
 
    End Sub
 
    Private Sub Display()
        TextBox1.Text = returnstr
    End Sub
End Class
Le programme ne passe jamais dans la méthode "DataReceived". et pourtant, tester avec l'outil "Comtestserial" de Microridge, le pied à coulisse envoie des données.

Je ne sais pas ou chercher,
si quenlqu'un peut me donner une piste

Merci à tous