单片机 > 单片机程序设计 > 详情

VB实现PC与单片机串口通信

发布时间:2020-08-24 发布时间:
|

VB进行串口的关键在于MScomm控件,下面小厮先就MScomm控件进行介绍。

每个MSComm控件对应于一个串行端口。使用多个串行口时,要使用多个MSComm控件。MSComm控件的主要属性及说明如下。

属性 说明
CommPort 设置并返回通信端口号
Settings 以字符串的形式设置并返回波特率、奇偶校验、数据位、停止位
PortOpen 设置并返回通信端口的状态。也可以打开和关闭端口
Input 从接收缓冲区返回字符
Output 向传输缓冲区写一个字符

 

 

“工程”——“部件”,选中Microsoft Comm control 6.0,“确定”,完成MSComm控件的添加。

有两种处理通信的方式:

  (1)事件驱动。利用OnComm事件捕获并处理通信事件,所有的通信事件和通信错误列表都包含在控件的CommEvent属性中。

  (2)查询方式。在程序关键功能之后,通过检查CommEvent的值来查询事件和错误。

  下面小厮就自己编写的一简单程序展开讲解。

1.添加MScomm控件,并在窗体装入时进行初始化

Private Sub Form_Load()

Timer1.Enabled = False

MSComm1.InBufferSize = 40 '初始化串口

MSComm1.InBufferCount = 0

MSComm1.InputMode = comInputModeBinary '二进制方式

MSComm1.CommPort = 1

MSComm1.Settings = "9600,N,8,1"

MSComm1.RThreshold = 1

MSComm1.InputLen =                                 '每次读入缓冲区所有字符

If MSComm1.PortOpen = False Then

MSComm1.PortOpen = True                          '打开串口

End If

End Sub

2.添加8个Check并分别命名为LED1——LED8 ,用于控制单片机的8个灯的状态

  添加一个命令按钮Command“应用”用于确认信息无误后发送。

Private Sub Command1_Click()

Dim A,B

A =Check1(0).Value + Check1(1).Value * 2 + Check1(2).Value * 4 + Check1(3).Value * 8

B = Check1(4).Value + Check1(5).Value * 2 + Check1(6).Value * 4 + Check1(7).Value * 8

If MSComm1.PortOpen = False Then

MSComm1.PortOpen = True          '打开串口

End If

MSComm1.OutBufferCount = 0

MSComm1.Output = Chr(CInt(B))              '向单片机发送数据

MSComm1.OutBufferCount = 0

MSComm1.Output = Chr(CInt(A))

End Sub

本程序用了二进制方式传送数据,但传送的数据不能大于128,否则就会出错,所以小厮通过两次发送数据来实现(先发高四位,后发低四位),单片机接收到数字之后再进行相应的处理,转化为8位码控制灯的状态。

3.添加Text,用于显示单片机返回的数据(在此只是为了演示接收)

Private Sub MSComm1_OnComm()

If MSComm1.CommEvent = comEvReceive Then

Text1.Text = AscB(MSComm1.Input)

             End If

MSComm1.InBufferCount = 0

End Sub

写好单片机程序后,连接串口,运行即可。




『本文转载自网络,版权归原作者所有,如有侵权请联系删除』

热门文章 更多
PIC单片机基础知识之二