Bonjour tous le monde,

Là je me retourne vers vous pour solliciter votre aide.
Je suis bloqué dans mon projet, c'est la réception et l'envois d'une trame par le port série Com usb.
Voila mon code:
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
Imports System
Imports System.IO.Ports
 
Class PortDataReceived
    Public Shared Sub Main()
 
 
        Dim mySerialPort As New SerialPort("COM3")
 
        mySerialPort.BaudRate = 38400
        mySerialPort.Parity = Parity.None
        mySerialPort.StopBits = StopBits.One
        mySerialPort.DataBits = 8
        mySerialPort.Handshake = Handshake.None
 
        AddHandler mySerialPort.DataReceived, AddressOf DataReceivedHandler
 
        mySerialPort.Open()
 
        Console.WriteLine("Press any key to continue...")
        Console.WriteLine()
        Console.ReadKey()
        mySerialPort.Close()
    End Sub
 
    Private Shared Sub DataReceivedHandler(
                        sender As Object,
                        e As SerialDataReceivedEventArgs)
        Dim sp As SerialPort = CType(sender, SerialPort)
        Dim indata As String = sp.ReadExisting()
        Console.WriteLine("Data Received:")
        Console.Write(indata)
    End Sub
    Dim data As String
    Sub SendSerialData(ByVal data As String)
        ' Send strings to a serial port.
        Using com1 As IO.Ports.SerialPort =
                My.Computer.Ports.OpenSerialPort("COM3")
            com1.WriteLine(data)
        End Using
    End Sub
End Class
la trame a recevoir et a envoyer est de cette manière:
Le format d’interrogation/ réponse est :

Adresse Commande Nb Données Donnée 1 Donnée 2 … Checksum

Nbre d’octet par donnée : 2

Ordre des données : poids fort en premier
Vitesse de communication : 38400 bauds

Merci d'avance pour votre aide.