Discussion :

[gastoncs]

Bonjour,

voila j'ai un programme qui récupère dans une textbox les données qui transitent sur un port série, voici mon code :

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
Public Class Form1
    Dim inputData As String = ""
 
    Public Event DataReceived As IO.Ports.SerialDataReceivedEventHandler
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'les valeurs de quelques proprietes
        SerialPort1.PortName = "COM1"
        SerialPort1.BaudRate = 9600
        SerialPort1.Parity = IO.Ports.Parity.None
        SerialPort1.DataBits = 8
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.Handshake = IO.Ports.Handshake.None
        SerialPort1.RtsEnable = True
 
        ' ouvir le port serie
        SerialPort1.Open()
 
    End Sub
 
    ' recevoir des donnees de port serie
    Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, _
                      ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
                      Handles SerialPort1.DataReceived
        inputData = SerialPort1.ReadExisting 'or SerialPort1.ReadLine
        Me.Invoke(New EventHandler(AddressOf DoUpdate))
    End Sub
 
    'afficher les donnees recues dans l’interface utilisateur
    Public Sub DoUpdate()
        TextBox1.Text = TextBox1.Text & inputData
    End Sub
 
    Private Sub Form1_FormClosed(ByVal sender As System.Object, _
                   ByVal e As System.Windows.Forms.FormClosedEventArgs) _
                   Handles MyBase.FormClosed
 
        ' fermer le port serie
        SerialPort1.Close()
    End Sub
 
End Class

Le soucis réside dans le fait que les données que j'obtiens sont totalement désordonné et incompréhensible, voici ce que je lis :

U>5>79700>9MOYuOS>y>METVRe>eN>ouUVRe>LE<>6->>-?=>y>9>:6<
??s5INWeRVeNVION<NUMeRO?;?99>58797????}~enynv>: reRVRyog>NUsIE
?sommuneKNUVy8KNUVyNge??Oyvure>: INONfyWION>fE<LOsyU^??yfresse:>7>ZUu?ve>Ny>XqI^??soosgoonees :0>>?>>6??77>>>248>66>??Senseignemenvs>{om~nemenvyires>;??>>>>>8 8>sOU^USe>feS>FLUIfeS>efgusVUeE??MOYuNS>wu>Ny]yNGE8yNeZWeS>? >>>>?>>???>VVU<>>>NyYfI?????MOYeNS8fe>KNUWyNge?yLERVeS>;?????>>?<<8>>>Vf?>>>>KNUVD <>??KNUVynge>
<>>eNgIn[?:>Vf> <>>KNUVv??>??VeRMINe???

je ne comprend pas pourquoi ? une piste ou un moyen de transcrire les données en ASCII ???

[Geo2A]

Bonjour,

En français

En Anglais c'est un peu mieux car on lit:

Reads all immediately available bytes, based on the encoding, in both the stream and the input buffer of the SerialPort object.

Donc il faut déjà vérifier si l'encodage des caractères est bon en regardant la propriété encoding de l'objet serialport.

Il est peut-être préférable d'utiliser des propriétés comme BytesToRead pour lire le tampon de réception.

[_PascalC_]

Salut, es-tu sûr que le BaudRate doit être à 9600 ? Ca peut te ressortir ce genre de données quand la vitesse n'est pas la bonne.

Pascal