1.我看了一下你的程序.如果你用的是11.0592的晶振,那么你的初值不对.
2.Select Case MSComm1.CommEvent '接收单片机发过来的1字节数据
Case comEvReceive
MSComm1.RThreshold = 0'这一句不要用.
strBuff = MSComm1.Input
Text1.Text = Trim(Val(strBuff))
MSComm1.InBufferCount = 0 '清空接收缓冲区这一句也别要.然后再试下.
End Select
MSComm1.RThreshold = 1
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024