Discussion :

[gastoncs]

Bonjour, je reçois des données avec mon port série venant d'un pc.
sur un logiciel espion tel que Aspycom, pas de probléme j'obtiens bien les retour chariot.


mais lorsque je passe sous mon application vb.net et serialport, les retour chariot son remplacé par des carré, et le texte est écrit l'un à la suite de l'autre sans retour chariot :

voici le code vb de config du port, il est le meme que sur aspycom donc pas de soucis de config du port:

Code :

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

1
2
3
4
5
6
7
SerialPort2.PortName = "COM2"
        SerialPort2.BaudRate = 19200
        SerialPort2.Parity = IO.Ports.Parity.None
        SerialPort2.DataBits = 8
        SerialPort2.StopBits = IO.Ports.StopBits.One
        SerialPort2.Handshake = IO.Ports.Handshake.None
        SerialPort2.RtsEnable = True

et je reçois les données que je place sur un textbox :

Code :

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

1
2
3
4
5
6
7
8
9
10
    Private Sub SerialPort2_DataReceived(ByVal sender As System.Object, _
                      ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
                      Handles SerialPort2.DataReceived
        inputData = SerialPort2.ReadExisting 'or SerialPort1.ReadLine
        Me.Invoke(New EventHandler(AddressOf DoUpdate))
    End Sub
 
    Public Sub DoUpdate() 'on passe les valeurs de inputData vers la textbox FORMIDABLE
        TextBox1.Text = TextBox1.Text & inputData
    End Sub

comment résoudre ce probléme ?

[Pol63]

sur le port série, ce sont des octets qui transitent (plutot des bits d'ailleurs ^^), et non des string
à partir de là l'interprétation qu'on en fait peut être différente

[gastoncs]

je ne comprend pas ce que tu veux dire ?

[Pol63]

avec readbyte ou read tu aura des octets et tu pourras voir réellement ce qui est reçu

parce que si ca se termine par chr(10) par exemple, ce n'est pas un retour chariot mais certains logiciels l'interprètent comme tel

[carlfil]

Salut Gaston

Pol a raison, tu n'as qu'à utiliser le Replace(TonTexte, Chr(10), "")