功能:
(1)紅外熱釋電傳感器采用按鍵模擬輸入信號,由于傳感器檢測人體時輸出高電平,按鍵需要下拉電阻作為無信號時的電平狀態。
(2)當熱釋電檢測到人體時,LED燈亮以及蜂鳴器響起。
#include < reg52.h >
#include < intrins.h >
#include < math.h >
#define uchar unsigned char
#define uint unsigned int
//延時函數ms
void _delay_ms(uint t)
{
uint i,j;
for(i=0;i< t;i++)
for(j=0;j< 120;j++);
}
//延時函數us
void _delay_us(uchar t)
{
while(t >0)t--;
}
sbit RS=P3^2; //寫信號
sbit RWW=P3^3; //讀信號
sbit E=P3^4; //使能信號
#define e1 E=1
#define rd1 RWW=1
#define rs1 RS=1
#define e0 E=0
#define rd0 RWW=0
#define rs0 RS=0
#define PP P1
//寫1602控制字
void lcd1602_writecrtl(uchar dat)
{
rd0;//讀信號置0
rs0;//寫信號置0
_delay_us(5);
PP=dat;
e1;//使能信號置1
_delay_us(5);
e0;//使能信號置0
}
//寫1602數據
void lcd1602_writenumber(uchar dat)
{
rd0;//讀信號置0
rs1;//寫信號置1
_delay_us(5);
PP=dat;
e1;//使能信號置1
_delay_us(5);
e0;//使能信號置0
}
//1602初始化
void lcd1602_init()
{
lcd1602_writecrtl(0x38); //顯示模式
lcd1602_writecrtl(0x06); //顯示光標移動位置
lcd1602_writecrtl(0x0c); //顯示開及光標設置
lcd1602_writecrtl(0x01); //顯示清屏
}
//顯示地址
void lcd1602_adr(uchar dat)
{
lcd1602_writecrtl(0x80 | dat);
}
//行顯示-
void LCD1602_string(uchar hang,uchar lie,uchar const *p)
{
uchar a;
if(hang == 1) a = 0x00;
if(hang == 2) a = 0x40;
a = a + lie - 1;
lcd1602_adr(a);
while(1)
{
if(*p == '?') break;
lcd1602_writenumber(*p);
p++;
}
}
uchar code zifux[]="0123456789abcdef";
uchar code zifu0[]="Pyroelectric ";
uchar code zifu2[]=" Alarm ";
uchar code zifu1[]=" Normal ";
sbit key_sr= P2^1;//傳感器
sbit led= P0^0; //報警
sbit beer= P2^7;//報警
uint jishu1=0;
uint jishubeer=0;
uchar bz=0;
//---------------
void ct()
{
//顯示
if(bz==0) LCD1602_string(2,1,zifu1);
if(bz==1) LCD1602_string(2,1,zifu2);
//判斷
if((key_sr==1)&&(bz==0)) {bz=1;jishu1=0;}
//報警
if(bz==1)
{
jishubeer=(jishubeer+1)%100;
if(jishubeer >50){beer=led=0;}
else {beer=led=1;}
//延時
jishu1=jishu1+1;if(jishu1 >500) {jishu1=0;bz=0;}
}
else {beer=led=1;}
}
//主函數
void main()
{
_delay_ms(1);
key_sr=0;
//初始化
lcd1602_init();
LCD1602_string(1,1,zifu0);
LCD1602_string(1,1,zifu0);
LCD1602_string(2,1,zifu1);
while(1)
{
ct();
}
}
聲明:本文內容及配圖由入駐作者撰寫或者入駐合作網站授權轉載。文章觀點僅代表作者本人,不代表電子發燒友網立場。文章及其配圖僅供工程師學習之用,如有內容侵權或者其他違規問題,請聯系本站處理。
舉報投訴
-
傳感器
+關注
關注
2553文章
51400瀏覽量
756609 -
仿真
+關注
關注
50文章
4124瀏覽量
133993 -
51單片機
+關注
關注
274文章
5705瀏覽量
124303 -
紅外熱釋電
+關注
關注
0文章
11瀏覽量
7933
發布評論請先 登錄
相關推薦
大神們有知道51單片機怎么用中斷識別人體紅外熱釋電傳感器的3v信號嗎?
我用51單片機控制人體紅外熱釋電傳感器,怎么中斷不能產生?是不是輸出的3v電壓太低不能識別?有沒
發表于 10-14 23:03
熱電堆傳感器和熱釋電傳感器的區別是什么?
甘肽等受熱時,晶體兩端會產生數量相等、符號相反的電荷。1842年布魯斯特將這種由溫度變化引起的電極化現象正式命名為“pyroelectric”,即熱釋電效應。熱釋電效應示意圖
發表于 03-06 14:02
評論