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>

[Nicolas_Jeanneau]

Essayes en augmentant la vitesse ... Il semble qu'il y a discordance entre la vitesse de lecture réelle et celle attendue par le logiciel !

[seb-65]

Bonjour,

Je viens d'essayer mais ça ne fonctionne pas !!

Sur mes tests avec d'autres softwares la vitesse est à 9600 et cela fonctionne du tonerre sauf avec Windev....

[miripesage]

bonjour, le code de Jurassic me semble bon; vérifie si les paramètres :

Code :

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

sFixeParamètre(Cb_Port, Cb_Vitesse, 0, 8, 1)

correspondent bien à la configuration de ton appareil.
sinon, essaye d'ajouter après sLit un multitache(-1)

Code :

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

1
2
TempBuffer = sLit (NumPort ,OctetsLus)
         Multitache(-1)

[seb-65]

Bonjour,

Je suis bien en 0,8,1

Code :

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

sFixeParamètre(nCom,9600,0,8,1)

[jurassic pork]

heu je voudrais pas passer pour un rabat-joie mais il faut bien mettre 0 en dernier paramètre pour avoir un bit de stop. Dans la doc c'est écrit :

<NbBitsStop> : Entier
Nombre de bits stop :


0 -> 1 bit stop
1 -> 1.5 bits stop
2 -> 2 bits stop



Ami calmant, J.P ;-)

[seb-65]

Oui effectivement dans la doc il est bien écrit 1bit = "0"
Tandis que sous HyperTerminal c'est "1" pour 1 Bit... Plus simple

Je n'utilise plus sEvénement !! J'ai remplacé par un TimerSys dans lequel je place mon slit.

J'ai des résultats qui me conviennent déjà beaucoup mieux

Par contre la lecture déraille de temps en temps uniquement avec Windev je ne comprend pas pourquoi :

Nombre : 13 / 58.60:26.20<\r><\n>
Nombre : 13 / 58.70:26.20<\r><\n>
PB==> Nombre : 10 / 58.70:26.2<\r><\n>
PB==> Nombre : 3 / 0<\r><\n>
Nombre : 13 / 58.70:26.20<\r><\n>
PB==> Nombre : 1 / 5<\r><\n>
PB==> Nombre : 12 / 8.50:26.20<\r><\n>
Nombre : 13 / 58.70:26.20<\r><\n>

[miripesage]

essaye avec un "Multitache(-1)" après sLit !

[jurassic pork]

bonjour,
je ne comprend pas pourquoi ça ne marche pas avec Sevenement. Soit tu as une erreur dans ton code, soit tu as un problème de programmation de la ligne série. D' après les traces que tu nous a montrées, il semblerait que la variable phrase ne soit pas mémorisée entre deux passages dans la procédure LecturePortSérie ce qui serait le cas si tu n'avais pas déclaré la variable phrase en globale mais en locale.

Ami calmant, J.P ;-)