MSComm1.InputMode = comInputModeText
MSComm1.RThreshold = 8
MSComm1.InputLen = 6
If MSComm1.InBufferCount >= 8 Then
Do Until MSComm1.InBufferCount < 8
MSComm1.InputMode = comInputModeText
MSComm1.InputLen = 6
weight = MSComm1.Input
MSComm1.InputMode = comInputModeBinary
MSComm1.InputLen = 1
Status = MSComm1.Input(0)
Flag = MSComm1.Input(0)
Loop
End if
大家帮忙分析一下Status应该和Flag相等?如果不相等?帮忙分析一下原因!多谢!
MSComm1.RThreshold = 8
MSComm1.InputLen = 6
If MSComm1.InBufferCount >= 8 Then
Do Until MSComm1.InBufferCount < 8
MSComm1.InputMode = comInputModeText
MSComm1.InputLen = 6
weight = MSComm1.Input
MSComm1.InputMode = comInputModeBinary
MSComm1.InputLen = 1
Status = MSComm1.Input(0)
Flag = MSComm1.Input(0)
Loop
End if
大家帮忙分析一下Status应该和Flag相等?如果不相等?帮忙分析一下原因!多谢!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货