-
本版专家分：0结帖率 100% -
单片机给我发过来的是十六进数，我用mscomm控件 接受字符，在vb中显示不出来，怎样转换？
![]()
-
本版专家分：7570 -
如果单片机发送过来的十六进制数据只含有ASCII码的字符，那么将MSComm.InputMode＝comInputModeText，接收到数据可以直接转成字符串；如果发送的数据中含有双字节字符，则先用二进制格式接收，然后再进行手动转换。
-
本版专家分：3074 -
既然是十六进制,一些字符显示不出来很正常的.
例如 b as byte
b=126 '十六进制为7E
如果msgbox cstr(b)那是直接显示126的,要显示7E,你可以使用msgbox cstr(hex(b))
-
本版专家分：0
-
单片机那边发过来的06 0B A5 D1 32 FF FF FF FF FF FF FF 01
我怎样把他转换成 字符串06 0B A5 D1 32 FF FF FF FF FF FF FF 01
-
本版专家分：3074
-
单片机那边发过来的06 0B A5 D1 32 FF FF FF FF FF FF FF 01
我怎样把他转换成 字符串06 0B A5 D1 32 FF FF FF FF FF FF FF 01
就是我所说的啊
dim b as byte
b=6
msgbox cstr(hex(b))
这个是处理一个字节的例子,多个字节,一个循环就搞定啦,不是这个还要我帮你写吧
-
本版专家分：7570
-
Function HextoString(byval src() as byte) as String
dim i as Integer
dim strRet as String
dim Temp as String
On Error Goto ErrHandler:
For i=LBound(src) to Ubound(src)
Temp=Hex(src(i))
if len(Temp)<2 then Temp="0" & Temp
strRet=strRet & Temp
Next
HextoString=strRet
Exit Function
ErrHandler:
HextoString=""
End Function![]()
-
本版专家分：0
-
bb = MSComm1.Input
a1 = Left(bb, 1)
MsgBox CStr(Hex(a1))
提示类型不匹配，a1 看到的是一个
-
本版专家分：8661
-
- 进士 2008年 总版技术专家分年内排行榜第九
-
-
红花
2009年1月 C++ Builder大版内专家分月排行榜第一
2008年12月 Delphi大版内专家分月排行榜第一
2008年11月 Delphi大版内专家分月排行榜第一
2008年10月 Delphi大版内专家分月排行榜第一
2008年6月 Delphi大版内专家分月排行榜第一
2008年1月 Delphi大版内专家分月排行榜第一
2005年7月 C++ Builder大版内专家分月排行榜第一
-
-
黄花
2009年1月 Delphi大版内专家分月排行榜第二
2008年12月 C++ Builder大版内专家分月排行榜第二
2008年7月 Delphi大版内专家分月排行榜第二
2005年7月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2009年5月 Delphi大版内专家分月排行榜第三
2009年4月 Delphi大版内专家分月排行榜第三
2009年3月 Delphi大版内专家分月排行榜第三
2009年2月 C++ Builder大版内专家分月排行榜第三
2009年2月 Delphi大版内专家分月排行榜第三
2008年11月 C++ Builder大版内专家分月排行榜第三
2008年8月 C++ Builder大版内专家分月排行榜第三
2008年7月 C++ Builder大版内专家分月排行榜第三
2008年6月 C++ Builder大版内专家分月排行榜第三
2008年5月 Delphi大版内专家分月排行榜第三
2005年8月 C++ Builder大版内专家分月排行榜第三
-
-
樓主參考一下本人在另一貼的回復,看有效果不
http://community.csdn.net/Expert/topic/4572/4572900.xml?temp=.9979364
-
本版专家分：3074
-
汗,这样接收的根本不是16进制啊.
a1=left(bb,1)
这样a1很明显是字符串,你应该用asc(a1)来获得ascii码才行,如下:
MsgBox CStr(Hex(asc(a1)))