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.Merci d'avance.
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
Partager