Proteus下PC机和51单片机间的RS485双向数据通讯仿真

Proteus平台下，PC机和51单片机之间的RS485双向数据通讯仿真。PC机上使用VB编写的串口程序，Proteus仿真状态下，直接运行VB程序后，点击发送按钮即可发送一组数据流到单片机，单片机收到后会返回收到的数据。PC发送的数据流包括起始数据、地址数据以及真实数据。真实的数据被PC接收到后会显示在接受框内。需要用十六进制发送，VB程序中的CTS表示9针串口中的CTS，在此用来控制RS485芯片的收发状态。

#include //包含头文件，一般情况不需要改动，头文件包含特殊功能寄存器的定义

#define uchar unsigned char
#define uint  unsigned int
#define LED   P0
sbit WR2 = P3^2;    // 控制MAX487发送接收方式


/*------------------------------------------------
                   函数声明
------------------------------------------------*/ 
void delay（uint i）; //演示程序
void receive（void）;  //接收数据程序






/*------------------------------------------------
               串口中断服务程序
------------------------------------------------*/
void UART（void） interrupt 4 using 1
{
 if（RI）
 {
  LED=SBUF;
  RI=0;
 }
}




/*------------------------------------------------
                   主函数
------------------------------------------------*/
void main（）
{
 TMOD=0x20;      //定时器1，方式2
 TL1=0xfd;
 TH1=0xfd;		 //设置波特率9600
 SCON=0xd8;
 PCON=0x00;		 //串行口方式3，允许接收位
 TR1=1;			 //打开定时器1
 ES=1;			 //开串口中断
 EA=1;           //开总中断

 WR2=0;          //MAX487为接收方式

 while（1）;

}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件     195082  2013-07-04 15:31  PC到单片机双向通讯（VB编上位机）\Last Loaded 串口通信.DBK

     文件        641  2013-03-29 23:34  PC到单片机双向通讯（VB编上位机）\VB串口通信2013.04.01\MSSCCPRJ.SCC

     文件         76  2013-07-05 18:21  PC到单片机双向通讯（VB编上位机）\VB串口通信2013.04.01\UART.vbg

     文件         52  2013-03-29 23:31  PC到单片机双向通讯（VB编上位机）\VB串口通信2013.04.01\UART.vbw

     文件          0  2013-03-29 23:24  PC到单片机双向通讯（VB编上位机）\VB串口通信2013.04.01\UART事件法.vbw

     文件      10514  2013-07-05 17:12  PC到单片机双向通讯（VB编上位机）\VB串口通信2013.04.01\UART（事件法）.frm

     文件        879  2013-07-04 16:45  PC到单片机双向通讯（VB编上位机）\VB串口通信2013.04.01\UART（事件法）.vbp

     文件         56  2013-07-05 18:22  PC到单片机双向通讯（VB编上位机）\VB串口通信2013.04.01\UART（事件法）.vbw

     文件       3503  2013-07-05 09:23  PC到单片机双向通讯（VB编上位机）\VB串口通信2013.04.01\UART（查询法）.frm

     文件        408  2013-03-29 23:17  PC到单片机双向通讯（VB编上位机）\VB串口通信2013.04.01\UART（查询法）.log

     文件        734  2013-04-01 13:14  PC到单片机双向通讯（VB编上位机）\VB串口通信2013.04.01\UART（查询法）.vbp

     文件         52  2013-07-05 18:22  PC到单片机双向通讯（VB编上位机）\VB串口通信2013.04.01\UART（查询法）.vbw

     文件      28672  2013-07-05 18:21  PC到单片机双向通讯（VB编上位机）\VB串口通信2013.04.01\串口调试助手.exe

     文件     195074  2013-07-05 17:13  PC到单片机双向通讯（VB编上位机）\串口通信.DSN

     文件       2954  2013-07-05 18:22  PC到单片机双向通讯（VB编上位机）\串口通信.PWI

     文件         19  2011-05-20 00:11  PC到单片机双向通讯（VB编上位机）\串口通信receive（中断方式）\ExtDll.iex

     文件       6376  2010-09-03 17:12  PC到单片机双向通讯（VB编上位机）\串口通信receive（中断方式）\STARTUP.A51

     文件      14062  2013-06-26 14:15  PC到单片机双向通讯（VB编上位机）\串口通信receive（中断方式）\STARTUP.LST

     文件        749  2013-06-26 14:15  PC到单片机双向通讯（VB编上位机）\串口通信receive（中断方式）\STARTUP.OBJ

     文件       2758  2013-06-26 14:15  PC到单片机双向通讯（VB编上位机）\串口通信receive（中断方式）\UART

     文件       1076  2013-06-26 14:15  PC到单片机双向通讯（VB编上位机）\串口通信receive（中断方式）\UART.c

     文件        195  2013-06-26 14:16  PC到单片机双向通讯（VB编上位机）\串口通信receive（中断方式）\UART.hex

     文件         41  2013-06-26 14:15  PC到单片机双向通讯（VB编上位机）\串口通信receive（中断方式）\UART.lnp

     文件       2762  2013-06-26 14:15  PC到单片机双向通讯（VB编上位机）\串口通信receive（中断方式）\UART.LST

     文件       4866  2013-06-26 14:15  PC到单片机双向通讯（VB编上位机）\串口通信receive（中断方式）\UART.M51

     文件       2259  2013-06-26 14:15  PC到单片机双向通讯（VB编上位机）\串口通信receive（中断方式）\UART.OBJ

     文件        235  2013-06-26 16:36  PC到单片机双向通讯（VB编上位机）\串口通信receive（中断方式）\UART.plg

     文件     143665  2013-06-26 16:36  PC到单片机双向通讯（VB编上位机）\串口通信receive（中断方式）\UART.uvopt

     文件      13408  2011-05-20 00:18  PC到单片机双向通讯（VB编上位机）\串口通信receive（中断方式）\UART.uvproj

     文件     143658  2013-06-26 16:31  PC到单片机双向通讯（VB编上位机）\串口通信receive（中断方式）\UART_uvopt.bak

............此处省略58个文件信息