欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

串口通信,mscomm.output无法读取数据解决思路

更新时间: 2014-05-18 06:56:36 责任编辑: Author_N8

 

串口通信,MSComm.Output无法读取数据
Private Function sendData(ByVal data As Byte) As Boolean

Dim bytSendData(0) As Byte '发送的帧
Dim lngStartTime As Long

On Error GoTo sendData_Err_Handle
   
  If Len(data) = 1 Then data = "0" & data '如果不足2位前面用0补足
  bytSendData(0) = CByte("&H" & data) '转化数据类型为byte
  MSComm1.Output = bytSendData(0)  
  lngStartTime = GetCurrentTime
  Do
  DoEvents
  If Abs(GetCurrentTime - lngStartTime) >= DelayTime Then GoTo sendDataToSCM_Err_Handle
  Loop Until (MSComm1.OutBufferCount = 0) '设置或返回发送缓冲区中等待计算机发送的字符数。当将其值设为0时,则输出寄存器发送数据完毕。
  sendDataToSCM = True
  Exit Function
sendDataT_Err_Handle:
  sendData = False
  MsgBox Err.Description, vbCritical, "提示"
  
End Function


MSComm1.Output=bytSendData(0)格式并无错误,但是每次调试都显示属性只写。

--参考方法--
MSComm1.Output=bytSendData
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-05-18 06:56:36
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/878317/
本文WWW.DOC100.NET DOC100.NET版权所有。