76-基于51单片机家庭红外人体检测震动报警系统（程序+原理图+元件清单全套资料）...

news2024/12/26 5:39:18

资料编号：076

功能介绍：采用51单片机作为主控CPU，采用红外接触传感器采集当前是否有人，采用震动传感器采集当前是否有震动，起到家庭防盗效果，采用按键设置当前布防/撤防状态，布防状态下：红外接触传感器检测到有人接触或者震动传感器检测到震动，蜂鸣器报警，撤防状态下，蜂鸣器停止报警，LCD1602显示相关状态，程序有中文注释，新手容易看懂，全套实物资料齐全：

下面是实物演示视频和相关实物图片

下面是程序部分展示（程序有中文注释，新手容易看懂）

/********************************************************************
* 名称 : Convert(uchar In_Date)
* 功能 : 因为电路设计时，P0.0--P0.7接法刚好了资料中的相反，所以设计该函数。
* 输入 : 1602资料上的值
* 输出 : 送到1602的值
***********************************************************************/
uchar Convert(uchar In_Date)
{
    
    uchar i, Out_Date = 0, temp = 0;
    for(i=0; i<8; i++)
    {
        temp = (In_Date >> i) & 0x01;
        Out_Date |= (temp << (7 - i));
    }
  
    return Out_Date;
  
//    return In_Date;


}
/********************************************************************
* 名称 : enable(uchar del)
* 功能 : 1602命令函数
* 输入 : 输入的命令值
* 输出 : 无
***********************************************************************/


void enable(uchar del)
{  
  RS = 0;
  RW = 0;
  LCD_DATA = del;
  E = 1;
  delay();
  E = 0;
  delay();
}


/********************************************************************
* 名称 : write(uchar del)
* 功能 : 1602写数据函数
* 输入 : 需要写入1602的数据
* 输出 : 无
***********************************************************************/


void write(uchar del)
{  
  RS = 1;
  RW = 0;
  LCD_DATA = del;
  E = 1;
  delay();
  E = 0;
  delay();
}


/********************************************************************
* 名称 : L1602_init()
* 功能 : 1602初始化，请参考1602的资料
* 输入 : 无
* 输出 : 无
***********************************************************************/
void lcd1602_init(void)
{
  enable(0x38);
  enable(0x0c);
  enable(0x06);
  enable(0x01);
  enable(0xd0);
}


/********************************************************************
* 名称 : L1602_char(uchar hang,uchar lie,char sign)
* 功能 : 改变液晶中某位的值，如果要让第一行，第五个字符显示"b" ，调用该函数如下
     L1602_char(1,5,'b')
* 输入 : 行，列，需要输入1602的数据
* 输出 : 无
***********************************************************************/
void L1602_char(uchar hang,uchar lie,char sign)
{
  uchar a;
  if(hang == 1) a = 0x80;
  if(hang == 2) a = 0xc0;
  a = a + lie - 1;
  enable(a);
  write(sign);
}


/********************************************************************
* 名称 : L1602_string(uchar hang,uchar lie,uchar *p)
* 功能 : 改变液晶中某位的值，如果要让第一行，第五个字符开始显示"ab cd ef" ，调用该函数如下
      L1602_string(1,5,"ab cd ef;")
* 输入 : 行，列，需要输入1602的数据
* 输出 : 无
***********************************************************************/
void L1602_string(uchar hang,uchar lie,uchar *p)
{
  uchar a;
  if(hang == 1) a = 0x80;
  if(hang == 2) a = 0xc0;
  a = a + lie - 1;
  enable(a);
  while(1)
  {
    if(*p == '\0') break;
    write(*p);
    p++;
  }
}

程序打开方法：采用keil5打开，公众号有软件安装包