Lire et afficher des données à partir du port série en VB.net
Je veux lire et afficher des données à partir du port série de mon ordinateur en VB.net. Ci-dessous le code que j'ai écris. Mais ca ne marche pas, rien ne s'affiche
Quelqu'un peut il m'aider?
Merci d'avance de votre disponibilité
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
39
40
41
42
43
|
Imports System
Imports System.IO.Ports.SerialPort
Module Module1
Sub Main()
Dim valeur As Object
valeur = ReceiveSerialData()
Debug.Print(valeur)
End Sub
Function ReceiveSerialData() As Object
' Receive strings from a serial port.
Dim returnStr As Object = ""
Dim com5 As IO.Ports.SerialPort = Nothing
Try
com5 = My.Computer.Ports.OpenSerialPort("COM5")
com5.ReadTimeout = 10000
Do
Dim Incoming As Object = com5.ReadLine()
If Incoming Is Nothing Then
Exit Do
Else
returnStr &= Incoming & vbCrLf
End If
Loop
Catch ex As TimeoutException
returnStr = "Error: Serial Port read timed out."
Finally
If com5 IsNot Nothing Then com5.Close()
End Try
Return returnStr
End Function
End Module |
