• 基于51单片机的人体红外震动检测家庭防盗报警器


    资料编号:129  下面是相关功能视频演示:

    129-基于51单片机的人体红外震动检测家庭防盗报警器(源码+仿真+全套资料)

    功能介绍:

    采用51单片机作为主控,LCD1602显示当前的状态,采用按键进入布防状态,通过第二个按键来模拟红外触发,采用电位器来模拟震动的强度,当红外检测到有人闯入或者震动传感器超过100,则判定有人进入,这时候蜂鸣器产生报警。

     下面是该程序部分展示:

    unsigned int shunflag=0; niflag = 0;
    /*******************************************************************************
    * 函 数 名         : delay
    * 函数功能           : 延时函数,i=1时,大约延时10us
    *******************************************************************************/
    void delay1(int i)
    {
        while(i--);    
    }

    void Delay(uint j)
        {      uchar i;
            for(;j>0;j--)
          {     
            for(i=0;i<27;i++);

          }
        }

    //主函数
    void main()
    {
      TMOD = 0x02;
        TH0  = 0x14;
        TL0  = 0x00;
        IE   = 0x82;
        TR0  = 1; 

      LCD_init(); 
      ADDA=0;ADDB=0;
      LCD_disp_str(0,1,"Zhendong:      ");    
        while(1)
        {
         ADDA=0;ADDB=0;            
           ADC0809_read();                               //读电压AD值    
           //v = (int)((ad_value/255.0)*5*100);  //根据AD值计算电压             
        
           LCD_disp_char(10,1, '0'+ad_value%1000/100);                   
           LCD_disp_char(11,1, '0'+ad_value%100/10); 
            LCD_disp_char(12,1, '0'+ad_value%10); 

             if(bufang==0)
                
             {
                     LCD_disp_str(0,2,"Bufang: Open ");    
                     if((hongwai==0)||(ad_value>100))
                         {
                    beep=0;
                }
                            else beep=1;
             }
          
             else
             {
                      LCD_disp_str(0,2,"Bufang: Close");    
                     beep=1;
         }
        
            
        }
    }

    下面是该资料的分享下载链接:

    https://pan.baidu.com/s/1tvB2qT76lwClgwsUIOSQ0A?pwd=tit0 

  • 相关阅读:
    DocTemplateTool - 可根据模板生成word或pdf文件的工具
    Cannot deserialize value of type `java.util.Date` from String
    通过注册表自动抓dump文件
    day3 数1 函数
    Git基础使用
    R语言 山峦图
    Django + Nginx https部署实战(第一辑)
    Excel周报制作
    10kb的照片尺寸怎么弄?几个步骤轻松搞定!
    Excel Unix时间戳和日期时间格式的相互转换
  • 原文地址:https://blog.csdn.net/m0_74295839/article/details/127836812