envoyer une Trame via port com
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:
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.