Bjr a tous! bon voila je débute dan le vb et la jai un gros soucis, je trouve pa de solution, chui un peu perdu avec les événement j'explique: je doi créé un module de classe rs232 pour comuniké en série avec un appareil dan cette classe jai donc les méthode envoyer,recevoir et pour la comunication jai créé un objé "connexion" de type MSComm dan la classe(déclaré dan RS232 et non posé dan le form) le souci c ke jarive pa du tt a avoir les événement(pour la réception) jai mi sa dan la classe(source:développer.com):
Private Sub Oncommm() Dim tampon As String Select Case connexion.CommEvent
'liste des erreurs possibles
Case comEventBreak ' On a reçu un signal dinterruption (Break) Case comEventCDTO ' Timeout de la porteuse Case comEventCTSTO ' Timeout du signal CTS (Clear To Send) Case comEventDSRTO ' Timeout du signal de réception Case comEventFrame ' Erreur de trame Case comEventOverrun ' Des données ont été perdues Case comEventRxOver ' Tampon de réception saturé Case comEventRxParity ' Erreur de parité Case comEventTxFull ' Tampon denvoi saturé Case comEventDCB ' Erreur de réception DCB (jamais vu)
' liste des événements possibles qui sont, eux, normaux
Case comEvCD ' Changement dans la broche CD (porteuse) Case comEvCTS ' Changement dans broche CTS Case comEvDSR ' Changement dans broche DSR (réception) Case comEvRing ' Changement dans broche RING (sonnerie)
Case comEvReceive ' Si on reçoit des données tampon = tampon & connexion.Input Form1.Text8.Text = tampon Case comEvSend ' Il y a des caractères à envoyer Case comEvEOF ' On a reçu le caractère EOF
End Select
End Sub
mais bon sa marche pa rien ne se déclenche kan je sui censé recevoir kk choz, c ptét pa la bonne façon de coder les événements, ou alor c impossible si on intégre le MSComm dan un module de classe?? Je veu simplement qu'un traitement se déclenche dé ke je reçoi des données, et surtt pas menkikiné avec un do...while
Marsh Posté le 15-02-2005 à 16:10:22
Bjr a tous!
bon voila je débute dan le vb et la jai un gros soucis, je trouve pa de solution, chui un peu perdu avec les événement j'explique:
je doi créé un module de classe rs232 pour comuniké en série avec un appareil
dan cette classe jai donc les méthode envoyer,recevoir
et pour la comunication jai créé un objé "connexion" de type MSComm dan la classe(déclaré dan RS232 et non posé dan le form)
le souci c ke jarive pa du tt a avoir les événement(pour la réception)
jai mi sa dan la classe(source:développer.com):
Private Sub Oncommm()
Dim tampon As String
Select Case connexion.CommEvent
'liste des erreurs possibles
Case comEventBreak ' On a reçu un signal dinterruption (Break)
Case comEventCDTO ' Timeout de la porteuse
Case comEventCTSTO ' Timeout du signal CTS (Clear To Send)
Case comEventDSRTO ' Timeout du signal de réception
Case comEventFrame ' Erreur de trame
Case comEventOverrun ' Des données ont été perdues
Case comEventRxOver ' Tampon de réception saturé
Case comEventRxParity ' Erreur de parité
Case comEventTxFull ' Tampon denvoi saturé
Case comEventDCB ' Erreur de réception DCB (jamais vu)
' liste des événements possibles qui sont, eux, normaux
Case comEvCD ' Changement dans la broche CD (porteuse)
Case comEvCTS ' Changement dans broche CTS
Case comEvDSR ' Changement dans broche DSR (réception)
Case comEvRing ' Changement dans broche RING (sonnerie)
Case comEvReceive ' Si on reçoit des données
tampon = tampon & connexion.Input
Form1.Text8.Text = tampon
Case comEvSend ' Il y a des caractères à envoyer
Case comEvEOF ' On a reçu le caractère EOF
End Select
End Sub
mais bon sa marche pa rien ne se déclenche kan je sui censé recevoir kk choz, c ptét pa la bonne façon de coder les événements, ou alor c impossible si on intégre le MSComm dan un module de classe??
Je veu simplement qu'un traitement se déclenche dé ke je reçoi des données, et surtt pas menkikiné avec un do...while
siouplé help me