1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
Private Delegate Sub _Affiche_ASCII_GSM(ByVal donnee As String)
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim nb_octet As Integer = SerialPort1.BytesToRead ' on récupère le nombre d'octet présent dans le tampon
Dim trame(nb_octet - 1) As Byte ' Tableau acceuillant les données au format byte
SerialPort1.Read(trame, 0, nb_octet) 'on lit le port
Dim donnee As String = System.Text.Encoding.ASCII.GetString(trame) ' on récupère les données au format ASCII
ecrire_txtbox1(donnee)
'L'évènement DataReceived se situe sur un thread différent que le form, nous devons donc appelé un délégué pour afficher le résultat à l'écran
If Me.InvokeRequired Then
Me.Invoke(New _Affiche_ASCII_GSM(AddressOf Affiche_ASCII_GSM), donnee)
End If
End Sub
Private Sub Affiche_ASCII_GSM(ByVal donnee As String)
donnee_recu += donnee
TextBox1.Text = donnee_recu 'affiche les données dans la textbox1
End Sub |
Partager