Lecture d'un port serie avec SerialPort

Version imprimable

Bonjour,

Je viens vers vous car cela fait 2-3 jours que je me casse la tête à trouver un réponse et une solution à mon soucis.

Je m'explique.

Je fais actuellement un applicatif fonctionnant sur une liaison série RS232.

La configuration du port se fait bien et l'envoie d'info également( A confirmé cf code).

Je me sers d'un shunt sur mon port série reliant le TX au RX.

Dans un premier temps je fais la demande de connexion, puis je fait une demande d par un checkbox et une validation.

Mais hélas je n'arrive pas à avoir le retour.

Un peu d'aide et / ou de correction ( Tout est possible) serai sympas.

Code de connexion :

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
 
   Private Sub ConnexionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnexionToolStripMenuItem.Click
        'Barre de progression
        ToolStripProgressBar1.Value = 10
 
        'Chargement des paramétrages du port
        Port = My.Settings.Port
        Bits_par_secondes = My.Settings.BPS
        Bits_de_donnees = My.Settings.BDD
        Bits_D_arret = My.Settings.BDA
        Paritee = My.Settings.Parite
        Ctrl_Flux = My.Settings.Flux
 
        Select Case Ctrl_Flux
            Case "Aucun"
                Ctrl_Flux = "0"
            Case "Xon / Xoff"
                Ctrl_Flux = "1"
            Case "Matériel"
                Ctrl_Flux = "2"
        End Select
 
        'Barre de progression
        ToolStripProgressBar1.Value = 20
 
        ' Create a new SerialPort object with default settings.
        _SerialPort1 = New SerialPort()
 
        ' Allow the user to set the appropriate properties.
        _SerialPort1.PortName = Port
        _SerialPort1.BaudRate = Bits_par_secondes
        _SerialPort1.Parity = Paritee
        _SerialPort1.DataBits = Bits_de_donnees
        _SerialPort1.StopBits = Bits_D_arret
        _SerialPort1.Handshake = Ctrl_Flux
 
        ' Set the read/write timeouts
        _SerialPort1.ReadTimeout = 500
        _SerialPort1.WriteTimeout = 500
 
        'Barre de progression
        ToolStripProgressBar1.Value = 30
 
        'Contrôle du port avant connexion
        Try
            With SerialPort1
                'Ouverture du port
                _SerialPort1.Open()
                ToolStripProgressBar1.Value = 60
 
                'Affichage de l'etat de connection
                ToolStripStatusLabel1.Text = "Connecté"
                Connection = "Connecte"
                ToolStripProgressBar1.Value = 65
                'Affichage de la commande de deconnexion et occultation de la commande connexion
                DeconnexionToolStripMenuItem.Visible = True
                ConnexionToolStripMenuItem.Visible = False
                ToolStripProgressBar1.Value = 70
 
            End With
        Catch ex As Exception
            MsgBox("Le port : " & Port & " n'est pas disponible", MsgBoxStyle.Critical)
 
            'Affichage de l'etat de connection 
            ToolStripStatusLabel1.Text = "Déconnecté"
            Connection = "Deconnecte"
 
            ' Occultationde la commande de deconnexion et Affichage de la commande connexion
            ConnexionToolStripMenuItem.Visible = True
            DeconnexionToolStripMenuItem.Visible = False
        End Try
 
        'Définition de la date de la réalisation de la modification
        Dim Calendar As String
        Calendar = My.Computer.Clock.LocalTime.ToString("dd/MM/yyyy")
        'Sauvegarde de l'historique
        Dim sw As StreamWriter = New StreamWriter("Historique \" & "Historique.txt", True, System.Text.Encoding.Default)
        'met le contenu dans le fichier
        sw.Write(Calendar & " > " & Connection & " au port : " & Port & vbCrLf)
        'Ferme le fichier
        sw.Close()
        ToolStripProgressBar1.Value = 85
        ' Affichage de la modification
        Dim sw1 As StreamReader = New IO.StreamReader("Historique \" & "Historique.txt")
        RichTextBox1.Text = sw1.ReadToEnd()
        'Ferme le fichier
        sw1.Close()
        'Barre de progression
        ToolStripProgressBar1.Value = 100
        'Barre de progression
        ToolStripProgressBar1.Value = 0
    End Sub

Code d’émission et de récupération

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
 
 Public Delegate Sub _Affiche_ASCII(ByVal donnee As String)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
 
        'Implantation de la valeur
        Emis = "A" & Emission.Text
        Console.Write(Emis)
 
        ' Lecture de la valeur émisse.
        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, 0) 'on lit le port
 
        Dim donnee As String = System.Text.Encoding.ASCII.GetString(trame) ' on récupère les données au format ASCII
 
 
        ' Label6.Text = Console.ReadLine
        'Définition de la date de la réalisation de la modification
        Dim Calendar As String
        Calendar = My.Computer.Clock.LocalTime.ToString("dd/MM/yyyy")
        'Sauvegarde de l'historique
        Dim sw As StreamWriter = New StreamWriter("Historique \" & "Historique.txt", True, System.Text.Encoding.Default)
        'met le contenu dans le fichier
        sw.Write(Calendar & " > Emission de : " & Emis & " dB " & vbCrLf)
        'Ferme le fichier
        sw.Close()
 
        ' Affichage de la modification
        Dim sw1 As StreamReader = New IO.StreamReader("Historique \" & "Historique.txt")
        RichTextBox1.Text = sw1.ReadToEnd()
        'Ferme le fichier
        sw1.Close()
 
    End Sub

Les paramètres suivant sont au début de mon programme :

Imports System.IO
Imports System
Imports System.IO.Ports
Imports System.Threading

Merci d'avance.

Cordialement

09/07/2012, 19h56
Pol63

de mémoire j'aurais mis

Code:

SerialPort1.Read(trame, 0, trame.count)

plutot que 0,0
enfin l'intellisense va te dire ce qu'il faut mettre en 3ème paramètre, si c'est un count 0 ne convient pas ...

si c'est toujours pas mieux tu peux faire un thread.sleep(50) entre l'écriture et la lecture, car on ne sait pas ce qui se passe matériellement dans les buffers ...

tu peux aussi faire du pas à pas / point d'arret pour voir ce que vaut nb_octet deja
10/07/2012, 16h18
Hybride76

Suite #1

Bonjour,

Merci Pol63 pour ton aide ma permis d'avoir un retour, ce qui dans un premier temps génial donc un grand merci.

Mais( Oui il y a un "Mais"), je n'ai pas la valeur émise. Je me retrouve avec des petits carrées vide.
Comme si la récupération ne comprenais pas ce quel reçoit.
Pour 0.0, j'ai 4 carrées ( Oui car lors de l'émission j’envoie "A" & 0.0, soit 4 caractères donc 4 carrées.

J'ai essayé :
#1

Code:

Dim donnee As String = System.Text.Encoding.ASCII.GetString(trame)

#2

Code:

Dim donnee As String = System.Text.Encoding.Default.GetString(trame)

#3

Code:

Dim donnee As String = System.Text.Encoding.Unicode.GetString(trame)

#4

Code:

Dim donnee As String = System.Text.Encoding.UTF32.GetString(trame)

#5

Code:

Dim donnee As String = System.Text.Encoding.UTF8.GetString(trame)

#6

Code:

Dim donnee As String = System.Text.Encoding.UTF7.GetString(trame)

Et dans tous les cas, aucun retour de la valeur émise quelque soit le codage ou là valeur émise.

Proposition :

En voyant que l'on fait un codage lors de la lecture, ne faut il pas faire de même à l’écriture?
Si oui comment, j'ai essayé en m'inspirant de la même méthode que la lecture mais sans grand succès.

Un pti coup de pouce ,ou un avis pour m'orienter serai la bienvenue.

Merci d'avance.

Cordialement.
10/07/2012, 16h24
Pol63

oui c'est le truc, mais je ne vois pas où tu écris dans le port série dans le code que tu as mis ...

l'objet serialport permet d'envoyer des octets ou des strings, et j'ai déjà eut des soucis en envoyant des string directement, il vaut mieux dans tous les cas envoyer des octets
après un string converti en octet l'est différemment selon le codage
il doit y avoir System.Text.Encoding.ASCII.GetBytes(unstring)

Suite #2

Encore Merci Pol63,

Mais là je suis dans le flou total, je pense avoir besoins d'explication et d'aide pour comprendre la chose.

Le code d’émission est :
Code:

1 2 3 4 5 6 'Implantation de la valeur Emis = "A" & Emission.Text SerialPort1.Write(Emis) Thread.Sleep(50)
Essais :
Code:

1 2 3 4 5 6 7 8 'Implantation de la valeur Emis = "A" & Emission.Text System.Text.Encoding.ASCII.GetBytes(Emis) SerialPort1.Write(Emis) Thread.Sleep(50)
Sans grand succès.

Une explication serai la bienvenue si cela te dérange pas???

Merci d'avance.

Cordialement.

10/07/2012, 18h47
Pol63

il faut bien faire la différence entre une méthode et une fonction
les 2 s'appelent et exécutent du code, mais une fonction retourne une valeur
l'intellisense (autocomplétion et aide qui va avec) de vb est bien faite, en tapant System.Text.Encoding.ASCII.GetBytes ca te précise que getbytes et une fonction qui retourne un tableau d'octet et qui demande en paramètre un string

Code:

System.Text.Encoding.ASCII.GetBytes(emis)

va donc retourner un tableau d'octet mais tu ne le stockes nulle part ...

Code:

dim bytesToSend as byte() = System.Text.Encoding.ASCII.GetBytes(emis)

de plus vu que tu fais SerialPort1.Write(Emis) après, ca envoie le contenu de Emis qui est un string
il n'y a rien d'implicite dans le code, et une variable ne peut pas changer de type
=> Write(bytesToSend)

Suite #3

Bonjour,

Après plusieurs essais j'ai toujours le même soucis, j'ai soit pas de retour ou soit des carrées.

Je ne sais pas trop qu'elle sont mes erreurs, car oui il doit y en avoir.

Essais réalisés:
#1
Code:

1 2 3 4 System.Text.Encoding.ASCII.GetBytes(Emis) Dim bytesToSend As Byte() = System.Text.Encoding.ASCII.GetBytes(Emis) SerialPort1.Write(Emis)
#2
Code:

1 2 3 4 5 Dim nb_octet1 As Integer = SerialPort1.BytesToWrite Dim bytesToSend1(nb_octet1 - 1) As Byte ' = System.Text.Encoding.ASCII.GetBytes(Emis) SerialPort1.Write(bytesToSend1, 0, nb_octet1) SerialPort1.Write(Emis)
Sans grand succès.

merci d'avance.

Cordialement.

12/07/2012, 14h48
Pol63

un peu n'importe quoi ... il ne faut pas tenter au hasard mais comprendre ce qu'on écrit
il te faut peut être quelques semaines de plus d'entrainement et de cours avant de faire ca ...

sinon tu relis ma réponse précédente tout y est
16/07/2012, 11h35
Hybride76

Suite #4
Bonjour,

Après t'as réaction j'ai reprise la chose différemment.

J'ai reprise la fonction Write pour comprendre sa structure ( site :http://msdn.microsoft.com/fr-fr/library/ms143551.aspx)

Et j'ai essayé suite à tes informations de reprendre ce qu'il n'allait pas.

Voici ce qu'il en est :

Si je comprends bien :
Write(Byte(), Int32, Int32)
Write (
Byte : valeur définit en bytes, dans mon cas

Code:

Dim bytesToSend As Byte() = System.Text.Encoding.ASCII.GetBytes(Emis)

,

Int 32 : valeur entier
dans mon cas j'ai essayé

Code:

Dim offset As Integer = 0)

,

Int 32 : valeur entier
dans mon cas j'ai essayé

Code:

Dim Counter As Integer

,

Code d'écriture :
Code:

1 2 SerialPort1.Write(bytesToSend, 0, Counter)
Mais pas de résultats.

En reprenant ton post du 10/07/2012 18h47 :

J'ai essayé :
Code:

1 2 3 Dim bytesToSend As Byte() = System.Text.Encoding.ASCII.GetBytes(Emis) Console.Write(bytesToSend)
Idem pas de réponse.

Si je mets SerialPort1.Write à la place de Console le compilateur m'informe que la valeur d'un tableau de dimension 1 en byte ne peu pas être convertie en string. Ce que je comprends d'où le principe de mettre en forme la totalité de la fonction write définit plus haut.

J'ai regarder les fonction et autre en détails avec différent information trouvés sur http://msdn.microsoft.com/fr-fr/libr...erialport.aspx, mais je suis un peu perdue, est ce malgré tes remarques et / ou critiques.

Après j’accepte parfaitement ce genre de remarque car je pars sur le principe que c'est grâce au erreurs que l'on apprend.

Et comme déjà dit :

Citation:

Je ne sais pas trop qu'elle sont mes erreurs, car oui il doit y en avoir.

Merci d'avance.

Code:

1
2
dim bytesToSend as byte() = System.Text.Encoding.ASCII.GetBytes(emis)
SerialPort1.Write(bytesToSend, 0, bytesToSend.Length)

18/07/2012, 14h23
Hybride76

FIN

Bonjour,

Merci POL63 pour ton aide.

En version Shunter cela ne donne rien de particulier mais sur terrain j'ai la totalité des informations.

La première fonction :

Code:

SerialPort1.write(emis)

,

fonctionne parfaitement aussi.

Encore merci, pour les conseils et l'aide apporté.

Cela m'a permis d'apprendre d'avantage sur le sujet.

Encore merci.

Cordialement.