Bonjour
Tu peut facilement avoir gérer l'événement, depuis la version 8, 0/1 ou
1/0
en faisant
sOuvre(1, 5000, 5000, 0, True)
sFixeParamètre(1, 9600, 0, 8, 0, True, True, True)
sEvénement(1,sEveCTS+sEveDSR,"EveComPort")
EveComPort est la procédure appellée par un changement d'état du CTS ou du
RTS
LE PROBLEME C'EST QUE TU NE PEUT PAS SAVOIR L'ETAT !!!!!!!
Si tu veux connaître l'état il te faut utiliser MSCOMM32.OCX
si IO est l'activeX
// Fermeture du port au cas ou
IF IO>>PortOpen THEN IO>>PortOpen=False
// Positionne sur le port
IO>>CommPort = 1
// Ouverture
IO>>PortOpen = True //-1
// Et on autorise les événements sur le port COM1
ActiveXEvénement("eveCOM", "IO","OnComm")
Procedure eveCOM()
SWITCH IO>>CommEvent
//-----------------------------
// Clear To Send : CTS
//-----------------------------
// pin N°5 connecteur 25 points
CASE comEvCTS:
// IO>>CTSHolding renvoie 0 ou 1
//-----------------------------
// Data Set Ready : DSR
//-----------------------------
// pin N°6 connecteur 25 points
CASE comEvDSR:
// IO>>DSRHolding renvoie 0 ou 1
END
N'oublie pas de lancer un regsvr32 de MSCOMM32.OCX
"David C" <crfcreusot@wanadoo.fr> a écrit dans le message de news:
443b8ac1$1@news.pcsoft.fr...
Bonjour à tous,
Malgré quelques recherches sur les forums et l'aide de WD, je n'arrive
pas
à générer un bout de code qui marche,
J'aimerais que lorsque CTS ( ou DSR) du port COM 1 passe de 0 à 1 cela
ouvre une fenêtre de mon projet.
C'est sans doute pas sorcier mais étant débutant, je n'y arrive pas.
Merci d'avance pour votre aide.
@+ David