Discussion :

[Jérôme .G]

Bonjour,

Je cherche à établir une communication entre mon programme Windev et un port série.
J'utilise la fonction sOuvre pour ouvrir le port, puis sEcrit pour envoyer une trame.

Ce qui me pose problème c'est la réception. Je ne sais pas où je dois mettre mon code pour intercepter les trames qui arrivent. Je pense pouvoir utiliser la fonction sEvénement(1, sEveCaractèreReçu, "LectureCaractère") pour traiter la trame reçue, mais je ne sais pas où mettre cette ligne de code.

L'application Windev serait maître de la communication.

En espérant que quelqu'un pourra m'aider.

Jérôme

[frenchsting]

Tout simplement dans le code d'initialisation après l'ouverture de ton port série.

[EDM-TAHITI]

Hello,
Si tel que je le crois, un envois de commande doit nécessairement avoir un retour de commande, tu peux juste après l'envois faire une boucle qui va attendre la réponse du matériel connecté.
Toutefois, et cela arrive lorsque les commandes envoyées ne sont pas bonnes (commandes non reconnues par le matériel), il te faut dans la boucle d'attente de réception mettre une conditions de sortie, sinon, tu vas te retrouver bloqué dans cette boucle qui sera infinie.
Voilà, je pense que c'est la piste à suivre.
Bon dev.

[Jérôme .G]

Bonjour à vous et merci pour vos réponses.

frenchsting, ce que je ne comprend pas, c'est qu'après d'initialisation de ma fenêtre je ne 'passerais' plus à cet endroit du code donc comment vais-je intercepter ma trame ?

Ce que j'ai fais c'est lancer un Thread dans le code d'init de ma fenêtre : ThreadExécute("Thread1",threadNormal,Reception)La procédure Reception que je modifierai quand ça marchera :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
WHILE (True)
	sTrameRecue = sLit("COM"+SAI_PortCommAOuvrir, 20)
 
	IF Contient(sTrameRecue,RC) THEN
		Message("Trame reçue");
	END
END

Je ne sais pas si c'est une bonne façon de faire, en tout cas je passe bien dans mon While et ma fenêtre est toujours rafraîchie.
EDM-TAHITI, Je pense qu'ensuite je n’appellerais cette procédure qu'après un envoie comme tu dis.

[EDM-TAHITI]

Hello,
Oui, je pense que cela doit se faire dans une procédure factorisée. De plus, et par expérience, le nombre d'octets à lire dépend de la sequence envoyée, utilises sdansfileentree qui te permet de connaitre le nombre d'octets à lire présent dans le buffer de lecture.
A partir de là, la factorisation est aisée et surtout, si le protocole de réponse change, la fonction sera toujours en mesure de renvoyer la chaines lue.
Bon dev.

[Jérôme .G]

Décidément même l'émission des trames me pose problème..

Mon code d'ouverture du port, après appui sur un bouton :

Code WINDEV :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
nPort est un entier
 
// Ouverture du Port série
nPort = sOuvre("COM"+SAI_PortCommAOuvrir, 256, 256, 1000)
 
SI ErreurDétectée ALORS
	Erreur ("Echec d'ouverture du port COM",ErreurInfo())
SINON
	// Paramétrage d'E/S
	sFixeParamètre(nPort, 115200, 0, 8, 0)	
FIN

Je ne passe dans le code d'erreur je suppose donc que mon port est correctement ouvert. "COM"+SAI_PortCommAOuvrir vaut 9 ce qui correspond bien au périphérique avec lequel je travaille, les paramètres de communication sont corrects.

Pourtant que j'envoie une trame toujours suite à un appui sur un bouton :

Code WINDEV :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
nIResultat est un entier
sMessage est une chaîne = "#2;ET;"+CR
 
nIResultat = sEcrit ("COM"+SAI_PortCommAOuvrir,sMessage)
 
IF nIResultat = 0 THEN
	Erreur (ErreurInfo())
END
// Attendre la fin de l'écriture
BOUCLE
	SI sDansFileSortie(2) = 0 ALORS SORTIR
FIN
Info("Fin de l'écriture")

Je passe dans le code d'erreur et ErreurInfo () renvoie une chaîne vide.

Il y a surement quelque chose que je fais mal mais je ne sais pas quoi..

Merci d'avance.

[frenchsting]

Tu n'as pas vraiment d'erreur. Si c'est 0, ça veut dire que le temps imparti est dépassé.

Ton périphérique est bien en attente de réception ?

[Jérôme .G]

Oui le périphérique est bien en attente de réception, il s'agit d'une carte électronique que j'ai programmé. J'ai déjà fait une application en C# qui arrive à communiquer sans problème avec donc je ne vois pourquoi la fonction sEcrit renverrais 0.. J'ai pourtant l'impression de faire une utilisation simple des fonctions port série de Windev.

Une idée ?

Au passage concernant ta première réponse, pourrais-tu m'expliquer comment ça fonctionnerait en mettant le code dans l’initialisation de ma fenêtre s'il te plait ?

[themayu]

Bonjour,

Pour la réception de trame du port COM, je vous conseille fortement de retourner sur l'utilisation de sEvénement. En parcourant l'aide, vous pourrez y voir (dans les remarques) que Windev va créer lui même le thread, et appeler la procédure indiquée dès lors qu'il y aura quelque chose dans la fil d'entrée.

[Jérôme .G]

themayu, j'en prend bonnes notes, c'était mon idée pour la suite
Je suppose que ça répond à ma question concernant le fait de mettre le code sEvenement dans le code d'initialisation de la fenêtre si le thread est créé automatiquement.
Merci

Je précise que je ne vois pas de caractère passé dans mon espion port série (Free Device Monitoring Studio) qui fonctionne avec mon appli en C#.

[Jérôme .G]

J'ai trouvé quel était le problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nPort = sOuvre("9", 256, 256, 1000)

et non

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nPort = sOuvre("COM9", 256, 256, 1000)

Je manque un peu d'entrainement dans la lecture de doc..

Je garde le post ouvert au cas ou je galère avec la réception.

[Jérôme .G]

Pour information, tant qu'un port com est ouvert avec Windev le signal DTR de ce port est activé, ce qui était gênant dans mon cas.
Malgré que la fonction sFixeParamètre propose une option pour la gestion du protocole DTR/DSR je n'ai pas réussi à désactiver le signal quand le port est ouvert.

Ma communication se passe bien néanmoins, Merci à tous pour votre aide !