代码改变世界

VB中自动检测串口输入

2005-01-24 11:15  htc开发  阅读(675)  评论(0编辑  收藏  举报

VB6.0中,通信控件在“工程” ――“部件”,选中 Microsoft Comm Control6.0

其文件为 mscomm32.ocx

该控件唯一的一个事件就是OnComm事件。随着CommEvent属性值的变化,其后的Case程序代码便被引发。如此就是自动检测了。(区别于定时检测)

On comm事件中

Select case mscomm1.CommEvent

    Case  comEvCD    ‘CD线的状态发生变化

       If mscomm1.CDHolding then    如果DCD脚位电位为高

       Else

        ….

       End if

    Case  comEvCTS   ‘CTS线的状态发生变化

    Case  comEvDSR   ‘DSR线的状态发生变化

    Case  comEvRing   ‘Ring Indicator 变化

    Case  comEvReceive ‘收到最小接受字符数个字符

    Case  comEvSend   传输缓冲区有最小传输字符数个字符

    Case  comEvEOF   输入数据流中发现EOF 字符

End Select