Bonjour tous le monde,

Voila, je me retourne vers vous car j'ai besoin d'un aide.
Je travail sur l'envois et la réception de d'une trame via le port com. je suis arrivé a réceptionné une trame mais j'arrive pas a envoyer une autre.
Je vous poste mon programme que j'ai fait, peux être j'ai fait une erreur dans mon programme.
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
44
45
46
47
48
Imports System
Imports System.IO.Ports
Class PortDataReceived
 
    Dim i As Integer
    Dim indata As String
 
    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("port is open")
        Console.WriteLine("Presse any Key to continue...")
 
 
 
        Console.WriteLine()
 
        Console.ReadKey()
 
    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:")
 
        Dim m As Integer
        For m = 0 To indata.Length - 1
            Console.Write(CType(AscW(indata(m)), Int32) & " ")
 
        Next
 
    End Sub
    Sub SendSerialData(ByVal data As String)
        data = "M?"
        Using COM3 As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort("COM3")
            COM3.WriteLine(data)
        End Using
    End Sub
End Class
Merci d'avance.