运用visual basic实现pc与89c51单片机之间的串行通信

1、运用Visual Basic 实现PC 与 89C51 单片机之间的串行通信沈飙夏海燕摘要在 Visual Basic 开发环境下，运用 VB 提供的通信控件，实现 PC 机与 89C51 单片机之间的串行通信。Visual Basic89C51 单片机串行通信A/DD/A 转换Serial Communication bet and 89C51 with Visual BasicAbstract:Serial communication bet M control box of Visual Basic isand 89C51 roduced.puter byKey Words:Visual

2、 Basic89C51Serial communicationA/DD/A1系统简介在等离子体物理受控核聚变物理实验装置控制系统中开发设计了以计算机控制为基础的各种信号予置系统，系统原理如图 1 所示。此相关如下：图 1系统原理图系统上位机由一台(PC586)微机，采用Visual Basic 编程，作出十分直观的人机界面，并通过串行口将所需的各种予置信号(数字信号)传给单片机系统，再由单片机系统产生实际的模拟信号经线性光电器送到现场。予置数值可以分别显示在PC 机测信号经过线性光电窗口和单片机系统的予置数字表头上。同时，现场实器，也可以实时显示在本系统的检测数字表头上和 PC机的界面上。如此

3、设计界面直观，而且利于对现场信号进行实时监测。因此，采用本系统，大大提高了现场信号予置精度，对实验操作来说人机界面良好，简单易懂。分硬件和两方面分别介绍该系统的情况。2硬件介绍从系统原理图上可见，本系统关键的硬件部分是单片机系统的设计，上位机PC 机则直接利用它的 RS232 串行口即可。系统硬件原理如图 2 所示。此相关如下：图 2系统硬件原理图本系统采用 CPU 为 89C51 的单片微机，89C51 本身带有 2K 的内器，可以在编程器上实现闪烁式的电擦写达几万次以上，比以往惯用的 8031CPU 外加EPROM 为的单片机系统在硬件上具有更加简单、方便等优点，而且完全兼容 MCS 51

4、 系列单片机的所有功能。该单片机系统的工作流程是这样的：89C51单片机利用自身具有的串行通信口，直接接收PC 机传送下来的串行数据，然后将所接收的各组数据通过并行口输出，经过数字光隔，送到数据锁存器 74LS373，最后将锁存的数据送到 D/A 转换器进行数模转换并通过运放将模拟信号输出，经过 A/D 转换器同时显示在相应的予置数字表上。现场返回的信号通过和数据锁存器变成单片机所需的并行数字信号送到单片机的数据单元中，再由串行口返送到 PC 机上，同时显示在 PC 机界面和本系统相对应的检测数字表上以便置和实际情况相对比。利用 89C51 输出口对不同数据锁存器 74LS373和 A/D、D

5、/A 的片选输出可以实现一台单片机同时对多路不同信号进行予置和检测。3结构分PC 机Visual Basic 编程和 89C51 单片机汇编语言编程两部分，现分别介绍如下。3.1PC 机部分PC 机采用 Visual Basic(简称 VB)编程。目前，VB 已成为 WINDOWS 系统开发的主要语言，以其高效、简单易学及功能强大的特点越来越为广大程序设计及用户所青睐。VB 支持面象的程序设计，具有结构化的事件驱动编程模式并可以使用无限扩增的控件，而且可以十分简便地作出良好的人机界面。在标准串口通信方面，VB 提供了具有强大功能的通信控件M，文件名为M.VBX。该控件可设置串行通信的数据发送和

6、接收，对串口状态及串口通信的信息格式和协议进行设置。这是一个标准的十位串口通信，包括 8 位标准m 事件，数据和数据的起始位和停止位。在发送或接收数据过程中触发通过编程CommEvent 属性了解通信事件的类型，分别进行各自的处理。每个通信控件对应一个串口，可以设计多个通信控件来多个通信口。VB 通信控件设计如下：Global comm_time Aseger/定义一些全局变量Global data(1000)AsegerGlobal Receive(1000)As Private Sub Form_Load()mPort=1eger/串口初始化/设置串口 1Comml.Settings=“9

7、600,N,8,1”/波特率：9600 奇校验，8 位数据，1 位停止位Comml.InputLen=0/接收缓冲区的所有字符/设置接收缓冲区为 256 字节/设置发送缓冲区为 256 字节Comml.InBufferSize=256 Comml.OutBufferSize=256Comml.PortOpen=True/打开串口 1Comml.SThreshold=1/发送缓冲区空触发发送事件Comml.RThreshold=1 End Sub/每一个字符到接收缓冲区都触发接收事件Public Sub send-data()/发送n 个数据Fori=0 To nComml.Outp Nexti

8、End Sub Public SubSelect Casehr(data(i)m()接收数据触发m()事件mEvent在mEvent 中接收数据Case comEvReceive Receive(comm_time)=Asc(Comml.Input)Receive(comm-time)数组中End Select End Sub/ 将 接 收 数 据m_time+1放 在3.2 单片机部分单片机 89C51 采用MCS51 系列的汇编语言编程。它有一个标准的串行口，有 4 种工作方式，其中方式 1 是标准的 10 位异步通信方式，10 位数据和 PC 机的标准串口相对应，由串行口控制寄存器SCO

9、N 设置状态，其字节地址为 98H。如下式所示：SM0 SM1 SM2 REN TB8 RB8 T1 R1本系统中 89C51 串口控制器SCON 设置为 50H，SM0、SM1 为 0、1，即为串行工作方式 1，REN 为 1，即允许串口接收。另外，还应使 89C51 的中断允许寄存器IE 的开放或所有中断位EA 为 1，开放或串行通道中断位ES 为1，即允许串行口中断。89C51 的并行口 P0 和 P2 分别作为八位数据的输入和输出口。P3 口的输出作为数据锁存器和 D/A、A/D 的所示。单片机程序简介：(1)主程序MOVSP，#07和允许。程序流程如图 4ACALLINIT/调串口初

10、始化子程序STRAT：CLREA清中断MOV MOV MOV SETBR0，#DATA1 R1，#DATA2存放接收数据首地址#DATA1存放发送数据首地址#DATA2R2，#N数据个数EA开中断ACALLD/A调延时并启动 D/A 转换子程序ACALLSEND启动 A/D 转换子程序并串口发送SJMPSTART返回(2)串口初始化程序INIT：MOVMOV MOV MOV SETB MOV MOV RETTH1，#FD TL1，#00设置波特率TMOD，#20定时器 2 为工作方式 2TCON，#40启动定时器ES允许串口中断SCON，#50 P2，#0F置串行口工作方式 1(3)中断服务程

11、序0023PUSH PUSH MOVACC保护堆栈PSW DPH，#00JBTI，TEMP1判断是否为发送，是则跳转WAIT：JNBMOV MOV CLR INCRI，WAIT判断是否为接收，否则循环A，SBUFR0，A98清接收中断R0将接收的数据送到数据地址内DJNZR1，TEMP1 SETB 00数据若送完则将标志置 1TEMP1：CLRPOPPSWPOPACC RETI99清发送中断(4)延时及调 D/A 转换子程序D/A：INCDPTR延时MOV CJNEHA，#FF，D/AJNB00，D/A数据未送完，返回CLR00送完则将送完标志清零ACALLOUT RETOLR MOV MOV SETB MOVAA，R0 P2，A 90 R3，#00将接收的串行口数据送到P2 口数据锁存器WAIT1：DJNZR3，WAIT1延时数据锁存器CLR RET90解除(5)A/D 转换及串口发送子程序SEND：MOVDPTR，#ADRESSIN0 通道地址首址MOVR7，#08H从IN0-IN7 依次的通道个数LOOP1：MOVXDPTR，A启动 A/D 转换MOVR6 DELAY：NOPNOP NOP#0AH延时 100sDJNZR6，DELAYMOVX A，DPTR将转换结果送到指定地址 R1 MOVR1 AMOVXA，R1MOV