如何获取串口信号如串口鼠标的移动信号.txt

VB技巧问答10000例 VB技巧问答10000例

MSCOMM 工作在事件驱动通讯模式时可获得所有串口信号。把下面的程序加入可捕获到串口事件。可以在相关的 Case 语句之后插入代码来处理特定的错误或事件。 
    注意：RThreshold 和 Sthreshold 缺省值是0，如果你不改变这个值，对应的事件不会发生。例如，你保持 Sthreshold 的值为0，那么数据到达不会激活该程序。 
    Private Sub MSComm1_OnComm () 
     Select Case MSComm1.CommEvent 
     
    ' 错误 
     Case comEventBreak ' 收到 Break。 
     Case comEventCDTO ' CD (RLSD) 超时。 
     Case comEventCTSTO ' CTS Timeout。 
     Case comEventDSRTO ' DSR Timeout。 
     Case comEventFrame ' Framing Error 
     Case comEventOverrun '数据丢失。 
     Case comEventRxOver'接收缓冲区溢出。 
     Case comEventRxParity' Parity 错误。 
     Case comEventTxFull '传输缓冲区已满。 
     Case comEventDCB '获取 DCB] 时意外错误 
     
     ' 事件 
     Case comEvCD ' CD 线状态变化。 
     Case comEvCTS ' CTS 线状态变化。 
     Case comEvDSR ' DSR 线状态变化。 
     Case comEvRing ' Ring Indicator 变化。 
     Case comEvReceive ' 收到 RThreshold 个字符 
     Case comEvSend ' 传输缓冲区有 Sthreshold 个字符 
     Case comEvEof ' 输入数据流中发现 EOF 字符 
     End Select 
    End Sub 
<END>