Reception Données RS232 VB

Version imprimable

Bonjour,

Je suis étudiant et je me lance dans le langage de programmation Visual basic. J'ai pour projet de lire les données d'une carte RFID via un lecteur en RS232. J'ai donc commencer à écrire mon code. J'arrive à lui envoyer une trame mais impossible d'afficher la réception des trames. Je sais que c'est un problème pas compliquée mais cela fait 2 jours que je tourne en rond sur les forums donc voici mon code:

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
Public Class Form1
 
    Dim a As Integer
 
    Public Event DataReceived As IO.Ports.SerialDataReceivedEventHandler
 
    ' -------------------------   Fenetre du Programme -------------------------------
    Private Sub Form1_Load() Handles MyBase.Load
 
        Try                     'Ouverture du port serie
            SerialPort1.Open()
        Catch ex As Exception
            MessageBox.Show("Impossible d'ouvrir le port ")
        End Try
 
    End Sub
    '---------------------------------  Bouton pour l'arret du Port---------------------------
 
    Private Sub BP_arret_Click() Handles BP_arret.Click
        SerialPort1.Close()
 
    End Sub
    '-------------------------------Reception des données du port série -----------------------
    Private Sub SerialPort1_DataReceived() Handles SerialPort1.DataReceived
        Dim inputData As Byte
        inputData = SerialPort1.ReadExisting
        Me.Invoke(New EventHandler(AddressOf DoUpdate))
 
    End Sub
    '------------------------------Envoie d'une Trame avec un Bouton -------------------
    Private Sub donnee_Click() Handles donnee.Click
 
        SerialPort1.Write(Chr(18) & Chr(1) & Chr(32)) 
 
    End Sub
 
    Public Sub DoUpdate()
        TextBox1.Text = TextBox1.Text & inputData
    End Sub
 
End Class

Voila mon problème vient de la réception des données je souhaite les afficher dans un TextBox en Hexadecimal.

Je remercie d'avance celui qui prendra le temps de m'aider.

A bientôt ....

11/03/2011, 13h55
Anklor

Il faut que tu sorte ta variable inputData de la procédure SerialPort1_DataReceived et que tu la mette en dessous de ta variable a (qui ne sert pas en passant :zoubi:)

Oui j'avais trouvé et cela marche mais pas tout à fait ^^ J'obtient que le premier Octet. Je dois recevoir en hexa "88 88 88 00" et avec cette méthode je recois 136 -> (88 en hexa) Donc ma question est comment pouvoir récupérer toute ma trame ainsi que l'afficher en Hexa dans ma fenetre VB.

Merci

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
Public Class Form1
    Dim inputData As Byte
 
    Public Event DataReceived As IO.Ports.SerialDataReceivedEventHandler
 
    ' -------------------------   Fenetre du Programme -------------------------------
    Private Sub Form1_Load() Handles MyBase.Load
 
        Try                     'Ouverture du port serie
            SerialPort1.Open()
        Catch ex As Exception
            MessageBox.Show("Impossible d'ouvrir le port ")
        End Try
 
    End Sub
    '---------------------------------  Bouton pour l'arret du Port---------------------------
 
    Private Sub BP_arret_Click() Handles BP_arret.Click
        SerialPort1.Close()
 
    End Sub
    '-------------------------------Reception des données du port série -----------------------
    Private Sub SerialPort1_DataReceived() Handles SerialPort1.DataReceived
 
    End Sub
    '------------------------------Envoie d'une Trame avec un Bouton -------------------
    Private Sub donnee_Click() Handles donnee.Click
 
        SerialPort1.Write(Chr(18) & Chr(1) & Chr(32)) 
        inputData = SerialPort1.ReadByte
        Me.Invoke(New EventHandler(AddressOf DoUpdate))
 
 
    End Sub
 
    Public Sub DoUpdate()
        TextBox1.Text = TextBox1.Text & inputData
 
    End Sub
 
 
End Class

Tu dois rien recevoir, vu que tu as vidé ta procédure SerialPort1_DataReceived 8O. Tu recois qu'un seul caractère car tu lis aussitôt après l’écriture mais après il y a rien.
En passant, évite :

Code:

TextBox1.Text = TextBox1.Text & inputData

choisie plutôt :

Code:

TextBox1.AppendText(inputData)

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
Public Class Form1
 
    Dim inputData As Byte
 
    Private Sub Form1_Load() Handles MyBase.Load
 
        Try                     'Ouverture du port serie
            SerialPort1.Open()
        Catch ex As Exception
            MessageBox.Show("Impossible d'ouvrir le port ")
        End Try
 
    End Sub
 
    Private Sub BP_arret_Click() Handles BP_arret.Click
 
        SerialPort1.Close()
 
    End Sub
 
    Private Sub SerialPort1_DataReceived() Handles SerialPort1.DataReceived
 
        inputData = SerialPort1.ReadExisting
        Me.Invoke(New EventHandler(AddressOf DoUpdate))
 
    End Sub
 
    Private Sub donnee_Click() Handles donnee.Click
 
        SerialPort1.Write(Chr(18) & Chr(1) & Chr(32)) 
 
    End Sub
 
    Public Sub DoUpdate()
 
        TextBox1.AppendText(inputData)
 
    End Sub 
 
End Class

14/03/2011, 09h16
Crokflo

Merci pour ton aide.

Avec ta modification de programme j'arrive maintenant à avoir les 2 premiers octets de ma trame, mais il m'en manque 2 ... Je ne comprend pas pourquoi. En bouinnant(^^) un peu avec le programme j'arrive a recevoir mes 4 octets sur ma trame RS232 (observer grâce à un logiciel espion RS232) mais bien sûr mon programme ne les reçoit pas, et avec le programme ci-dessus je n'en reçois que 2 octets. Donc je pense que cela vien de la maniére de vouloir lire les données dans le programme?? qu'en pensez vous?

Merci
14/03/2011, 09h48
Crokflo
Voici plus en detaille mon problème:

Je veux recevoir ces données :

Port ouvert par le processus "T5557bis.vshost.exe" (PID: 2328)
Requête: 12 01 20 ..
Réponse: 88 88 88 00 ˆˆˆ.
Port fermé

Je les recois lorsque j'envoie le code:
Code:

1 2 3 Private Sub SerialPort1_DataReceived() Handles SerialPort1.DataReceived inputData = SerialPort1.ReadLine Me.Invoke(New EventHandler(AddressOf DoUpdate))
Mais rien ne s'affiche dans ma TextBox1
Alors que sur la liaison RS232 je les reçois bien

Port ouvert par le processus "T5557bis.vshost.exe" (PID: 2328)
Requête: 12 01 20 ..
Réponse: 88 88 88 00 ˆˆˆ.
Port fermé

Lorsque j'envoie ce code
Code:

1 2 3 Private Sub SerialPort1_DataReceived() Handles SerialPort1.DataReceived inputData = SerialPort1.ReadByte Me.Invoke(New EventHandler(AddressOf DoUpdate))
Sur ma Liason Rs232 je reçois cette fois que

Port ouvert par le processus "T5557bis.vshost.exe" (PID: 2328)
Requête: 12 01 20 ..
Réponse: 88 88 ˆˆˆ.
Port fermé

Et dans ma TextBox s'affiche les données réponse..

Voila j'espere m'avoir bien exprimer ^^ ce n'est pas toujours facile.

Merci d'avance
15/03/2011, 07h18
Anklor

Quelle valeur as tu mis dans ta mémoire tampon ??

ReadLine lira jusqu'à ce que tu es une nouvelle ligne : Chr(13) & chr(10)
Comme ton périphérique n’envoie pas de NewLine, il est normal que rien ne s'affiche.

ReadByte lit 1 octet (le premier reçu qui reste en mémoire tampon)

Ce que je comprend pas c'est ce cas : tu dis que ça s'affiche bien dans ta textbox mais que ton logiciel espion RS232 ne voit que 2 octets ??

Bonjour,

Bon alors j'ai avancé j'arrive à avoir un peu plus d'octets mais toujours pas la totalité cette fois j'en veux 24 je crois et j'en é que 5-6. je te redonne le code que j'ai modifié et regarde le montage que j'ai fait sa va surment mieu t'éclairer. Mon but et de recréer le programme qui et en chinoi en un programme français ^^. J'utilise donc le logiciel espion RS232 pour retrouver les commandes à envoyer. Peut être que tu aura un déclique en regardant le code et les trames sinon ben ..... ^^

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
Public Class Form1
        Dim inputData As Long
 
    ' -------------------------   Fenetre du Programme -------------------------------
    Private Sub Form1_Load() Handles MyBase.Load
 
        Try                     'Ouverture du port serie
            SerialPort1.Open()
        Catch ex As Exception
            MessageBox.Show("Impossible d'ouvrir le port ")
        End Try
 
    End Sub
    '---------------------------------  Bouton pour l'arret du Port---------------------------
 
    Private Sub BP_arret_Click() Handles BP_arret.Click
        SerialPort1.Close()
    End Sub
    '-------------------------------Reception des données du port série -----------------------
    Private Sub SerialPort1_DataReceived() Handles SerialPort1.DataReceived
        inputData = SerialPort1.ReadByte
        Me.Invoke(New EventHandler(AddressOf DoUpdate))
 
    End Sub
    '------------------------------Envoie d'une Trame avec un Bouton -------------------
    Private Sub donnee_Click() Handles donnee.Click
 
        SerialPort1.Write(Chr(18) & Chr(8) & Chr(32)) ' & Chr(8) & Chr(128) & Chr(232) & Chr(0))
 
    End Sub
 
    Public Sub DoUpdate()
        TextBox1.AppendText(Hex(inputData))
 
    End Sub
 
End Class

http://img847.imageshack.us/img847/6379/logiciel.th.jpg

Merci ENCORE ^^
Bonne Journée

15/03/2011, 10h34
Anklor

Donc apparemment, ton programme marche bien, il affiche bien ce que tu reçois. Par contre ce qui n'est pas normal, c'est qu'il y a un affichage "brut" du code Hexa dans ta "textbox" sauf "00" remplacé en "0"

Regarde aussi au niveau de ton DTR, il se peut que le périphérique n’envoie plus de données car ton DTR n'est pas activé. (on le voit avec ton logiciel chinois qui active le DTR)
15/03/2011, 10h43
Crokflo

Ben oui et non je n'ai pas encore toute ma trame entière je devrait avoir
" 88 88 88 00 00 00 00 00 01 01 01 01 00 00 00 00 00 00 00 00 00 00 00 00 01 23 45 67"
mais je n'obtient que
" 88 88 88 00 00 00 00 00"

Mais bien observer je n'avait pas vu les leds en bas du logiciel espion.
Mais sais tu l'activer avec Visual Basic car faut l'activer dans le programme car jutilise toujours le même matériel.

Merci
15/03/2011, 10h51
Crokflo

Escuse moi je suis encore allé trop vite .... J'ai reussi à activer le DTR mais Cela n'a rien changer.

Je comprend pas trop la, Pour moi cela vien de la commande pour lire les données car avec un "ReadLine" le logiciel espion m'envoie bien toutes les données mais rien ne s'affiche dans mes TextBox .

A tu une idée?
15/03/2011, 10h55
Anklor

non mais si tu compares ton logiciel espion et ton soft, tout fonctionne.

maintenant, si tu n'as pas la même chose entre ton soft et le logiciel chinois il y a des chances que se soit pour les raisons invoqués : DTR

il suffit d'informer le SerialPort avec DtrEnabled

Donc j'ai essayer de bidouiller touts les paramétres du port voir si quelquechose changer mais pour moi cela fonctionne le "Hic" c'est que je veux une Grande Trame pour cela il me faudrait la commande
Code:

1 2 3 4 5 6 7 Private Sub SerialPort1_DataReceived() Handles SerialPort1.DataReceived Try inputData = SerialPort1.ReadLine Me.Invoke(New EventHandler(AddressOf DoUpdate)) Catch ioEx As System.IO.IOException End Try End Sub
Mais voila le Hic Pourquoi cela ne s'affiche pas ....
Un problème de définition de variable ...
Tu en pense quoi?

Merci encore

15/03/2011, 11h34
Anklor

Je t'ai expliqué tout a l'heure, tu ne reçois pas de caractère "NewLine" donc quand tu lit le buffer, il n'en retourne rien. Tu peux modifier le caractère de fin de Trame si tu le souhaite mais faut il savoir ce que ton logiciel chinois envoie (et si il envoie une fin de trame).

Newline peut etre pratique par exemple pour réception des trames NMEA GPS
Cela permet de traiter une ligne entière au lieu de gérer byte par byte.
15/03/2011, 11h44
Crokflo

Oui escuse moi en plus je venais d'en déduire cela.
Ben oui faudrais savoir ce qu'il envoie en fin de trame alors maintenant imagine que je sache quel caractère de fin de trame il envoie comment je fait pour le modifier?

Je pence que si tu comprend les trames et le fonctionnement ceci taidera c'est tout le descriptif de ce qui se produit quand le logiciel chinoi envoie la commande

http://img813.imageshack.us/img813/1653/espion.png

http://img832.imageshack.us/img832/5071/espion2.png

Merci encore pour ton aide.
15/03/2011, 11h57
Anklor

tu change le code de fin de trame par la propriété NewLine de ton SerialPort
C'est une variable de type String donc rien n'oblige que se soit 1 seul caractère.

C'est un peu dur d'analyser du code brut comme ça, il y a beaucoup de dialogue en tout cas.
Apparemment, il n'y a pas de fin de trame (peut être "00h 00h").
15/03/2011, 12h18
Crokflo

J'ai beau changer les valeurs de NewLine Rien ne change il ne s'arrete jamais.
Le NewLine cela veut bien dire de s'arreter au caractére correspondant? Si oui j'ai essayé par exemple "88 00" il devarit donc s'arreter au 3ème octets non?
15/03/2011, 12h28
Anklor

tu as pas mis SerialPort.Newline = "88 00" ?? sinon c'est normal

ne pas oublier que c'est de l'héxadécimal

Code:

SerialPort.Newline = chr(88) & chr(00)
15/03/2011, 12h33
Crokflo

Ben écoute oui ^^
Je le place ou? j'ai essayer plein d'endroit mais rien ne bouge. Bizzard quand même nn?

Réédition : A attent dans mon logiciel espion maintenant il lit en un premier temps "88" et aprés "88 88 00 00" Bizzard aussi ça.
15/03/2011, 12h58
Anklor

Ba écoute, là j'ai fait le tour de ce que je pouvais apporter.
Vérifie bien que ton logiciel espion lit bien tout (caractères de fin de trame) en utilisant l'hyperterminal.
Cela m'étonnerait beaucoup que la fin de trame soit 88h 00h
Il y a aussi le fait qu'il doit certainement y avoir un protocole de communication hardware de type RTS/CTS en vue des précédents screenshots.

J'ai enfin trouvé la solution. Je demandais de lire en continu mon Buffer du coup ben il lisait toujours la même chose, le début de ma trame à chaque coup donc j'ai réctifié mon programme et voila.

Je Te remercie Anklor ton aide ma quand même été bien utile.
Code:

1 2 3 4 5 6 Private Sub SerialPort1_DataReceived() Handles SerialPort1.DataReceived Do While SerialPort1.BytesToRead <> 0 Data = Data & Hex(SerialPort1.ReadByte) Loop Me.Invoke(New EventHandler(AddressOf DoUpdate)) End Sub