SERIALPORT - Problème de lecture sur port série
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:
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
