VB中MSCOMM控件实现串行通信的问题

2008-04-19 04:11:51 209 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Win10下VB6.0开发之串口通信基础(一)控件属性篇前言：VB串口通信的方法一般有两种：一是通过Windows的通信API进行通信；另一种是通过VB的标准控件MSComm来实现。这篇文章要讲的是上位机如何通过VB的串口控件MSComm和下位机进行串口通信的过程。以下是给VB初学者推荐的两本书籍：《Visual+Basic+6.0基础教程》《Visual_Basic与RS-232串行通信控制》其中，《Visual+Basic+6.0基础教... 阅读详情

PC机与单片机串行通信。我遇到的问题：发数据少于8个，能正确接收，汉字少于4个，能正确接收；若发多了，只能收到8个数，汉字只能收4到个，而且接收区不能连续显示。用串口调试工具验证单片机中程序没错，我用的是VB企业版中的MSCOMM控件，程序代码如下：
Option Explicit
Private Sub Command1_Click()
'发送数据
Dim outdata As String

outdata = Text1.Text
MSComm1.Output = outdata
End Sub

Private Sub Command2_Click()
Unload Me '退出串口调试
End Sub

Private Sub Form_Load()
'初始化串口
With MSComm1
MSComm1.CommPort = 1 '选串口1
MSComm1.Settings = "4800,n,8,1" '设置波特率，数据位，停止位
MSComm1.PortOpen = True '串口打开
.InputMode = comInputModeText
.RThreshold = 1
End With
End Sub

Private Sub MSComm1_OnComm()

Dim indata As String

With MSComm1
Select Case MSComm1.CommEvent
Case comEvReceive '有接收事件发生，
indata = MSComm1.Input '
Text2.Text = indata '显示字符

End Select
End With
End Sub
command1发送按钮command2退出按钮text1发送区显示text2接受区显示

...全文