Besoin d'un tuto pour l'utilisation du port COM

Bonjour a vous,

J'aurais besoin d'un bon tuto pour m'expliquer comment utilisé le port serie
pour que je puisse envoyer et recevoir des chaines de caractères.

J'aimerais utilisé les fonctions de visual studio 2008, car j'ai trouvé quelque exemple pour le moment mais pas concluant

Je continu a chercher

Merci

c'est la classe serialport qui fait ca, tu trouveras des exemples sur google

http://www.google.fr/search?hl=fr&q=...chercher&meta=

Citation:

Envoyé par sperot51

c'est la classe serialport qui fait ca, tu trouveras des exemples sur google

http://www.google.fr/search?hl=fr&q=...chercher&meta=

bonjour, j'ai bien vu que c'était cette classe mais pour le moment je trouve pas d'exemple concret qui pourrais me convenir , mais je continu a chercher bien sur. si des fois vous avez des piste je suis preneur.

ha j'oubliai, pour le moment je recherche pas trop en anglais car je suis trop limite dans cette langue, faut que je mis fasse tout de même, j'espère que le greta pourra me donnée des cours accélérer en anglais ;) (oui je sais.... en français aussi ;) )

l'utilisation ressemble à ca :
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 Public Class Form1 Private _com As System.IO.Ports.SerialPort Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load _com = New System.IO.Ports.SerialPort ' paramétres à trouver en général sur la doc de la chose avec laquelle on veut dialoguer _com.PortName = "COM1" _com.BaudRate = 9600 _com.DataBits = 8 _com.StopBits = IO.Ports.StopBits.One _com.Parity = IO.Ports.Parity.None ' démarrage du thread de réception Dim th As New System.Threading.Thread(AddressOf receive) th.IsBackground = True th.Start() End Sub Private Sub send(ByVal str As String) Dim octets(str.Length) As Byte For i As Integer = 0 To str.Length - 1 octets(i) = CByte(Asc(str(i))) Next _com.Write(octets, 0, octets.Count) End Sub Private Sub receive() While True If _com.BytesToRead = 0 Then System.Threading.Thread.Sleep(100) Continue While End If Dim str As String = _com.ReadExisting 'traitement de str End While End Sub End Class
on définit le paramétrage du port com
j'ai mis un sub qui sert à envoyer un string (je traduit au passage en octet, j'ai dejà eut des soucis en envoyant un string directement)
et on démarre un thread qui sert à vérifier ce qu'il y a

sinon il y a un évènement de réception, mais je ne l'ai jamais utilisé, peut etre qu'il fonctionne bien

le problème de la communication c'est que ce n'est pas totalement fiable
en général il y a des caractères de fin de commandes sur lesquels il faut se baser, et il faut aussi vérifier l'intégrité de la trame

parce que si on truc renvoie une commande du type A>0145Cr
et qu'il y a des parasites, tu peux très bien recevoir 14eH47
ce qui n'a rien à voir !!!

donc il faut en général vérifier que ca correspond à ce que t'attends, si ca ne correspond pas, tu recommence l'envoie de la trame de question et tu attends une nouvelle réponse

Citation:
Envoyé par sperot51
l'utilisation ressemble à ca :
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 Public Class Form1 Private _com As System.IO.Ports.SerialPort Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load _com = New System.IO.Ports.SerialPort ' paramétres à trouver en général sur la doc de la chose avec laquelle on veut dialoguer _com.PortName = "COM1" _com.BaudRate = 9600 _com.DataBits = 8 _com.StopBits = IO.Ports.StopBits.One _com.Parity = IO.Ports.Parity.None ' démarrage du thread de réception Dim th As New System.Threading.Thread(AddressOf receive) th.IsBackground = True th.Start() End Sub Private Sub send(ByVal str As String) Dim octets(str.Length) As Byte For i As Integer = 0 To str.Length - 1 octets(i) = CByte(Asc(str(i))) Next _com.Write(octets, 0, octets.Count) End Sub Private Sub receive() While True If _com.BytesToRead = 0 Then System.Threading.Thread.Sleep(100) Continue While End If Dim str As String = _com.ReadExisting 'traitement de str End While End Sub End Class
on définit le paramétrage du port com
j'ai mis un sub qui sert à envoyer un string (je traduit au passage en octet, j'ai dejà eut des soucis en envoyant un string directement)
et on démarre un thread qui sert à vérifier ce qu'il y a

sinon il y a un évènement de réception, mais je ne l'ai jamais utilisé, peut etre qu'il fonctionne bien

le problème de la communication c'est que ce n'est pas totalement fiable
en général il y a des caractères de fin de commandes sur lesquels il faut se baser, et il faut aussi vérifier l'intégrité de la trame

parce que si on truc renvoie une commande du type A>0145Cr
et qu'il y a des parasites, tu peux très bien recevoir 14eH47
ce qui n'a rien à voir !!!

donc il faut en général vérifier que ca correspond à ce que t'attends, si ça ne correspond pas, tu recommence l'envoie de la trame de question et tu attends une nouvelle réponse
Merci pour cette aide, j'était justement sur la fonction de reception et cela a l'air de marcher pas trop mal:
Code:

1 2 Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
et en fin de compte cela crée un thread car a l'intérieur de cette méthode je ne pouvais pas ajouter le texte reçus dans une listBox de la form.

Maintenant j'ai effectivement des soucis de décomposition de la trame reçu a cause des caractère de fin qui me son envoyer par le simulateur (logiciel simulant mon système) car la lecture de la trame par ReadLine s'arrête trop top le système m'envoyant plusieurs caractère d'arrêt si bien que je retrouve le ou les caractère manquant lors de ma prochaine réception.

Soit faut que je décompose la trame caractère par caractère puis arrêter au dernier caractère de fin. Sois faut que je vide le buffer avant une nouvelle réception.

En tout cas merci je prend note et garde sa dans mon pense bête ;)

En vidant le buffer avec la commande DiscardInBuffer cela marche nickel mais je viens d'apprendre que je risque d'avoir plusieurs ligne en retour donc il faut que je fasse différemment avec la commande read tout simplement jusqu'au buffer vide.