| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 855 人关注过本帖
标题:[求助]MSComm接受到的二进制转换成十六进制显示的时候总少一个零
只看楼主 加入收藏
it381616212
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2006-5-15
收藏
 问题点数:0 回复次数:2 
[求助]MSComm接受到的二进制转换成十六进制显示的时候总少一个零

MSComm接受到的二进制转换成十六进制显示的时候总少一个零

代码如下:

Private Sub Command1_Click()
MSComm1.PortOpen = True
MSComm1.Output = "a123456b"
Buf = ""
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
InByte = MSComm1.Input
For i = LBound(InByte) To UBound(InByte)
Buf = Buf + Hex(InByte(i))
Next i
Text2.Text = Buf
MSComm1.PortOpen = False

Case comEvSend
MSComm1.Output = "a123465b"
Text1.Text = "传输缓冲区有 Sthreshold 个字符"
End Select

End Sub

搜索更多相关主题的帖子: 二进制 MSComm 十六进制 
2006-05-15 09:08
it381616212
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2006-5-15
收藏
得分:0 
小第是新手,那位大侠指导一下小第,不胜感激。。

我的邮箱地址是:381616212@ 我的qq:381616212
2006-05-15 10:28
luhaidong
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2006-3-21
收藏
得分:0 
StrWork = "Recv:" '把接收到的数据在文本框内显示
For j = LBound(Instring) To UBound(Instring)
StrWork = StrWork + " " + Format(Hex(Instring(j)), "00")
Next j
List2.AddItem StrWork
2006-05-19 20:56
快速回复:[求助]MSComm接受到的二进制转换成十六进制显示的时候总少一个零
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.041213 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved