串口实时通讯问题!送高分

webli 2004-08-30 12:47:08
我用串口通讯 MSCOMM 控件来接受数据"W001002003"
下位机实时发送数据!!
但有时接受的不对如"002003W 01","003 W01002"
请问怎样解决,要源码
说具体点
...全文
79 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
of123 2004-08-30
  • 打赏
  • 举报
回复
Private Sub MSComm1_OnComm ()
Select Case MSComm1.CommEvent
Case comEvReceive
If MSComm1.InBufferCount Then
InString = MSComm1.Input
MSComm1.InBufferCount = 0
End If
End Select
End Sub
of123 2004-08-30
  • 打赏
  • 举报
回复
Private Sub Form_Load()
MSComm1.RThreshold = 10
MSComm1.InputLen = 0
End If

Private Sub MSComm1_OnComm ()
Select Case MSComm1.CommEvent
Case comEvReceive
If MSComm1.InBufferCount Then
InString = MSComm1.Input
MSComm1.InBufferCount = 0
End Select
End Sub
醉马不肖 2004-08-30
  • 打赏
  • 举报
回复
接收缓冲区设大点试验一下,看看!

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧