VB 串口老是下标越界，我ReDim comBUF(0 To 256)有257个数的了

已解决

悬赏分：0 - 解决时间：2007-11-14 09:48:45

出来下标越界后点调试后
FileBUF(FileCOUNT) = comBUF(comI)
就指在这一行
把鼠标放到comBUF(comI)上显示comBUF(comI)=<下标越界>
把鼠标放到comI上显示comI=7
才7啊怎么就越界了啊有时是二十几等
反正都没越界他脚说越界了
问题补充：2个COM口波特率设置差一倍
我一个不断发送的设为9600
当接收的也设为9600时很正常
当接收的设为4800时CommEvent等于1004（帧错误。）但不提示下标越界
当接收的设为19200时CommEvent也是1004（帧错误。）不过这一开就立马出来下标越界了
此时comBUF(comI)的comI才等于7不知道怎么就越界了，但这肯定是帧错误引起的，就是不明白这与下标越界有什么关系。想不通

提问者：jsjjccc - 经理五级

最佳答案

未见到你的全部代码，无法确定出错原因。下面提供能正常运行的代码： Option Explicit Dim strData As String Private Sub Form_Load() Timer2.Interval = 10 MSComm1.Settings = "9600,n,8,1" MSComm1.CommPort = 1 MSComm1.RThreshold = 1 MSComm1.PortOpen = True End Sub Private Sub MsComm1_OnComm() Dim intInputLen As Integer Select Case Me.MSComm1.CommEvent Case comEvReceive '此处添加处理接收的代码 Me.MSComm1.InputMode = comInputModeBinary '二进制接收 intInputLen = Me.MSComm1.InBufferCount ReDim bytInput(intInputLen) bytInput = Me.MSComm1.Input jieshou End Select End Sub Public Function jieshou() '接收数据处理为16进制 Dim i As Integer For i = 0 To UBound(bytInput) If Len(Hex(bytInput(i))) = 1 Then strData = strData & "0" & Hex(bytInput(i)) Else strData = strData & Hex(bytInput(i)) End If Next Text1 = strData End Function 补充：帧错误解释以下帧，在最早的串口异步通信中定义一字节的二进制信号7位或8位加起始位和停止位组成一帧信号。出现帧错误可能由于单片机的时基发生变化，使得波特率发生变化，与接收端的设置波特率不一致，导致数据接收出错。这可由试验来看： 2个COM口波特率设置差一倍 MSComm1.Settings = "4800,n,8,1" MSComm2.Settings = "9600,n,8,1" 当 MSComm1.Output = "12345678" 发送8字节数据，而MSComm2接收16字节数据，大相径庭。其二原因，可能是上下位机的奇偶校验设置不同，也会造成数据出错。其三原因，串口连接线过长或受电磁干扰。

回答者：未见到你的全部代码，无法确定出错原因。下 -副总裁十一级 11-08 15:25:31

其他回答共 2 条

不是后面越界了吧。。是其他的问题导致的。。你代码帖出来的太少了。。没法判断呀。。。

回答者：不是后面越界了吧。。是其他的问题导致的。 - 试用期一级 11-07 11:00:24

你用的是固定大小的数组还是动态数组呢？如果是动态的就很可能出现这样的情况了注意判断端口传来的数据为&H0的情况

回答者：你用的是固定大小的数组还是动态数组呢？如 - 高级魔法师六级 11-07 11:07:12

问答

Q&A