访问电脑版页面

导航:老古开发网手机版51单片机51单片机串口

在VB下PC机与MCS-51单片机的串行通信

导读:
关键字:

简介 探讨了在PC机中用Visual Basic下的Microsoft Comm control控件与使用C51编程的MCS\ 51单片机之间的串行通信的方法,以及在VB中怎样处理二进制码,并给出了演示程序和通信协议。

关键词  Visual Basic  单片机  串行通信

  在开发微机控制及数据采集的系统中,经常需要通过RS232接口实现PC机与单片机之间的串行通信。在DOS时代,程序员须要具备相当的硬件知识,才有可能着手编写PC下的串行通信程序。而当今在VB下,利用现有的Microsoft Comm control控件,只需要编写少量的程序代码,就可以轻松、高效地完成任务。更何况Visual Basic是目前广受程序员喜爱的可视化编程语言,利用它还能够编写出Windows下漂亮的应用程序。

一、 Microsoft Comm control控件简介

  微软公司提供的Microsoft Comm control控件(简称MSComm)为编程者提供了简化的Windows下的串行通信编程,使编程者不必掌握诸多关于硬件方面的知识。它提供了两种处理串行通信的方法:一是事件驱动方法;二是查询法。

1. 事件驱动法

  这是一种很强的处理串口活动的方法。当串口接收到或发送完指定数量的数据时,或当状态发生改变时,MSComm控件都将触发OnComm事件,该事件也可以捕获通信中的错误。当应用程序捕获到这些事件后,可通过检查MSComm控件的CommEvent属性的值来获知所发生的事件或错误,从而执行相应的处理。这种方法具有程序响应及时,可靠性高等优点。

2. 查询法

  可以在每个重要的程序之后查询MSComm控件某些属性(如CommEvent属性和InBufferCount属性)的值来检测事件和通信错误。这对小的自含程序可能比较常用。

  MSComm控件有许多重要的属性,其中几个重要的属性如下:

  · CommPort: 设置或返回通信端口。为1时对应COM1;为2时对应COM2。
  · Settings: 设置或返回波特率、奇偶校验、数据位和停止位参数。
  · PortOpen: 打开或关闭通信口。
  · Input: 读取或删除缓冲区中的数据流。
  · Output: 将数据写入发送缓冲区。
  · InputLen: 设置和返回Input属性从接收缓冲区中读取的字节数。
  · InputMode: 设置和返回的类型。该属性为0时,Input属性所检取的数据是文本;为1时,Input属性所检取的数据是二进制数据。这个属性对与单片机的通信尤为重要。

二、 通信线路连接

  PC机的某个串行口通过电缆线与RS232收发器MAX232的232电平端口三线交叉连接,如图1所示。MAX232的逻辑电平端口与单片机的串行口相连。PC机RS232的9针连接器的4脚和6脚、7脚和8脚不用连接。



图1  PC机与单片机的通信接口电路框图

三、 编程实现

1. 实现功能

  因本程序为通信演示程序,所以功能较为简单。具体功能为利用键盘在PC机中输入一个6字节(12位的0~9,A~F)的二进制数,然后用鼠标点击通信命令按钮,PC机就将此二进制数发给单片机,单片机收到此数后再原样发回,PC机收到后显示在窗体上。试验者可通过肉眼比较发送和接收的两个数据,检验通信是否成功。

2. 通信协议

  波特率:19.2kb/s;无奇偶校验;8位数据位;1位停止位。

3. PC机VB程序

  (1)  在工程项目中添加一个窗体,取名为frmcomm,设置其Caption属性为通信。
  (2)  在窗体中添加两个大小一样的文本框,分别取名为txtSend和txtRcv。
  (3)  在窗体中添加一个命令按钮,取名为cmdcomm,设置其Caption属性为通信。
  (4)  在窗体中添加MSComm控件,取名为MSComm1。
  (5)  打开代码窗口,在cmdcomm控件的Click事件中加入以下程序代码:

Private Sub cmdcommClick()
  Dim Senddat(5) As Byte,Rcvdat() As Byte,
    dattemp As Variant,i As Integer
  cmdcomm.Enabled=False′使cmdcomm按钮失效
  For i=0 To 5′从发送文本框txtSend获取发送数据
    Senddat(i)="&H" & Mid(txtSend.Text,i * 2+1,2)
  Next i
  MSComm1.CommPort=1′设置端口号为1
  MSComm1.Settings="19200,N,8,1"′设置波特率等通 ′信协议
  MSComm1.InputLen=6′设置一次从串口读取6个字节
  MSComm1.PortOpen=True′打开串行口
  MSComm1.InputMode=comInputModeBinary′从串口 ′读取二进制数据
  MSComm1.Output=Senddat′发送数据
  Do Until MSComm1.InBufferCount >= 6′查询方式,等 ′待接收到6个字节
    DoEvents
  Loop
  dattemp=MSComm1.Input′从串口读取数据至变体变量
  Rcvdat=dattemp′数据送至接收二进制数组
    txtRcv.Text=""
  For i=0 To 5′接收数据送至接收文本框txtRcv显示
    txtRcv.Text=txtRcv.Text & Right("0" & Hex(Rcvdat(i)),2)
  Next i
  MSComm1.PortOpen=False′关闭串行口
  cmdcomm.Enabled=True′使能cmdcomm接钮
End Sub

  (6)  选择开始-运行。用PC机键盘在输入文本框中输入要发送的6字节二进制数据,然后用鼠标点击通信按钮即可。

4. 单片机C51程序

  MCS-51单片机晶振为11.0592MHz,串行口的工作方式设置为方式1,10位异步收发。采用查询方式接收和发送,程序清单如下:

#include
#include uchar unsigned char
main() {
  uchar temp,datmsg[6];
  TMOD=0x20; //设置波特率为19.2kb/s
  PCON=0x80;
  TH1=0xfd; TL1=0xfd;
  TR1=1; //启动定时器1
  SCON=0x50; //设置串行口为10位异步收发,且允许 //接收
  while(1) {for(temp=0;temp<6;temp++) //连续接收6个 //字节
    {while(RI==0); RI=0;
    datmsg[temp]=SBUF;
    }
    for(temp=0;temp<6;temp++)//连续发送6个 //字节
    {SBUF=datmsg[temp]; while(TI==0);TI=0;
    }
  }
}

结束语

  由于篇幅所限,本程序仅为演示参考程序,并无实际意义。但它展示了PC机和单片机串行通信的一般方法以及在VB中处理二进制数据的方法,使得单片机和PC机的应用能够更加紧密地结合在一起。读者可在此基础上加入一些握手信号和检错码,如奇偶校验、累加和校验及循环冗余校验(CRC)等等,便可成为自己的应用程序。

来源:单片机与嵌入式系统应用   作者:华东地质学院 朱旻  2006/2/12 0:00:00
栏目: [ 51单片机串口]

相关阅读

在VB下PC机与MCS-51单片机的串行通信

51单片机串口通讯编程的方式解析

AT89S51单片机串行口的内部结构及功能介绍

如何计算8051单片机的波特率

51单片机IO口模拟串口的实现

51单片机IO口模拟串口通讯的设计

51单片机的串口通信协议

C51单片机串口的使用方法解析

MCS-51单片机多机通信的工作原理解析

AT89S51单片机串行口的结构

如何设置51单片机的串行口来实现与PC机通信

51单片机三种模拟串口的设计方案解析

51单片机与PC机的串口通讯设计

AT89S51单片机串行口的内部结构解析

8051单片机实现高速串行通信的设计

8051单片机的UART0串口初始化

C51单片机串口通讯的硬件电路图

AT89S51单片机串行口的内部结构及工作原理介绍

51单片机实现串口接收和发送数据的两种方法解析

MCS-51单片机串行口IP核的实现