VB编程,做上位机?VB中怎么让串口接收实时显示?

2周前 (08-25 05:45)阅读1回复0
xxhh
xxhh
  • 管理员
  • 注册排名4
  • 经验值403035
  • 级别管理员
  • 主题80607
  • 回复0
楼主
  1. VB编程,做上位机?
  2. VB中怎么让串口接收实时展示?
  3. 在VB中如何实现多串口同时工作?开50*2个串口呢?

VB编程,做上位机?

VB提供了串口通信部件,你需要在工程—部件里找到Microsoft Comm Control 6.0并启用,在你的工程里加进MSComm组件,配置好串口号,波特率,校验位,字长,停止位。 数据发送:使用MSComm.Output X 指令经串口输出X。 数据接收:在MSComm的OnComm事件中,对MSComm.CommEvent进行推断,假如其值为2,阐明接收到了数据,用X = MSComm.Input 指令将接收到的数据赋值到X。 辅以数据处理指令,便可完成简单的串口通信。 示例: 【按下发送按钮来发送信息】 MSComm.Output "你好!" 【接收来自串口的数据】 Private Sub MSComm_OnComm() If MSComm.CommEvent = 2 Then '假如收到数据 X = MSComm. Input '接收数据到变量X Msgbox(X) '在消息框中展示X End If End Sub

VB中怎么让串口接收实时展示?

VB编程,做上位机?VB中怎么让串口接收实时显示?

书上估量是用的定时器接收,窗体上挈MSComm1,Timer1,Text1控件各一个,并在属性设置好MSComm1的波特率,串口号,起始位,停止位等信息Dim str_dispaly As String '定义回显字符Private Sub Form_Load() Me.MSComm1.PortOpen = True Me.Timer1.Interval = 100 '定时器时间间隔 Me.Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() If MSComm1.InBufferCount > 0 Then str_dispaly = str_dispaly & MSComm1.Input Me.Text1.Text = str_display End IfEnd Sub

在VB中如何实现多串口同时工作?开50*2个串口呢?

开多串口毫无问题。逐个儿Open就是了。计算机自带的串口数量很有限,你得插多串口卡。另外,假如同时工作的串口数量较多,数据处理时间造成的迟滞现象难以避免,需要设法解决。

0
回帖

VB编程,做上位机?VB中怎么让串口接收实时显示? 期待您的回复!

取消