0507人體紅外感應(yīng)的智能控制器

一,功能顯示

?人體紅外感應(yīng)的智能控制器可控制樓道燈實(shí)現(xiàn) 人來燈亮蒋譬,人走燈滅徐裸。

二羊初,程序

(1)

#include <REGX51.H>

#define uchar unsigned char

#define uint unsigned int

sbit light=P1^0;

sbit ex1=P3^3;

void delay(uint k)

{

uint i,j;

for(i=0;i<k;i++)

{

for(j=0;j<125;j++)

;

}

}

void main()

{

EA=1;

EX1=1;

IT1=1;

while(1)

{;}

}

void int_ex0(void) interrupt 2

{

light=0;

while(ex1==0);

delay(2000);

light=1;

}

(2)

#include <REGX51.H>

#define uchar unsigned char

#define uint unsigned int

sbit light=P1^0;

sbit add=P2^0;

sbit cut=P2^1;

sbit ex0=P3^3;

uint time=2000;

void delay(uint ms);

main()

{

EA=1;EX1=1;

IT0=0;

while(1)

{

if(add==0)

{

delay(10);

if(add==0)

{

while(add==0);

if(time<=50000)

time=time+1000;

}

}

if(cut==0)

{

delay(10);

if(cut==0)

{

while(cut==0);

if(time>=2000)

time=time-1000;

}

}

}

}

void int_ex0(void) interrupt 0 using 0

{

light=0;

while(ex0==0);

delay(time);

light=1;

}

void delay(uint ms)

{

uint i,j;

for(i=0;i<ms;i++)

for(j=0;j<125;j++)

;

}

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末街立,一起剝皮案震驚了整個(gè)濱河市舶衬,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌赎离,老刑警劉巖逛犹,帶你破解...
    沈念sama閱讀 212,686評論 6 492
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場離奇詭異梁剔,居然都是意外死亡虽画,警方通過查閱死者的電腦和手機(jī),發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 90,668評論 3 385
  • 文/潘曉璐 我一進(jìn)店門荣病,熙熙樓的掌柜王于貴愁眉苦臉地迎上來码撰,“玉大人,你說我怎么就攤上這事个盆〔钡海” “怎么了?”我有些...
    開封第一講書人閱讀 158,160評論 0 348
  • 文/不壞的土叔 我叫張陵颊亮,是天一觀的道長柴梆。 經(jīng)常有香客問我,道長终惑,這世上最難降的妖魔是什么绍在? 我笑而不...
    開封第一講書人閱讀 56,736評論 1 284
  • 正文 為了忘掉前任,我火速辦了婚禮雹有,結(jié)果婚禮上偿渡,老公的妹妹穿的比我還像新娘。我一直安慰自己件舵,他們只是感情好卸察,可當(dāng)我...
    茶點(diǎn)故事閱讀 65,847評論 6 386
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著铅祸,像睡著了一般坑质。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上临梗,一...
    開封第一講書人閱讀 50,043評論 1 291
  • 那天涡扼,我揣著相機(jī)與錄音,去河邊找鬼盟庞。 笑死吃沪,一個(gè)胖子當(dāng)著我的面吹牛,可吹牛的內(nèi)容都是我干的什猖。 我是一名探鬼主播票彪,決...
    沈念sama閱讀 39,129評論 3 410
  • 文/蒼蘭香墨 我猛地睜開眼红淡,長吁一口氣:“原來是場噩夢啊……” “哼!你這毒婦竟也來了降铸?” 一聲冷哼從身側(cè)響起在旱,我...
    開封第一講書人閱讀 37,872評論 0 268
  • 序言:老撾萬榮一對情侶失蹤,失蹤者是張志新(化名)和其女友劉穎推掸,沒想到半個(gè)月后桶蝎,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 44,318評論 1 303
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡谅畅,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 36,645評論 2 327
  • 正文 我和宋清朗相戀三年登渣,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片毡泻。...
    茶點(diǎn)故事閱讀 38,777評論 1 341
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡胜茧,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出牙捉,到底是詐尸還是另有隱情竹揍,我是刑警寧澤,帶...
    沈念sama閱讀 34,470評論 4 333
  • 正文 年R本政府宣布邪铲,位于F島的核電站芬位,受9級特大地震影響,放射性物質(zhì)發(fā)生泄漏带到。R本人自食惡果不足惜昧碉,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 40,126評論 3 317
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望揽惹。 院中可真熱鬧被饿,春花似錦、人聲如沸搪搏。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,861評論 0 21
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽疯溺。三九已至论颅,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間囱嫩,已是汗流浹背恃疯。 一陣腳步聲響...
    開封第一講書人閱讀 32,095評論 1 267
  • 我被黑心中介騙來泰國打工, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留墨闲,地道東北人今妄。 一個(gè)月前我還...
    沈念sama閱讀 46,589評論 2 362
  • 正文 我出身青樓,卻偏偏與公主長得像,于是被迫代替她去往敵國和親盾鳞。 傳聞我的和親對象是個(gè)殘疾皇子犬性,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 43,687評論 2 351

推薦閱讀更多精彩內(nèi)容