您的位置：程序门 -> vb -> 控件

vb串口发送数据问题急在线等

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vb串口发送数据问题急在线等[已结贴,结贴人:fishappen]

发表于：2007-02-27 18:25:14 楼主

我用vb的那个串口控件向串口发数据
例如发 "a5 " 十六进制数，一个字节
用串口助手监视的结果是a和5的ascii码最后在网上找了一段程序
处理以后再发送用串口助手监视的结果又变成了0a 05
请问错在哪里呀急急急

private sub senddata（)
dim rdata as string
rdata=change_s（ "a5 ")
comm.output=rdata '串口控件发送
end sub
private function change_s（strs as string) as string

dim i as integer, t as integer
dim s as string, m as string, temp as string, lishi as string

m = strs

for i = 1 to len（m)
lishi = mid（m, i, 1)
t = asc（mid（m, i, 1))
if t > = 48 and t <= 57 then
s = chr（t - 48)
elseif t > = 65 and t <= 70 then
s = chr（t - 55)
elseif t > = 97 and t <= 102 then
s = chr（t - 87)
end if
temp = temp & s
next i
change_s = temp
end function

发表于：2007-02-27 18:30:451楼得分:20

private sub senddata（)
dim rdata（) as byte
rdata = change_s（ "a5b6c7d8 ")
comm.output = rdata '串口控件发送
end sub

private function change_s（strs as string) as variant
dim i as integer, result（) as byte
redim result（len（strs) \ 2 - 1)
for i = 0 to len（strs) \ 2 - 1
result（i) = val（ "&h " & mid（strs, i * 2 + 1, 2))
next i
change_s = result
end function

发表于：2007-02-27 18:42:332楼得分:0

不行啊。没反应啊。发的不对。

发表于：2007-02-27 18:46:043楼得分:0

如果这样发的话 a5b6c7d8 发出用串口助手监视的结果是3f 3f

发表于：2007-02-27 18:49:584楼得分:0

看仔细这一句: dim rdata（) as byte
和你原来的不一样的

发表于：2007-02-27 19:00:025楼得分:0

可是comm.output 只接受string类型的值呀。

发表于：2007-02-27 19:03:266楼得分:0

可是comm.output 只接受string类型的值呀。

是谁告诉你的?

发表于：2007-02-27 19:04:557楼得分:0

哦，解决了，谢谢！

发表于：2007-02-27 19:05:598楼得分:0

能告诉我原理吗？还有就是接收回来的数据怎么处理啊

发表于：2007-02-27 19:09:019楼得分:0

http://community.csdn.net/expert/topic/5365/5365521.xml?temp=.9950983
参考上述网址本人的答复。

发表于：2007-02-27 20:01:1110楼得分:0

谢谢 jadeluo（秀峰) 结帐！

下一篇：串口接收数据的问题急急急在线等啊
上一篇：自定义控件b，为何程序退出时还触发b的resize事件？

其他资讯

您的位置：程序门 -> vb -> 控件

vb串口发送数据问题 急 在线等

vb串口发送数据问题急在线等