Reception Données RS232 VB
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 ....