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 32 33 34 35 36 37
| Private Sub NETComm1_OnComm()
Dim tampon As String
Select Case NETComm1.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 = MSComm1.Input
Call Traitement(tampon) ' Routine de traitement
Case comEvSend ' Il y a des caractères à envoyer
Case comEvEOF ' On a reçu le caractère EOF
End Select
End Sub |
Partager