單片機防盜報警器proteus仿真+源碼

ID:341624 · 發(fā)表于 2018-5-30 19:47

帶3個燈：緊急報警燈，紅外人體檢測信號燈，布防指示燈
仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）

說明：
1、按下緊急報警按鍵，緊急報警燈閃爍，蜂鳴器報警
2、按下布防按鍵，布防指示燈開始閃爍，閃爍大約30秒，保持亮的狀態(tài)，進入布防模式
3、按下取消報警/布防按鍵，取消布防和緊急報警功能

用按鍵代替人體感應(yīng)模塊如果按下感應(yīng)到人體，綠燈亮，否則滅

單片機源程序如下:

//51單片機簡人體紅外報警器設(shè)計，手動按鍵控制實現(xiàn)緊急報警、布防、撤防、關(guān)閉報警）//
#include <reg52.h>
#define uchar unsigned char
#define uint unsigned int
uchar Mode=1,Mode1=0;
uchar t;
sbit s1=P1^0;
sbit s2=P1^2;
sbit s3=P1^1;
bit alarm=1,kai=1;
sbit LR=P2^0;//紅燈報警燈
sbit LY=P2^2;//布防燈
sbit LG=P2^1;//紅外信號檢測燈
sbit Feng=P1^3;//蜂鳴器報警
sbit HR=P0^3;//紅外模塊接入端口
void delay(uint x) //毫秒級延時函數(shù)
{
uint i,j;
for(i=x;i>0;i--)
for(j=110;j>0;j--);
}
void di()
{
LR=0;//蜂鳴器報警，紅燈跟隨閃爍
Feng=0;
delay(80);
LR=1;
Feng=1;
delay(200);
}
void main()
{
LR=1;//初始化三個燈都是滅
LG=1;
LY=1;
delay(5);
while(1)
{
if(s1==0) //緊急手動報警
{
delay(5); //延時消抖
if(s1==0)
{
delay(5);
while(!s1);
kai=0;
LY=1;
LG=1;
alarm=0; //進入報警狀態(tài)
Mode1=1; //Mode1置1：緊急報警過程中以防按了布防鍵取消緊急報警
delay(5);
}
}
if(s3==0) //取消報警
{
delay(5);
if(s3==0)
{
delay(5);
while(!s3);
LR=1;
LY=1;
Mode=1;
Mode1=0;
alarm=1;
delay(5);
}
}
if(s2==0) //布防
{
if(Mode1==1) //判斷Mode1的狀態(tài)，如果是緊急報警狀態(tài)就保持，否則進入布防設(shè)置
{
alarm=0;
}
else
{
for(t=0;t<200;t++)
{
LY=~LY;
delay(200);
}
LR=1;
LY=0;
Mode=0; //布防狀態(tài)標識
kai=1;
delay(5);
}
}
if(alarm==0)
{
di();
delay(100);
di();
delay(100);
}
if(HR==1&&Mode==0)
{
alarm=0;//開始進入報警
}
else
{
if(kai)
{
alarm=1;
LR=1;
}
}
if(HR==1) //檢測紅外模塊有信號，綠燈亮,否則滅
{
LG=0;
delay(200);
}
else
{
LG=1;
}
}
}

復(fù)制代碼

Keil2代碼和Proteus7.5版本的仿真 51hei附件下載:

單片機防盜報警器仿真.rar (125.9 KB, 下載次數(shù): 343)

ID:339366 · 發(fā)表于 2018-5-31 11:40

請問這個紅外是紅外對管嗎？

ID:293762 · 發(fā)表于 2018-6-1 22:21

單片機小渣渣1 發(fā)表于 2018-5-31 11:40
請問這個紅外是紅外對管嗎？

不是，這里說的紅外指的是熱釋電紅外線探測模塊，當(dāng)然，就程序來看，所有高電平輸出的探頭都是用。

ID:357533 · 發(fā)表于 2018-6-23 23:37

C:\Users\Administrator\desktop
請問運行以后燈不亮是什么原因？
限流電阻什么的都已經(jīng)更改，并且不管做什么實驗，LED燈就是不亮。。。

ID:726183 · 發(fā)表于 2020-4-23 16:49

sssyy123 發(fā)表于 2018-6-23 23:37
請問運行以后燈不亮是什么原因？
限流電阻什么的都已經(jīng)更改，并且不管做什么實驗，LED燈就是不亮。。。

LED燈可能用錯了，proteus我所知到的里有兩種LED，有一種LED不亮。

ID:744311 · 發(fā)表于 2020-5-12 14:16

請問為什么無法運行啊?

ID:65237 · 發(fā)表于 2020-5-12 21:09

這個不錯收下了

ID:787812 · 發(fā)表于 2020-6-25 12:06

還有其他方法代替感應(yīng)模塊嗎

ID:790922 · 發(fā)表于 2020-6-27 14:43

做的很好！值得學(xué)習(xí)

ID:792187 · 發(fā)表于 2020-7-1 14:09

樓主，可以把這個蜂鳴器變播放音樂嗎

ID:850294 · 發(fā)表于 2020-12-4 23:02

linsheng 發(fā)表于 2020-6-25 12:06
還有其他方法代替感應(yīng)模塊嗎

同問？

ID:990156 · 發(fā)表于 2021-12-9 16:43

運行了一下程序，不知道為什么很多語法錯誤

ID:262 · 發(fā)表于 2021-12-9 20:50

dramu5 發(fā)表于 2021-12-9 16:43
運行了一下程序，不知道為什么很多語法錯誤

附件是Keil2的工程要用Keil2來編譯我這里是0錯誤

ID:1051470 · 發(fā)表于 2022-11-11 11:16

heicad 發(fā)表于 2021-12-9 20:50
附件是Keil2的工程要用Keil2來編譯我這里是0錯誤

我是keil2的為啥在delay(5) while(1)哪里報錯

ID:1136156 · 發(fā)表于 2024-11-11 20:20

請問這個紅外是紅外對管嗎？

帳號		自動登錄	找回密碼
密碼			立即注冊

單片機防盜報警器proteus仿真+源碼

評分