用VB调试串口通讯

End Sub

Private Sub Command1_Click()

ClearText

'''' nRece = 0 ''''计数器清零

With MSC

.InputMode = comInputModeBinary ''''设置数据接收模式为二进制形式

.InBufferCount = 0 ''''清除接收缓冲区

If Not .PortOpen Then

.PortOpen = True ''''打开通信端口

End If

End With

End Sub

Private Sub MSC_OnComm()

DelayTime ‘用来延续时间

ClearText

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!