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 : 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
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 .