Bonjour Chers amis développeur,
Je suis confronter à un événement tout a fait incompréhensible. Voila, j'ai développer une application qui se permet de récupérer automatiquement via port COM (2 Ports COM) les informations envoyées par deux équipements. J'utilise deux ports au niveau de mon ordinateur (1 Pour chaque équipement). Dans mon programme j'utilise le mode évènementiel de Windev. Sauf que lorsque les deux ports sont ouverts en mode évènementiel, le programme exécute seulement la procédure du 1er port vu que c'est lui qui arrive en premier dans mon processus. Quant je met en commentaire le programme du 1er port COM et que j'exécute celui du 2nd Port alors il fonctionne a merveille. Ma question est donc est 'il possible d'exécuter le mode Évènementiel sur 2 ports COM dans un même programme? Si oui comment faire? Voici le code que j'ai écris :
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 //Ouverture 1er Port COM et mode Évènementiel RésultatOuverturePort=Faux Message("Ouverture du port de communication.....") RésultatOuverturePort=sOuvre(PortCom1,200,200,sTimeoutDéfaut,Vrai) Multitâche(5) SI RésultatOuverturePort=Vrai ALORS sFixeParamètre(PortCom1,9600,0,8,0, Faux , Faux , Faux) SINON Erreur("Erreur d'ouverture de COM "+PortCom1) FIN //Ouverture 2nd Port COM et mode Evènementiel RésultatOuverturePort2=Faux Message("Ouverture du port de communication.....") RésultatOuverturePort2=sOuvre(PortCom2,200,200,sTimeoutDéfaut,Vrai) Multitâche(5) SI RésultatOuverturePort2=Vrai ALORS sFixeParamètre(PortCom2,9600,0,8,0, Faux , Faux , Faux) SINON Erreur("Erreur d'ouverture de COM "+PortCom2) FIN SI RésultatOuverturePort ALORS sEvénement(PortCom1,sEveCaractèreReçu,"ProcedureP1") FIN SI RésultatOuverturePort2 ALORS sEvénement(PortCom2,sEveCaractèreReçu,"ProcedureP2") FIN
Partager