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 :
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 :
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 linterface 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
je ne comprend pas pourquoi ? une piste ou un moyen de transcrire les données en ASCII ???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???
Partager