Discussion :

[samirraoui]

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.

[nnovic]

Hello,

C'est normal que "SendSerialData" ne soit jamais appelée ?

[samirraoui]

Merci pour votre réponse, vous savez, ça fait plus de deux semaines dont je me suis bloqué sur ça, mais malheureusement je n'arrive pas encore a résoudre mon problème.

Vous pouvais m'expliquer un peux plus? comment je pourrai faire appel a SendSerialData? comment je pourrai renvoyer ma trame?.

Merci d'avance

[nnovic]

comment je pourrai faire appel a SendSerialData?

Je ne suis pas sûr de comprendre... Tu ne sais pas à quel endroit du code tu devrais faire l'appel, tu ne sais pas utiliser SendSerialData, ou bien tu ne sais pas faire un appel de procédure ?

[samirraoui]

Merci une autre fois,
Oui, comme j'ai mis avant que je suis débutant. je ne sais pas à quel endroit du code je devrais faire l'appel, et si c'est possible vous m'expliquez comment utiliser SendSerialData et ou je pourrai faire l'appel de procédure.

Merci, je suis vraiment bloqué sur mon projet.

[nnovic]

Aïe, aïe, aïe...

Bon alors... La lecture du code te permets de déduire qu'il faut passer une chaine de caractères en paramètre. Donc ton appel ressemblera à quelque chose comme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendSerialData("ma chaine de caracteres")

Quant à savoir où l'utiliser... Faut-il l'envoyer avant de recevoir les données, ou bien après, ou bien l'ordre n'a pas d'importance ? Ne le sachant pas, je ne peux pas vraiment t'aider. Dans tous les cas, ce ne pourra être fait qu'après l'ouverture du port COM et avant sa fermeture.