找回密碼
 立即注冊(cè)

QQ登錄

只需一步，快速開(kāi)始

帖子
查看: 5878|回復(fù): 6
收起左側(cè)

紅外報(bào)警器單片機(jī)程序與電路圖

[復(fù)制鏈接]
ID:234347 發(fā)表于 2017-9-23 23:19 | 顯示全部樓層 |閱讀模式
電路原理圖如下：

總電路圖

總電路圖
紅外報(bào)警器源程序如下：
  1. #include <reg52.h>
  2. #define uchar unsigned char  
  3. #define uint  unsigned int
  4. uchar Mode=1,t;   
  5. sbit s1=P1^2;
  6. sbit s2=P1^3;
  7. sbit s3=P1^4;   
  8. bit alarm=1,kai=1;
  9. //LED  
  10. sbit LR=P0^0;
  11. sbit LY=P0^1;
  12. sbit LG=P0^2;
  13. //蜂鳴器  
  14. sbit Feng=P2^7;
  15. //人體熱釋電傳感器
  16. sbit HR=P2^4;   
  17. void delay(uint x) //毫秒級(jí)延時(shí)函數(shù)
  18. {   
  19.   uint i,j;   
  20.   for(i=x;i>0;i--)      
  21.        for(j=110;j>0;j--);
  22. }   
  23. void di()
  24. {   
  25.   Feng=0;   
  26.   delay(100);  
  27.   Feng=1;
  28. }   
  29. void main()
  30. {   
  31.     LR=1;  
  32.     LG=1;  
  33.     LY=1;  
  34.     while(1)  
  35.     {   
  36.         if(s1==0)    //緊急手動(dòng)報(bào)警   
  37.         {      
  38.               delay(5);      
  39.               if(s1==0)    //緊急手動(dòng)報(bào)警     
  40.               {      
  41.                 delay(5);      
  42.                 while(!s1);      
  43.                 di();      
  44.                 //開(kāi)啟指示燈   報(bào)警紅燈      
  45.                 kai=0;      
  46.                 LR=0;      
  47.                 LY=1;      
  48.                 LG=1;      
  49.                 alarm=0;      
  50.                 delay(200);     
  51.               }      
  52.          }   
  53.        if(s3==0)   //取消報(bào)警
  54.        {               
  55.             delay(5);      
  56.             if(s3==0)         
  57.             {      
  58.                delay(5);      
  59.                while(!s3);      
  60.                di();     
  61.                //關(guān)閉模式     
  62.                // Mode=1;      
  63.                   LR=1;      
  64.                   alarm=1;      
  65.                   delay(200);     
  66.              }   
  67.         }   
  68.         if(s2==0)   //布防   
  69.         {      
  70.                delay(5);      
  71.                if(s2==0)         
  72.                {      
  73.                  delay(5);      
  74.                  while(!s2);      
  75.                  di();      

  77.                   //開(kāi)啟指示燈    布防綠燈      
  78.                   LR=1;      
  79.                   LY=0;      
  80.                   LG=1;      
  81.                   Mode=0;      
  82.                   kai=1;     
  83.                }   
  84.         }        
  85.     if(alarm==0)   
  86.     {     
  87.          //報(bào)警   
  88.          di();     
  89.          delay(100);     
  90.          di();
  91.          delay(100);   
  92.     }     
  93.       //判斷紅外狀態(tài)   
  94.    if(HR==0&&Mode==0)   
  95.    {     
  96.           LR=0;   //報(bào)警紅燈   
  97.           alarm=0;   
  98.     }   
  99.    else   
  100.    {     
  101.          if(kai)   
  102.          {      
  103.              alarm=1;     
  104.              LR=1;   
  105.           }   
  106.        }   
  107.        if(HR==0)   
  108.        {     
  109.           LG=0;     
  110.           delay(200);   
  111.         }   
  112.         else   
  113.         {     
  114.             LG=1;   
  115.          }      
  116.      }  
  117. }
復(fù)制代碼


評(píng)分

參與人數(shù) 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎(jiǎng)勵(lì)！

查看全部評(píng)分

回復(fù)

使用道具 舉報(bào)

ID:364407 發(fā)表于 2018-7-12 19:19 | 顯示全部樓層
關(guān)鍵的傳感器呢
回復(fù)

使用道具 舉報(bào)

ID:99341 發(fā)表于 2018-7-29 21:33 來(lái)自觸屏版 | 顯示全部樓層
如果樓主發(fā)個(gè)全套資料就好了。
回復(fù)

使用道具 舉報(bào)

ID:412495 發(fā)表于 2018-10-19 22:15 | 顯示全部樓層
研究研究
回復(fù)

使用道具 舉報(bào)

ID:410791 發(fā)表于 2018-10-20 01:07 | 顯示全部樓層
沒(méi)有紅外部分呀
回復(fù)

使用道具 舉報(bào)

ID:726183 發(fā)表于 2020-4-17 15:01 來(lái)自觸屏版 | 顯示全部樓層
缺少東西
回復(fù)

使用道具 舉報(bào)

ID:1034506 發(fā)表于 2022-12-25 22:03 | 顯示全部樓層
aa1996 發(fā)表于 2018-10-20 01:07
沒(méi)有紅外部分呀

這是仿真所以用按鍵代替檢測(cè)人
回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表