楼宇对讲系统proteus仿真+源代码

智能门锁 51单片机 射频 门禁系统 proteus C语言 楼宇对讲系统（proteus仿真+源代码）

#include 
#include 
#include 
#include 
#include 
#include 

#define uchar unsigned char
#define uint  unsigned int
sbit GCLK = P0^1;
sbit GDATE = P0^5;
sbit SCLK = P0^0;
sbit SDATE = P0^2;
sbit Answer = P0^3;
sbit Down = P0^4;
sbit Alarm = P0^6;
//unsigned char code tab[]={0x3F0x060x5b0x4F0x660x6D0x7D0x070x7F0X6F};//0-9	共阴极数码管
//unsigned char code tab[]={0xC00xF90xA40xB00x990x920x820xF80x800x90};//0-9	共阳极数码管
uchar code tab[]={0x7e0x300x6d0x790x330x5b0x5f0x700x7F0X7b};//0-9	共阴极数码管   protues与实物段位不符
uchar Jianpantab[16]={0};
uchar Count;
bit BJflag;
bit Keyflag;
bit Chushiflag;
bit Answerflag;
//uchar Answerdata;
uchar Key_Time;
uchar Chushitime;
uint  Answertime;
uchar temp;
uchar k;
uchar t;

/****************************************************/
/*                    1ms延时程序                    	*/
/****************************************************/
void delay（uchar n） //延时程序
{   
    uchar ij;
    for（i=n;i>0;i--）
       for（j=112;j>0;j--）;
}
/****************************************************/
/*             向十位74LS164发送数据               	*/
/****************************************************/
void Ssendbyte（uchar byte）
{ 
  uchar numd; 
  num=tab[byte];
  for（d=0;d<7;d++）
     {
        SCLK=0;
        SDATE=num&0x01;
        SCLK=1;
        num>>=1;
       }
 }
 /****************************************************/
/*             向个位74LS164发送数据               	*/
/****************************************************/
void Gsendbyte（uchar byte）
{ 
  uchar numd; 
  num=tab[byte];
  for（d=0;d<7;d++）
     {
        GCLK=0;
        GDATE=num&0x01;
        GCLK=1;
        num>>=1;
       }
}
/****************************************************/
/*                4*4键盘读取程序                 	*/
/****************************************************/
uchar GetKey （ ）//键盘扫描函数，用于识别哪一个键按下，并读取键值
{  
    uchar XYZ;
    P3 = 0xf0;    //先对P3置数 行扫描
	if（P3!=0xf0） //判断是否有键按下
    {
        delay（10）; //延时软件去干扰
        if（P3!=0xf0） //确认按键按下X = P3;
        {
            X=P3&0xf0; //保存行扫描时有键按下时状态
			P3=0x0f; //列扫描
			Y=P3&0x0f; //保存列扫描时有键按下时状态
			Z=X|Y; //取出键值
			switch （ Z ） //判断键值（那一个键按下）
			{				
				case 0x7e: k=1; break;
				case 0xbe: k=2; break;
				case 0xde: k=3; break;
				case 0xee: k=4; break;	
			   	case 0x7d: k=5; break;
				case 0xbd: k=6; break;
				case 0xdd: k=7; break;
				case 0xed: k=8; break; 
				case 0x7b: k=9; break;
				case 0xbb: k=10; break;
				case 0xdb: k=11; break;
				case 0xeb: k=12; break;  				 	
				case 0x77: k=13; break; 
				case 0xb7: k=14; break; 
				case 0xd7: k=15; break; 
				case 0xe7: k=16; break; 				 
			}
			Keyflag = 1;
		}
	}
}
/****************************************************/
/*             响应灯显示               	*/
/****************************************************/
void Answerled（）
{ 
		switch 

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

     文件     133758  2016-05-24 18:26  楼宇对讲系统\Last Loaded 总图.DBK

     文件    2268299  2016-05-21 17:25  楼宇对讲系统\图片.docx

     文件    3910191  2016-05-24 18:48  楼宇对讲系统\录像1.lxe

     文件     133758  2016-06-08 09:56  楼宇对讲系统\总图.DSN

     文件        768  2018-06-09 08:24  楼宇对讲系统\总图.PWI

     文件       8187  2016-05-24 15:48  楼宇对讲系统\楼宇对讲系统\call.c

     文件       8602  2016-05-23 16:50  楼宇对讲系统\楼宇对讲系统\key.c

     文件        455  2014-12-01 21:53  楼宇对讲系统\楼宇对讲系统\key.h

     文件      21657  2016-05-23 21:53  楼宇对讲系统\楼宇对讲系统\key.LST

     文件      17152  2016-05-23 21:53  楼宇对讲系统\楼宇对讲系统\key.OBJ

     文件       8584  2016-05-23 21:04  楼宇对讲系统\楼宇对讲系统\LCD1602.c

     文件       3709  2016-05-23 21:43  楼宇对讲系统\楼宇对讲系统\LCD1602.h

     文件      13797  2018-04-24 09:56  楼宇对讲系统\楼宇对讲系统\LCD1602.LST

     文件       8604  2018-04-24 09:56  楼宇对讲系统\楼宇对讲系统\LCD1602.OBJ

     文件       6376  2009-05-07 14:37  楼宇对讲系统\楼宇对讲系统\STARTUP.A51

     文件      14048  2018-04-24 09:56  楼宇对讲系统\楼宇对讲系统\STARTUP.LST

     文件        749  2018-04-24 09:56  楼宇对讲系统\楼宇对讲系统\STARTUP.OBJ

     文件      10023  2016-05-23 22:53  楼宇对讲系统\楼宇对讲系统\楼宇.c

     文件      32000  2016-05-23 20:48  楼宇对讲系统\楼宇对讲系统\楼宇.LST

     文件       6695  2016-05-25 22:13  楼宇对讲系统\楼宇对讲系统\楼宇对讲.c

     文件      20359  2018-04-24 09:56  楼宇对讲系统\楼宇对讲系统\楼宇对讲.LST

     文件      13986  2018-04-24 09:56  楼宇对讲系统\楼宇对讲系统\楼宇对讲.OBJ

     文件      19469  2018-04-24 09:56  楼宇对讲系统\楼宇对讲系统\楼宇对讲2

     文件        782  2018-05-25 14:24  楼宇对讲系统\楼宇对讲系统\楼宇对讲2.build_log.htm

     文件       5083  2018-04-24 09:56  楼宇对讲系统\楼宇对讲系统\楼宇对讲2.hex

     文件         81  2018-04-24 09:56  楼宇对讲系统\楼宇对讲系统\楼宇对讲2.lnp

     文件      28478  2018-04-24 09:56  楼宇对讲系统\楼宇对讲系统\楼宇对讲2.M51

     文件        219  2018-04-28 17:15  楼宇对讲系统\楼宇对讲系统\楼宇对讲2.plg

     文件      71717  2018-05-25 14:24  楼宇对讲系统\楼宇对讲系统\楼宇对讲2.uvgui.Administrator

     文件      72177  2018-04-24 09:52  楼宇对讲系统\楼宇对讲系统\楼宇对讲2.uvgui_Administrator.bak

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