| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 727 人关注过本帖, 1 人收藏
标题:有关串口的问题 求助啊 程序如下
只看楼主 加入收藏
weishanhu03
Rank: 1
等 级:新手上路
帖 子:75
专家分:0
注 册:2007-4-24
收藏(1)
 问题点数:0 回复次数:6 
有关串口的问题 求助啊 程序如下
Dim buffer As Variant
Dim shi(10000) As Double
Dim shu(10000) As Double
Dim num As Integer
Private Sub Form_Load()
  = 4
 MSComm1.Settings = "9600,n,8,1"
' MSComm1.InputMode = comInputModeBinary
 MSComm1.InputMode = 1
 MSComm1.RThreshold = 1
 MSComm1.InputLen = 2 '读取缓冲区的两个字符,
 MSComm1.InBufferCount = 0
MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
Select Case
   Case comEvReceive
   buffer = MSComm1.Input
For i = LBound(buffer) To UBound(buffer)
Text1.Text = buffer(i)
Next i
shi(num) = buffer(0) + buffer(1) * 256
shu(num) = shi(num) * 2.5 / 65536
Text2.Text = shu(num)
num = num + 1
Case comEvSend
End Select
End Sub
 比如下位机发一个温度值,十六进制发送,每次发一个字节,分两次发送,先发低字节,再发送高字节,如要发送0X384B 则先发送4B再发38。显然得到的值是正确的。可是为什么每到num=510时就下标越界呢?大家帮忙看看怎么回事啊?比如我要接受一万个数据,即num能达到10000,怎么处理啊?不知道下标越界到底怎么回事
搜索更多相关主题的帖子: 串口 
2007-11-26 10:53
weishanhu03
Rank: 1
等 级:新手上路
帖 子:75
专家分:0
注 册:2007-4-24
收藏
得分:0 
我要获得的是十进制数据,所以进行了转换,可是为什么总是显示下标越界呢

2007-11-26 11:00
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
不懂串口..

我的msn: myfend@
2007-11-26 11:38
那边有朵蘑菇云
Rank: 1
来 自:很……那啥的一个地方
等 级:新手上路
威 望:1
帖 子:390
专家分:0
注 册:2007-9-3
收藏
得分:0 
哎 不懂串口通信

身不残 志更不坚
2007-11-26 11:46
wyfandy
Rank: 1
来 自:深圳
等 级:新手上路
帖 子:376
专家分:0
注 册:2006-12-11
收藏
得分:0 
应该是以字节型(Byte)发送吧!

不论什么事,只要认准了一个目标,然后朝之不懈地努力,就一定实现。编程爱好者QQ群:21318556
2007-11-26 11:57
永夜的极光
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2721
专家分:1
注 册:2007-10-9
收藏
得分:0 
哪句提示下标越界,是哪个数组越界了?

从BFS(Breadth First Study)到DFS(Depth First Study)
2007-11-26 12:39
wcx654321
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2007-11-9
收藏
得分:0 
偶也不太懂

不用现金抵押,只要你够实力,www..cn项目投标系统为您提供完善的软件外包服务.
2007-11-26 13:35
快速回复:有关串口的问题 求助啊 程序如下
数据加载中...
 
   



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

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