Discussion :

[seb-65]

Bonjour,

J'utilise sEvénement pour lire les données provenant du port COM.

Le problème est que les données ne sont pas lu en une seule fois. Normallement je devrais récupérer en une seule fois la chaine "Test1Test2" mais au lieu de ça j'obtiens un truc du style (résultat trace) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Te
st1T
est2<\r><\n>
Test
1Tes
t2<\r><\n>
Te
st1T
 
est2
<\r><\n>
T
est1
Tes
t2<\r><\n>
Tes
t1Te
st2<\r>

Si je test avec HyperTerminal j'ai bien la chaine "Test1Test2" en un seul tenant !!

Pourquoi windev me fait des lectures/affichage aléatoire ?

Merci

[miripesage]

Bonjour, pour voir plus clair, il est préférable de poster votre code. merci

[jurassic pork]

bonjour,

il faut se synchroniser sur le dernier caractère d'une ligne d'acquisition et buffériser ce qui arrive jusqu'à ce caractère. Voici un exemple :
1 - Déclarer une variable globale qui enregistre une ligne d'acquisition :

Code :

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

phrase est une chaîne

2 - Initialiser le port série et la gestion de l'évenement caractère reçu :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
// Port COM  Cb_Port  ici 1 
Cb_Port est un entier = 1
// Vitesse  Cb_Vitesse ici 9600 bauds
Cb_Vitesse est un entier = 9600
LigneCom est un booléen
// on ferme le port COM si il était ouvert
sFerme(Cb_Port)
LigneCom = sOuvre(Cb_Port, 6000, 6000,400,1)
SI LigneCom = Vrai ALORS
	// Paramétrage de COM   Cb_Vitesse vitesse de transmission
	sFixeParamètre(Cb_Port, Cb_Vitesse, 0, 8, 0) // 8 bits sans parité 1 bit de stop
	// Détection de caractères reçus sur le port COM choisi
	sEvénement(Cb_Port,sEveCaractèreReçu,"LecturePortSérie") // on active la procédure de lecture sur évenement
SINON
		Erreur("Erreur d'ouverture du port COM")
FIN

3 - la procédure locale de réception sur évenement ligne série :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
PROCEDURE LecturePortSérie(NumPort,Event)
// J.P  Septembre 2012
OctetsLus est un entier
TempBuffer est un Buffer
i est un entier
OctetsLus = sDansFileEntrée (NumPort)
TempBuffer = sLit (NumPort ,OctetsLus)
 
POUR i = 1 A OctetsLus
	// on se synchronise sur le  dernier caractère d'une ligne d'acquisition (ici line feed  \n 10)
	SI TempBuffer[[i]]=Caract(10)ALORS
		SI phrase <> "" ALORS
			// on affiche une ligne d'acquisition
			// on rajoute CR car on a pas stocké  le \r\n 
			Trace(phrase,CR)	
			// On vide la phrase							
			phrase=""
	FIN					
	SINON
		// on bufférise ce qu'on reçoit on ne stocke pas le Carriage Return \r 13
		SI TempBuffer[[i]]<>Caract(13)ALORS phrase=phrase+TempBuffer[[i]]
FIN

Ami calmant, J.P ;-)

[seb-65]

Bonjour,

sFixeParamètre(Cb_Port, Cb_Vitesse, 0, 8, 0) // 8 bits sans parité 1 bit de stop

Le bit de stop n'est pas plutôt comme ça : 0,8,1 ??

Je viens de tester ton code jurassic pork est cela ne marche pas. Voici le résultat du trace :

>:Octets:1
>:Buffer:T
>:Octets:4
>:Buffer:e
>:Octets:4
>:Buffer:s
>:Octets:4
>:Buffer:t
>:Octets:4
>:Buffer:1
>:Octets:4
>:Buffer:T
>:Octets:4
>:Buffer:e
>:Octets:4
>:Buffer:s
>:Octets:4
>:Buffer:t
>:Octets:3
>:Buffer:2
>:Octets:3
>:Buffer:<\r>
>:Octets:3
>:Buffer:<\n>
2 <\r><\n>
>:Octets:4
>:Buffer:T
>:Octets:4
>:Buffer:e
>:Octets:4
>:Buffer:s
>:Octets:4
>:Buffer:t
>:Octets:8
>:Buffer:1
>:Octets:8
>:Buffer:T
>:Octets:8
>:Buffer:e
>:Octets:8
>:Buffer:s
>:Octets:8
>:Buffer:t
>:Octets:8
>:Buffer:2
>:Octets:8
>:Buffer:<\r>
>:Octets:8
>:Buffer:<\n>
1Test2 <\r><\n>

[frenchsting]

Moi, je trouve que ça marche pas mal.
Il faut que tu ignores ce qu'il y a entre <\r> et <\r><\n>.

[seb-65]

Un truc doit m'échaper... Je ne comprend pas, la phrase n'est pas complète !

Le

Code :

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

Trace(phrase,CR)

me retourne :

t2 <\r><\n>
2 <\r><\n>
t2 <\r><\n>