找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 6597|回復: 6
收起左側(cè)

單片機二路紅外報警Proteus仿真電路+程序

[復制鏈接]
ID:360050 發(fā)表于 2020-2-18 10:52 | 顯示全部樓層 |閱讀模式
下來了就可以用，程序我自己改來的，有什么不好可以提出來，大家一起交流交流
仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）

這是仿真電路圖，程序和仿真電路圖在兩個包里

這是仿真電路圖，程序和仿真電路圖在兩個包里

單片機源程序如下:
  1. #include <reg52.h>                 //調(diào)用單片機頭文件
  2. #define uchar unsigned char  //無符號字符型 宏定義        變量范圍0~255
  3. #define uint  unsigned int         //無符號整型 宏定義        變量范圍0~65535

  5. //紅外熱釋電傳感器 平時為0  有輸出為1

  7. sbit beep = P2^2;           //蜂鳴器定義
  8. sbit red = P2^0;           //紅色發(fā)光二極管定義
  9. sbit yellow = P2^1;           //黃色發(fā)光二極管定義
  10. sbit hw_one = P1^0;           //紅外熱釋傳感器定義
  11. sbit hw_two = P1^1;
  12. bit flag_300ms = 0;
  13. uchar flag_alarm ;     //報警標志位
  14. uint  flag_value;      //用做定時器的變量

  16. /***********************1ms延時函數(shù)*****************************/
  17. void delay_1ms(uint q)
  18. {
  19.         uint i,j;
  20.         for(i=0;i<q;i++)
  21.                 for(j=0;j<120;j++);
  22. }

  24. /*************定時器0初始化程序***************/
  25. void time_init()          
  26. {
  27.         EA   = 1;                   //開總中斷
  28.         TMOD = 0X01;          //定時器0工作方式1
  29.         ET0  = 1;                  //開定時器0中斷
  30.         TR0  = 1;                  //允許定時器0定時
  31. }

  33. /******************紅外報警處理**********************/          
  34. void hongwai_dis()
  35. {
  36.         if(hw_one == 1 && hw_two == 1)//無人
  37.         {
  38.                 flag_alarm = 0;//不報警
  39.                 red = ~red;//紅燈亮
  40.                 yellow = yellow;//黃燈熄滅
  41.                 beep = beep;//蜂鳴器不響
  42.         }
  43.         if(hw_one == 0)//表示床上有時，報警提示床無法收縮
  44.         {
  45.                 flag_alarm = 1;//報警
  46.                 red = red;//紅燈熄
  47.                 yellow = ~yellow;//黃燈亮
  48.                 beep = ~beep;//蜂鳴器響
  49.         }
  50.         if(hw_two == 0)//表示床板與墻面之間有人時候，報警提示床無法伸開
  51.         {
  52.                 flag_alarm = 1;//報警
  53.                 red = red;//紅燈熄
  54.                 yellow = ~yellow;//黃燈亮
  55.                 beep = ~beep;//蜂鳴器響
  56.         }
  57. }


  60. /******************主程序**********************/          
  61. void main()
  62. {
  63.         time_init();   //定時器初始化程序
  64.         beep = 0;      //開機叫一聲  
  65.         delay_1ms(200);
  66.         P0 = P1 = P2 = P3 = 0xff;  //初始化單片機IO口為高電平
  67.         while(1)
  68.         {
  69.                 red = ~hw_one;         //紅外熱釋電指示燈 有輸出就亮黃燈
  70.                 if(flag_300ms == 1)
  71.                 {
  72.                         flag_300ms = 0;
  73.                         hongwai_dis();           //紅外報警函數(shù)
  74.                 }       
  75.         }
  76. }


  79. /*************定時器0中斷服務程序***************/
  80. void time0_int() interrupt 1
  81. {       
  82.         static uint value;
  83.         TH0 = 0x3c;
  84.         TL0 = 0xb0;     // 50ms          
  85.         value ++;
  86.         if(value % 6 == 0)
  87.         {
  88.                 flag_300ms = 1;
  89.         }
  90. }
復制代碼

全部資料51hei下載地址：
電路圖.rar (112.51 KB, 下載次數(shù): 73)
程序.rar (25.63 KB, 下載次數(shù): 51)

評分

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

查看全部評分

回復

使用道具 舉報

ID:427205 發(fā)表于 2020-4-18 22:08 | 顯示全部樓層
感謝，代碼還沒運行，在學習中
回復

使用道具 舉報

ID:732854 發(fā)表于 2020-4-19 17:23 | 顯示全部樓層
打不開可怎么辦啊
回復

使用道具 舉報

ID:736860 發(fā)表于 2020-4-29 19:14 | 顯示全部樓層
想問一下樓上，這個是什么
0$I$B_P)N}TYDH6%1W%R0AJ.png
回復

使用道具 舉報

ID:714776 發(fā)表于 2020-4-30 21:13 | 顯示全部樓層
22222546 發(fā)表于 2020-4-29 19:14
想問一下樓上，這個是什么

數(shù)字信號發(fā)生器
回復

使用道具 舉報

ID:522591 發(fā)表于 2020-5-1 00:27 來自手機 | 顯示全部樓層
江湖救急還好還好哈
回復

使用道具 舉報

ID:647913 發(fā)表于 2020-6-8 18:02 | 顯示全部樓層
請問具體哪里是紅外熱釋電傳感器呀？
回復

使用道具 舉報

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

本版積分規(guī)則

手機版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術交流QQ群281945664

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

快速回復 返回頂部 返回列表