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 : 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
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