Communication avec un port série via sEvénement
Bonjour à tous,
J'ai un lecteur carte lié à un port série et je n'arrive pas à intercepter l'événement de passage d'une carte via ce lecteur.
le code que j'ai utilisé est le suivant :
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
| ==> déclarations globales
Port est un entier=1
Taux est un entier=9600
Parite est un entier=0
BitDonnee est un entier=8
BitStop est un entier=0
SI sOuvre(Port,2000,2000,sTimeoutDéfaut,Vrai)=Faux ALORS
Erreur("Erreur lors de l'ouverture de COM1 ")
Ferme()
SINON
SI sFixeParamètre(Port,Taux,Parite,BitDonnee,BitStop) =Faux ALORS
Erreur("Erreur de paramétrage de COM1")
SINON
sEvénement(Port,sEveCaractèreReçu,sReception)
FIN
FIN
==> voici la procédure sReception
Procedure sReception(numPort,monEvenement)
Nombre est un entier
MessageLu est une chaîne
Nombre=sDansFileEntrée(numPort)
MessageLu=sLit(numPort,Nombre)
Trace(MessageLu)
SI monEvenement=sEveCaractèreReçu ALORS
Trace(" -> Réception d'un caractère")
FIN |
quand je passe une carte sur le lecteur rien ne se passe !!
merci d'avance pour votre aide .
