易截截图软件、单文件、免安装、纯绿色、仅160KB

VB MSComm的奇怪问题 - VB / 基础类

我用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

程序运行时,如果发送的是握手或结束信号,则bufcount的值为,Ubound(arr)的值为0,如果数据信号,则Bufcount的值为8,Ubound(arr)的值为21,但如果将Msgbox去掉,则Ubound(arr)的值为7,不知道为什么?请高人指点!
程序运行时,如果发送的是握手或结束信号,则bufcount的值为1,Ubound(arr)的值为0,如果数据信号,则Bufcount的值为 8,Ubound(arr)的值为21,但如果将Msgbox去掉,则Ubound(arr)的值为7,不知道为什么?请高人指点!

参阅:http://www.vbgood.com/thread-83700-1-1.html

谢谢楼上,但是目前我的程序不想再做大的修改,只是想把MsbBox去掉,或者找一个替代的语句.

引用
谢谢楼上,但是目前我的程序不想再做大的修改,只是想把MsbBox去掉,或者找一个替代的语句.

用标签替代所有的MsbBox.
{{


相关问答:

vb读取用word转换成的xml里的数据 - VB / 基础类

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' 读入所有字符到变量中 ......

vb - VB / 非技术类

怎么把已知的数据保存成xml文件,现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

中山的VB程序员进来看一下 - VB / 非技术类

刚建了一个群:中山VB编程(105787219)
有在中山及中山周边的程序员请加入.大家一起探讨问题.合作项目.
尽管俺不是中山的,也进来蹭分……

佛山的行吗,广州的行吗?

友情支持
回复内容太短了! 

帮顶 ......

vb中unicode码,如何转换成文本 - VB / 基础类

用VB编程读取短信,得到一大堆unicode编码,请教如何转换成文本
例如:读取短信后(华为900C或TC35i),串口得到如下数据:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号