Private Sub MSComm1_OnComm()
Dim ST As String, I As Integer
On Error GoTo acd
DoEvents
Select Case MSComm1.CommEvent
ST = MSComm1.Input
Debug.Print ST
text1.text=text1.text & st
End SelectExit Sub
acd:
End Sub
我是用上面的代码接收串口的信息的,可是不能换行呀,串口有发过来回车符的呀,不过在TEXT上显示为"口口"这个字样,用系统自带的超级终端就可以认出来.郁闷呀.
Dim ST As String, I As Integer
On Error GoTo acd
DoEvents
Select Case MSComm1.CommEvent
ST = MSComm1.Input
Debug.Print ST
text1.text=text1.text & st
End SelectExit Sub
acd:
End Sub
我是用上面的代码接收串口的信息的,可是不能换行呀,串口有发过来回车符的呀,不过在TEXT上显示为"口口"这个字样,用系统自带的超级终端就可以认出来.郁闷呀.
照楼主这样写的话,连出错信息和电平跳转信息全都给接收啦。
我想你应该是用文本格式接收的,那就只有自己用vbcrlf转换了