proteus 仿真51单片机串口通讯

proteus 仿真51单片机串口通讯 仿真图 keil源程序

#include 

#define uint unsigned int 
#define uchar unsigned char

uchar table[14]={0x400x790x240x300x190x120x020x780x000x10
                 0x200x630x070x23};   //阴极7SEG

uchar send=0x00;

void rs232Ini（void）
{
  TMOD=0x20;
  TH1=0xfd;	//9600
  TL1=0xfd;
  PCON=0x00;
  SCON=0x50;//方式1
  EA=1;
  ES=1;
  TR1=1;
}

void ex_int（void）
{
   EA=1;
   IE0=0;
   EX0=1;
}

void delay（unsigned char n）
{
  uchar ijk;
  for（i=0;i<=n;i++）
  {
    for（j=0;j<100;j++）
      for（k=0;k<=250;k++）;
  }
}

void main（void）
{
  delay（1）;
  rs232Ini（）;
  ex_int（）;
  P3_3=0;//led
  while（1）
  {	
  }
}

void ex_button（） interrupt 0 using 2
{//	send=5;
    SBUF=send;
    while（!TI）;
	TI=0;
	P1_0=!P1_0;
	send++;
	IE0=0;
	if（send>10） send=0;
	delay（1）;
	P3_7=!P3_7;//Led
}

void serial_Read（void） interrupt 4 using 3
{
  uint iBuf;
  uchar cBuf;
  if（RI==1）
  {
    P2=1;
    iBuf=SBUF;
    cBuf=iBuf;
    P0=table[cBuf];
	RI=0;
  }
}

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

     文件       2991  2007-09-27 23:13  proteus 仿真51单片机串口通讯\main.LST

     文件      14048  2007-09-27 23:13  proteus 仿真51单片机串口通讯\STARTUP.LST

     文件       1021  2007-08-04 17:07  proteus 仿真51单片机串口通讯\main.c

    .......      1301  2007-08-04 17:10  proteus 仿真51单片机串口通讯\51RS232_Opt.Bak

     文件          0  2007-07-31 15:16  proteus 仿真51单片机串口通讯\51RS232_Uv2.Bak

     文件       7187  2007-09-27 23:13  proteus 仿真51单片机串口通讯\main.OBJ

     文件        749  2007-09-27 23:13  proteus 仿真51单片机串口通讯\STARTUP.OBJ

     文件       7349  2007-09-27 23:13  proteus 仿真51单片机串口通讯\51RS232

     文件       6376  2005-03-22 15:22  proteus 仿真51单片机串口通讯\STARTUP.A51

     文件     158297  2007-07-31 18:08  proteus 仿真51单片机串口通讯\Last Loaded 51rs232.DBK

     文件     158297  2007-08-03 15:47  proteus 仿真51单片机串口通讯\51rs232.DSN

     文件       1012  2007-09-27 23:13  proteus 仿真51单片机串口通讯\51RS232.hex

     文件         59  2007-09-27 23:13  proteus 仿真51单片机串口通讯\51RS232.lnp

     文件       8078  2007-09-27 23:13  proteus 仿真51单片机串口通讯\51RS232.M51

     文件       1299  2007-09-27 23:37  proteus 仿真51单片机串口通讯\51RS232.Opt

     文件        355  2007-09-27 23:37  proteus 仿真51单片机串口通讯\51RS232.plg

     文件       1273  2007-08-04 17:08  proteus 仿真51单片机串口通讯\51rs232.PWI

     文件       2162  2007-07-31 18:07  proteus 仿真51单片机串口通讯\51RS232.Uv2

     目录          0  2007-08-27 19:11  proteus 仿真51单片机串口通讯

----------- ---------  ---------- -----  ----

               371854                    19