Question

VBmscomm控件，直接运行程序收不到返回，单步执行就可以，请各位高手帮下忙。

rivate Sub Form_Load()
With Combo1
.Clear
For i = 1 To 6
.AddItem "COM" & CStr(i)
Next i
.ListIndex = 0
End With
End Sub

Private Sub Command1_Click()
Dim bytesend() As Byte
Dim ci As Integer
Dim vtmp
'On Error GoTo Err
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.CommPort = Val(Mid(Trim(Combo1.Text), 4))
MSComm1.PortOpen = True
If Trim(Text1.Text) <> "" Then
ReDim bytesend(15)
bytesend(0) = &H2
bytesend(1) = &H5
bytesend(2) = &H4D
bytesend(3) = &H0
bytesend(4) = &H0
bytesend(5) = &H0
bytesend(6) = &H8
bytesend(7) = &H60
bytesend(8) = &H5
bytesend(9) = &HFF
bytesend(10) = &HFF
bytesend(11) = &HFF
bytesend(12) = &H0
bytesend(13) = sData
bytesend(14) = &H0
bytesend(15) = &H3
For ci = 1 To 5
MSComm1.Output = bytesend()
'delay 500
vtmp = MSComm1.Input
If UBound(vtmp) = "" Then
Exit For
Else
'delay 500
End If
Next ci
If UBound(vtmp) > 0 Then
If Val(vtmp(0)) = &H2 And Val(vtmp(1)) = &H73 And Val(vtmp(2)) = &H4D And Val(vtmp(3)) = &H0 And Val(vtmp(4)) = &H0 And Val(vtmp(5)) = &H0 And Val(vtmp(6)) = &H3 And Val(vtmp(7)) = &H60 And Val(vtmp(8)) = &H5 And Val(vtmp(9)) = &H30 And Val(vtmp(10)) = &H68 And Val(vtmp(11)) = &H3 Then
MsgBox "设置机号成功", vbOKOnly + vbInformation, "提示"
Else
MsgBox "设置机号失败,请检查通讯!", vbOKOnly + vbCritical, "提示"
End If
Else
MsgBox "设置机号失败,请检查通讯!", vbOKOnly + vbCritical, "提示"
End If
End If
VBmscomm控件，直接运行程序收不到返回，单步执行就可以，请各位高手帮下忙。
End Sub
这一段复制错了是这样的
For ci = 1 To 5
MSComm1.Output = bytesend()
'delay 500
vtmp = MSComm1.Input
If UBound(vtmp) >0Then
Exit For
Else
'delay 500
End If
Next ci
If UBound(vtmp) > 0 Then
If Val(vtmp(0)) = &H2 And Val(vtmp(1)) = &H73 And Val(vtmp(2)) = &H4D And Val(vtmp(3)) = &H0 And Val(vtmp(4)) = &H0 And Val(vtmp(5)) = &H0 And Val(vtmp(6)) = &H3 And Val(vtmp(7)) = &H60 And Val(vtmp(8)) = &H5 And Val(vtmp(9)) = &H30 And Val(vtmp(10)) = &H68 And Val(vtmp(11)) = &H3 Then

Answer 1

当MsgBox消息窗口弹出没关闭时，一些异步通讯的消息会忽略掉所以收不到返回，建议把所有的MsgBox改成用别的方式提示，如在一个文本框输出