打印

帮个忙 谢谢

[复制链接]
1844|9
手机看帖
扫描二维码
随时随地手机跟帖
跳转到指定楼层
楼主
zhlok520|  楼主 | 2010-9-11 09:05 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 zhlok520 于 2010-9-11 17:59 编辑

Dim data as Variant

MSComm1.Inputmode=1   '二进制模式
data=Chr("&H" & F) & Chr("&H" & F)
MSComm1.Output=data

Dim inbyte() as Byte
inbyte=MSComm1.Input

Dim i as Integer, uffer as Variant
For i =LBound(inbyte) To UBound(inbyte)
      buffer=buffer+Hex(inbyte(i))
Next i

程序如上,请教问题如下:
1:LBound(inbyte)=? UBound(inbyte)=?
2:  inbyte(i)=?

本人不理解, FF是16进制,二进制为:11111111
那么LBound=1, UBound=8?
还是一个Byte=8bits,LBound=1, UBound=2,
inbyte(1)=11110000,inbyte(2)=11110000 //前后F补0成8位。
Hex(inbyte(1))=F0,Hex(inbyte(2))=F0,
Buffer=F0F0, 这跟我的执行结果FF,也不一样啊。

又或者,LBound=1, UBound=1
inbyte(1)=11111111,Hex(inbyte)=FF,这样就和执行结果一样了。

请高手指点,小弟是新手,请不要见笑啊 呵呵

相关帖子

沙发
zhlok520|  楼主 | 2010-9-11 10:19 | 只看该作者
麻烦各位帮个忙啊,拜托拜托啊!!!

使用特权

评论回复
板凳
zhlok520|  楼主 | 2010-9-11 11:18 | 只看该作者
:dizzy:

使用特权

评论回复
地板
zhlok520|  楼主 | 2010-9-11 12:24 | 只看该作者
:sleepy:

使用特权

评论回复
5
zhlok520|  楼主 | 2010-9-11 14:47 | 只看该作者
:sleepy:

使用特权

评论回复
6
dengm| | 2010-9-11 15:36 | 只看该作者
Dim data as Variant

MSComm1.Inputmode=1   '二进制模式
Data = chr$(&hf) & chr$(&hf)    ' ----   data=Chr("&H" & F) & Chr("&H" & F)
MSComm1.Output=data

Dim inbyte() as Byte
inbyte=MSComm1.Input

Dim i as Integer, Buffer as Variant
For i =LBound(inbyte) To UBound(inbyte)
      buffer=buffer &  right$( "  " & Hex(inbyte(i)), 2)
Next i

程序如上,请教问题如下:
1:LBound(inbyte)=? UBound(inbyte)=?
  LBound(inbyte)=0
  UBound(inbyte)=<接到的bytes数 - 1 >

2:  inbyte(i)=?
     inbyte(i)=<接到的第i+1 byte>

使用特权

评论回复
7
zhlok520|  楼主 | 2010-9-11 16:12 | 只看该作者
终于有人回答我了,非常感谢啊,不过没看懂你写的:L
dengm,我程序执行过了,也没问题。我是发送的16进制FF,收回来的也是FF,但是我不明白,程序里面用Byte数组“具体”是怎么收数据的!
UBound(inbyte)=<接到的bytes数 - 1 > =====>接到的bytes数?
inbyte(i)=<接到的第i+1 byte> =====>inbyte(0)=? inbyte(1)=?.......inbyte(i)=?

对不起啊,我很笨啊,不给我讲明白点,我看不懂啊 sorry sorry

使用特权

评论回复
8
zhlok520|  楼主 | 2010-9-11 16:15 | 只看该作者
我晕啊,我以前都不怎么登陆这个的,都不知道怎么给分啊,有谁知道告诉一下啊 :funk:

使用特权

评论回复
9
zhlok520|  楼主 | 2010-9-11 17:04 | 只看该作者
:sleepy:

使用特权

评论回复
10
zhlok520|  楼主 | 2010-9-11 17:58 | 只看该作者
请求帮忙啊!

使用特权

评论回复
发新帖 我要提问
您需要登录后才可以回帖 登录 | 注册

本版积分规则

0

主题

123

帖子

1

粉丝