找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 2495|回復(fù): 0
打印 上一主題 下一主題
收起左側(cè)

單片機(jī)紅外熱釋電傳感器報(bào)警程序與Proteus仿真圖

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）


單片機(jī)源程序如下:
  1. #include <reg52.h>           

  3. #define uchar unsigned char  
  4. #define uint  unsigned int   

  6. #define key_io P1

  8. uchar key_can;  

  10. sbit beep=P2^3;         
  11. sbit red=P2^2;      
  12. sbit green=P2^1;        
  13. sbit yellow=P2^0;        
  14. sbit hw=P1^3;      

  16. bit flag_300ms=0;
  17.    
  18. void key()
  19. {
  20.         static uchar key_new=0,key_old=0,key_value=0;
  21.         if(key_new == 0)      
  22.         {
  23.                 if((key_io&0x07)==0x07)
  24.                 key_value ++;
  25.                 else
  26.                 key_value=0;
  27.                 if(key_value>=5)   
  28.                 {
  29.                         key_value=0;
  30.                         key_new=1;   
  31.                 }
  32.         }
  33.         else
  34.         {
  35.                 if((key_io&0x07)!=0x07)   
  36.                 key_value ++;
  37.                 else
  38.                 key_value=0;
  39.                 if(key_value>=5)   
  40.                 {
  41.                         key_value=0;
  42.                         key_new=0;      
  43.                 }
  44.         }
  45.         key_can=20;
  46.         if((key_new==0)&&(key_old==1))
  47.         {
  48.                 switch(key_io&0x07)
  49.                 {
  50.                         case 0x06: key_can=1; break;      
  51.                         case 0x05: key_can=2; break;     
  52.                         case 0x03: key_can=3; break;      
  53.                 }
  54.         }           
  55.         key_old = key_new;   

  57. }

  59. void time_init()     
  60. {
  61.         EA=1;         
  62.         TMOD=0X01;      
  63.         ET0=1;         
  64.         TR0=1;         
  65. }
  66. uchar flag_alarm ;   
  67. uchar flag_bufang ;   
  68. uchar flag_bufang_en ;
  69. uint  flag_value;      
  70.      
  71. void hongwai_dis()
  72. {
  73.         if(flag_alarm==1)      
  74.         {
  75.                 red=~red;         
  76.                 beep=~beep;      
  77.         }   
  78.         if(flag_bufang_en==1)
  79.         {
  80.                 green=~green;      
  81.         }
  82.         if(flag_bufang==1)
  83.         {
  84.                 green=0;      
  85.                 if(hw==1)         
  86.                 {
  87.                         flag_alarm=1;   
  88.                 }
  89.         }
  90. }
  91.      
  92. void key_with()
  93. {
  94.         if(key_can==1)   
  95.         {
  96.                 flag_alarm=1;     
  97.         }
  98.         if(key_can==2)   
  99.         {
  100.                 flag_bufang_en=1;      
  101.         }
  102.         if(key_can==3)   
  103.         {
  104.                 flag_alarm=0;
  105.                 flag_bufang=0;
  106.                 flag_bufang_en=0;   
  107.                 flag_value=0;   
  108.                 P2=0xff;     
  109.         }           
  110. }
  111.    
  112. void main()
  113. {
  114.         time_init();
  115.         while(1)
  116.         {
  117.                 key();         
  118.                 yellow=~hw;   
  119.                 if(key_can<10)
  120.                 {
  121.                         key_with();   
  122.                 }
  123.                 if(flag_300ms==1)
  124.                 {
  125.                         flag_300ms=0;
  126.                         hongwai_dis();     
  127.                 }   
  128.         }
  129. }

  131. void time0_int() interrupt 1
  132. {   
  133.         static uint value;
  134.         TH0=0x3c;
  135.         TL0=0xb0;      
  136.         value++;
  137.         if(value%6==0)
  138.         {
  139.                 flag_300ms=1;
  140.         }
  141.         if(flag_bufang_en==1)
  142.         {
  143.                 flag_value ++;
  144.                 if(flag_value>=600)
  145.                 {
  146.                         flag_bufang=1;
  147.                         flag_bufang_en=0;
  148.                         flag_value=0;   
  149.                 }
  150.         }
  151. }
復(fù)制代碼

Keil5代碼與Proteus8.8仿真下載:
紅外.zip (39.19 KB, 下載次數(shù): 35)

評分

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

查看全部評分

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏1 分享淘帖 頂頂 踩踩
回復(fù)

使用道具 舉報(bào)

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

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

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

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