[VB.NET]Affichage d'un buffer SerialPort

Bonjour!

Je communique avec une balance via le port série. J'utilise donc l'outils SerialPort (avec Visual Basic Express).

Voici le code:

Code:

---

1 2 3 4

Private Sub SerialPortBalance_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPortBalance.DataReceived Buffer_Mesure_BALANCE = SerialPortBalance.ReadLine Call Traitement_Trames_BALANCE() End Sub

---

La fonction Traitement_Trames-BALANCE est la suivante (dans un module):

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Traitement_Trames_BALANCE() Dim MesurePoids As String Buffer_Mesure_BALANCE = Replace(Buffer_Mesure_BALANCE, " ", "") Buffer_Mesure_BALANCE = Replace(Buffer_Mesure_BALANCE, Chr(10), "") Buffer_Mesure_BALANCE = Replace(Buffer_Mesure_BALANCE, Chr(13), "") Buffer_Mesure_BALANCE = Replace(Buffer_Mesure_BALANCE, "g", "") Buffer_Mesure_BALANCE = Replace(Buffer_Mesure_BALANCE, ".", ",") MesurePoids = Buffer_Mesure_BALANCE Accueil.Label25.Text = MesurePoids End Sub

---

A priori, le buffer devrait être placé dans le label25 non?
Pourtant, là, rien ne s'affiche sur le label25!

Pourtant:
Quand je suis en debogage, ça m'indique que la trame a bien été reçue (MesurePoids=104,3)
Quand je met une msgbox

Code:

---

msgbox(MesurePoids)

---

, ça fonctionne également.
Quand j'ajoute cette fonction

Code:

---

Acceuil.Label25.Refresh

---

, ça ne change rien !!

Aidez moi s'il vous plaît!! Je ne trouve pas de tutos complets sur le port série!
Et là je ne vois vraiment pas comment faire!

Merci d'avance!

Je ne comprends pas vraiment ton problème ?
Avec le .refresh ça fonctionne non ?

Ben non lol !!!
Rien ne s'affiche!
J'ai testé avec tous les contrôle (listbox,textbox,label,...) et rien n'y fait!

Le pire c'est que tout fonctionne !! Le buffer est bien stocké dans le label car j'arrive a faire des calculs avec !!!

J'ai même essayé avec

Code:

---

Accueil.label25.UpDate

---

:bug:

Je vois deux raisons possibles :

• La lecture du buffer bloque ton thread, dans ce cas ton application devrait être figée ---> fais un Application.doEvents()
• Ton buffer est lu plusieurs fois : la première fois il a valeur correcte, puis il li une chaine vide donc ton label est vide au final. pour vérifier çela met une valeur par défaut sur ton label et tu verras si elle disparait.

En fait j'ai déjà fait ça et sans résultat !!

Code:

---

Apllication.DoEvents

---

Ca ça change rien!

Le label a déjà une valeur par défaut et rien ne se passe !

N'y aurait-il pas une fonction qui force l'affichage ou une fonction qui permet de bloquer temporairement le thread du port série?

Citation:

---

Ton buffer est lu plusieurs fois : la première fois il a valeur correcte, puis il li une chaine vide donc ton label est vide au final. pour vérifier çela met une valeur par défaut sur ton label et tu verras si elle disparait.

---

Quand je suis en débogage, que je met la souris sur la variable MesurePoids (sans cliquer ^^) ça m'affiche la trame que j'attend !!!

J'ai également tenté de mettre:

Code:

---

Accueil.SerialPort1.Close

---

ET

Code:

---

Accueil.SerialPort1.Dispose

---

Et rien n'y fait !!

Si tu éxécutes le code en pas à pas est ce qu'il passe par la ligne : label.Text = x (x contient la valeur du buffer ??)

Il y passe une seul fois ?

Oui il y passe qu'une seule fois et il contient le buffer.

J'ai également tenté d'utiliser le contrôle BackgroundWorker et ça ne fonctionne toujours pas!!!

Code:

---

1 2 3 4

Private Sub SerialPortBalance_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPortBalance.DataReceived Buffer_Mesure_BALANCE = SerialPortBalance.ReadLine BackgroundWorker1.RunWorkerAsync() End Sub

---

Code:

---

1 2 3

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork Call Traitement_Trames_BALANCE() End Sub

---

Si tu vois le code passer une seule fois sur label.text = xxxx et que xxx n'est pas dans le label ... Je ne sais pas comment t'aider ?

tu es sur que tu met bien le texte dans le bon label ?

Oui lol !!!
Ca fait 4h maintenant que j'essaye de trouver une solution!
A tous les coups c'est une bêtise ! Mais j'en ai aucune idée!!

http://www.codeguru.com/Csharp/Cshar...cle.php/c6015/

C'est la manière que j'utilise pour lire et écrire sur un port RS232.

Ouais, je ne suis pas sûr que ma méthode ne soit pas bonne!
Y'a un truc qui nous échappe je pense !

Oui je pense aussi :)

Si c'est comme en C , dans le multitâche, les fonctions d'affichage ne sont pas prioritaires. Existe-t-il une fonction qui permette d'augmenter la priorité des affichage?

Quelqu'un aurait-il une idée s'il vous plaît ?

J'ai réussi a obtenir un message d'erreur (exceptions) qui cerne bien le problème je pense !

Citation:

---

L'exception System.InvalidOperationException n'a pas été gérée
Message="Opération inter-threads non valide*: le contrôle 'Label25' a fait l'objet d'un accès à partir d'un thread autre que celui sur lequel il a été créé."
Source="System.Windows.Forms"
StackTrace:
à System.Windows.Forms.Control.get_Handle()
à System.Windows.Forms.Control.set_WindowText(String value)
à System.Windows.Forms.Control.set_Text(String value)
à System.Windows.Forms.Label.set_Text(String value)
à Contrôle_de_production.Accueil.SerialPortBalance_DataReceived(Object sender, SerialDataReceivedEventArgs e) dans C:\Documents and Settings\alain remy\Bureau\Contrôle de production\Contrôle de production\Contrôle de production\Form1.vb:ligne 285
à System.IO.Ports.SerialPort.CatchReceivedEvents(Object src, SerialDataReceivedEventArgs e)
à System.IO.Ports.SerialStream.EventLoopRunner.CallReceiveEvents(Object state)
à System.Threading._ThreadPoolWaitCallback.WaitCallback_Context(Object state)
à System.Threading.ExecutionContext.runTryCode(Object userData)
à System.Runtime.CompilerServices.RuntimeHelpers.ExecuteCodeWithGuaranteedCleanup(TryCode code, CleanupCode backoutCode, Object userData)
à System.Threading.ExecutionContext.RunInternal(ExecutionContext executionContext, ContextCallback callback, Object state)
à System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
à System.Threading._ThreadPoolWaitCallback.PerformWaitCallback(Object state)

---

A mon avis le problème est que l'écoute du port com se fait à travers un thread différent de ton application (pour éviter que ton application freeze)

Essai de ne pas faire l'accès à ton label depuis l'eventhandler du port com.
Passes cette valeur à une méthode de ta form.

Ouhla!! Je ne comprend pas grand chose a ce que tu viens de dire, pourtant je suis certain que c'est la bonne voie!!!

Pourrais-tu expliquer ça comme si tu l'expliquais a un gamin de 8 ans stp ?? lol

En tout cas, merci beaucoup pour ton aide!!

Ton application principale (toto.exe) possède un thread.
Cet à dire qu'elle peut effectuer une seule opération à la fois.

Pour que ton code reçoive un event quand un nouveau message arrive sur le port COM, il faut qu'il écoute en continu sur ce port.
Cet a dire que si le thread était le même pour l'application et pour l'écoute du port tu ne pourrais même plus faire un clic sur un bouton de ton application.

C'est pour cela que la library que tu utilises pour écouter ton port crée un thread indépendant. tu as donc deux thread (ou plus) qui tourne en parallèle : un pour ton application (interface graphique) et un qui s'occupe uniquement d'attendre un message sur le port com.

D'après le message l'erreur vient du fait que tu accède ton label depuis un autre thread que celui de l'interface graphique.

Donc ce que je ferais à ta place c'est juste tenter de ne plus mettre à jour ton label depuis l'event handler du port mais de passer par une méthode de ton application. Autrement dis il faut que ton event handler appel une méthode de ta form en lui passant le message en paramètres.

Je ne suis pas certain que cela va fonctionner mais ça vaut la peine d'essayer.

D'accord, je crois avoir compris... En fait, ce qu'il faudrait que je fasse, c'est créer un Sub dans un module par exemple.

Mais comment faire pour lui faire passer un paramètre, et l'appel du sub se fera depuis l'event handler donc est-ce que ça va fonctionner??

Pourrais-tu me donner un petit exemple de code vite fait stp ?

Voilà ce que j'ai tenté de faire (qui ne marche pas!! )


Code de l'event handler :

Code:

---

1 2 3 4 5 6 7

Private Sub SerialPortBalance_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPortBalance.DataReceived   Buffer_Mesure_BALANCE = Me.SerialPortBalance.ReadLine()   Call Traitement_Trames_BALANCE(Buffer_Mesure_BALANCE)   End Sub

---

Code du SUB Traitement_Trames_BALANCE (Dans un module):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Traitement_Trames_BALANCE(ByVal Buffer_Mesure_BALANCE As String)   Buffer_Mesure_BALANCE = Replace(Buffer_Mesure_BALANCE, " ", "") Buffer_Mesure_BALANCE = Replace(Buffer_Mesure_BALANCE, Chr(10), "") Buffer_Mesure_BALANCE = Replace(Buffer_Mesure_BALANCE, Chr(13), "") Buffer_Mesure_BALANCE = Replace(Buffer_Mesure_BALANCE, "g", "") Buffer_Mesure_BALANCE = Replace(Buffer_Mesure_BALANCE, ".", ",") MesurePoids = Buffer_Mesure_BALANCE   Accueil.RichTextBox1.Text = MesurePoids Accueil.RichTextBox1.Refresh()   End Sub

---

Accueil c'est mon formulaire (form1)

En fait le problème est aussi que l'on ne sait pas vraiment ce qu'il se passe dans la library que tu utilises.

Pourquoi n'as tu pas utilisé le framework .net ?

http://msdn2.microsoft.com/en-us/lib...erialport.aspx

Bon courage :)

Nan mais en fait j'y comprend rien du tout a ton lien !!
Et puis c'est quand même dingue je n'arrive pas a utiliser cet objet !!!

C'est tellement simple pourtant !!!

Je ne sais pas quoi faire !!! Je ne comprend pas du tout le lien que tu m'as donné, je n'arriverais jamais a m'en servir ...
Merci quand même !

le pire c'est que si je met ça :

Code:

---

MsgBox(Accueil.RichTextBox1.Text)

---

Ca m'affiche le buffer !!!!!!!

Allez courage :) voici un petit exemple de l'utilisation de la classe du framework, j'espère que cela pourra t'inspirer

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim port As System.IO.Ports.SerialPort PublicSub Form1() port = New System.IO.Ports.SerialPort("COM1") port.Open() AddHandler port.DataReceived, AddressOf DataReceived EndSub PrivateSub DataReceived(ByVal sender AsObject, ByVal args As System.IO.Ports.SerialDataReceivedEventArgs) If args.EventType = IO.Ports.SerialData.Eof Then MessageBox.Show(port.ReadLine()) EndIf EndSub

---

Lol j'ai exactement le même problème avec cette méthode !!!

Je désespère !!

YYYYYYYYEEEEEEEEEESSSSSSSSSSSS!!!

Ca y es j'arrive en fait a interagir avec l'affichage!!!

Mais j'ai évidemment un nouveau problème:

Citation:

---

Si tu éxécutes le code en pas à pas est ce qu'il passe par la ligne : label.Text = x (x contient la valeur du buffer ??)

Il y passe une seul fois ?

---

Il passe deux fois par la ligne!

EDIT: au fait voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Delegate Sub _Affiche_ASCII(ByVal Buffer_Mesure_BALANCE As String)   Private Sub SerialPortBalance_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPortBalance.DataReceived   Dim nb_octet As Integer = Me.SerialPortBalance.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   Me.SerialPortBalance.Read(trame, 0, nb_octet) 'on lit le port   Dim Buffer_Mesure_BALANCE As String = System.Text.Encoding.ASCII.GetString(trame)   If Me.InvokeRequired Then Me.Invoke(New _Affiche_ASCII(AddressOf Traitement_Trames_BALANCE), Buffer_Mesure_BALANCE) End If End Sub

---

Et le problème c'est que le buffer n'est pas lu en entier et si je change la propiété de Read, ça marche plus!

tu n'as pas un .ReadLine() ?

Heuu oui dsl j'ai oublié de venir dire que tout est résolu!!

J'ai utilisé le ReadLine effectivement...

Merci beaucoup en tout cas

:king:

Ahhhhhh ben voila ça marche :)

Bonne nouvelle, a bientot !