设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › 51单片机 › 单片机红外热释电传感器报警程序与Proteus仿真图
返回列表 发新帖
查看: 1956|回复: 0
收起左侧

单片机红外热释电传感器报警程序与Proteus仿真图

[复制链接]
ID:661888 发表于 2022-5-24 16:44 | 显示全部楼层 |阅读模式
仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）
51hei.gif

单片机源程序如下:
  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. }
复制代码

Keil5代码与Proteus8.8仿真下载:
红外.zip (39.19 KB, 下载次数: 34)

评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的黑币奖励！

查看全部评分

回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表