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 |
Partager