VB中怎么让串口接收实时显示
书上说用这句判断串口是否接收到数据“MSComm1.InBufferCount>0”但是我用了,貌似没用,点一次按钮显示一条(或者几条)。怎么让接收到的数据实时显示呢?有...
书上说用这句判断串口是否接收到数据 “MSComm1.InBufferCount > 0 ”
但是我用了,貌似没用,点一次按钮显示一条(或者几条)。怎么让接收到的数据实时显示呢?有没有什么接收数据标志的属性呢???? 展开
但是我用了,貌似没用,点一次按钮显示一条(或者几条)。怎么让接收到的数据实时显示呢?有没有什么接收数据标志的属性呢???? 展开
2个回答
展开全部
书上估计是用的定时器接收,窗体上拖MSComm1,Timer1,Text1控件各一个,并在属性设置好MSComm1的波特率,串口号,起始位,停止位等信息
Dim str_dispaly As String '定义回显字符
Private Sub Form_Load()
Me.MSComm1.PortOpen = True
Me.Timer1.Interval = 100 '定时器时间间隔
Me.Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If MSComm1.InBufferCount > 0 Then
str_dispaly = str_dispaly & MSComm1.Input
Me.Text1.Text = str_display
End If
End Sub
Dim str_dispaly As String '定义回显字符
Private Sub Form_Load()
Me.MSComm1.PortOpen = True
Me.Timer1.Interval = 100 '定时器时间间隔
Me.Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If MSComm1.InBufferCount > 0 Then
str_dispaly = str_dispaly & MSComm1.Input
Me.Text1.Text = str_display
End If
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询