我用VB做了串口通信程序,接收的数据如果长为一则是握手信号或结束信号,长为21为数据信号,程序运行正常后,把里面的Msgbox语句删除,数据长度的检测就出错了,不知道为什么?代码如下: Private Sub MSComm1_OnComm() Dim Arr() As Byte Select Case MSComm1.CommEvent Case comEvReceive '...有接受事件发生 bufcount = MSComm1.InBufferCount MsgBox (bufcount) '此句拿掉后则后面的Ubound(Arr)值不正确 Arr = MSComm1.Input If ((UBound(Arr) <> 0) And (UBound(Arr) <> 21)) Then MsgBox ("wrong...") Exit Sub
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' 打开刚创建的文件。 ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' 读入所有字符到变量中 ......