矩陣鍵盤密碼鎖

功能描述

按完密碼以后掰担,使燈亮起來

程序

//zhuwenxuan 0317//

#include <REGX51.H>

#include"INTRINS.H"

#define uchar unsigned char

#define uint unsigned int

//sbit P1_0=P1^0;

//sbit P1_1=P1^1;

//sbit P1_2=P1^2;

//sbit P1_3=P1^3;

sbit LED=P2^0;

uchar code? D[]={9,8,0,4,1,7};

void delay(uint ms)

{

uchar i;

while(ms--)

{

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

}

}

uchar KeyV()

{

uchar key,key_value,a;

P1=0x0f;

if(P1==0x0f)

return(0);

else

{

delay(10);

if(P1==0x0f)

? return(0);

for(a=0;a<4;a++)

{

P1=_cror_(0x7f,a);

if(P1_0==0)break;

if(P1_1==0)break;

if(P1_2==0)break;

if(P1_3==0)break;

}

key=P1;

for(;P1!=0x0f;P1=0x0f)

{;}

switch(key)

{

case 0xee:key_value=1;break;

case 0xed:key_value=2;break;

case 0xeb:key_value=3;break;

case 0xe7:key_value=4;break;

case 0xde:key_value=5;break;

case 0xdd:key_value=6;break;

case 0xdb:key_value=7;break;

case 0xd7:key_value=8;break;

case 0xbe:key_value=9;break;

case 0xbd:key_value=10;break;

case 0xbb:key_value=11;break;

case 0xb7:key_value=12;break;

case 0x7e:key_value=13;break;

case 0x7d:key_value=14;break;

case 0x7b:key_value=15;break;

case 0x77:key_value=16;break;

default:;break;

}

return(key_value);

}

}

void main(void)

{

uchar key_value=0xff;

while(1)

{

while(key_value!=D[0])

{key_value=KeyV();}

while(key_value!=D[1])

{key_value=KeyV();}

while(key_value!=D[2])

{key_value=KeyV();}

while(key_value!=D[3])

{key_value=KeyV();}

while(key_value!=D[4])

{key_value=KeyV();}

while(key_value!=D[5])

{key_value=KeyV();}

while(key_value!=D[6])

{key_value=KeyV();}

LED=0;

}

3電路圖

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末后众,一起剝皮案震驚了整個濱河市滤奈,隨后出現(xiàn)的幾起案子腔稀,更是在濱河造成了極大的恐慌,老刑警劉巖握联,帶你破解...
    沈念sama閱讀 219,039評論 6 508
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件苔严,死亡現(xiàn)場離奇詭異,居然都是意外死亡蟀瞧,警方通過查閱死者的電腦和手機沉颂,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,426評論 3 395
  • 文/潘曉璐 我一進店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來悦污,“玉大人铸屉,你說我怎么就攤上這事∏卸耍” “怎么了彻坛?”我有些...
    開封第一講書人閱讀 165,417評論 0 356
  • 文/不壞的土叔 我叫張陵,是天一觀的道長踏枣。 經(jīng)常有香客問我昌屉,道長,這世上最難降的妖魔是什么椰于? 我笑而不...
    開封第一講書人閱讀 58,868評論 1 295
  • 正文 為了忘掉前任怠益,我火速辦了婚禮,結(jié)果婚禮上瘾婿,老公的妹妹穿的比我還像新娘蜻牢。我一直安慰自己烤咧,他們只是感情好,可當我...
    茶點故事閱讀 67,892評論 6 392
  • 文/花漫 我一把揭開白布抢呆。 她就那樣靜靜地躺著煮嫌,像睡著了一般。 火紅的嫁衣襯著肌膚如雪抱虐。 梳的紋絲不亂的頭發(fā)上昌阿,一...
    開封第一講書人閱讀 51,692評論 1 305
  • 那天,我揣著相機與錄音恳邀,去河邊找鬼懦冰。 笑死,一個胖子當著我的面吹牛谣沸,可吹牛的內(nèi)容都是我干的刷钢。 我是一名探鬼主播,決...
    沈念sama閱讀 40,416評論 3 419
  • 文/蒼蘭香墨 我猛地睜開眼乳附,長吁一口氣:“原來是場噩夢啊……” “哼内地!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起赋除,我...
    開封第一講書人閱讀 39,326評論 0 276
  • 序言:老撾萬榮一對情侶失蹤阱缓,失蹤者是張志新(化名)和其女友劉穎,沒想到半個月后举农,有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體荆针,經(jīng)...
    沈念sama閱讀 45,782評論 1 316
  • 正文 獨居荒郊野嶺守林人離奇死亡,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 37,957評論 3 337
  • 正文 我和宋清朗相戀三年并蝗,在試婚紗的時候發(fā)現(xiàn)自己被綠了祭犯。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片秸妥。...
    茶點故事閱讀 40,102評論 1 350
  • 序言:一個原本活蹦亂跳的男人離奇死亡滚停,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出粥惧,到底是詐尸還是另有隱情键畴,我是刑警寧澤,帶...
    沈念sama閱讀 35,790評論 5 346
  • 正文 年R本政府宣布突雪,位于F島的核電站起惕,受9級特大地震影響,放射性物質(zhì)發(fā)生泄漏咏删。R本人自食惡果不足惜惹想,卻給世界環(huán)境...
    茶點故事閱讀 41,442評論 3 331
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望督函。 院中可真熱鬧嘀粱,春花似錦激挪、人聲如沸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,996評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽。三九已至娃磺,卻和暖如春薄湿,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背偷卧。 一陣腳步聲響...
    開封第一講書人閱讀 33,113評論 1 272
  • 我被黑心中介騙來泰國打工豺瘤, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留,地道東北人听诸。 一個月前我還...
    沈念sama閱讀 48,332評論 3 373
  • 正文 我出身青樓炉奴,卻偏偏與公主長得像,于是被迫代替她去往敵國和親蛇更。 傳聞我的和親對象是個殘疾皇子瞻赶,可洞房花燭夜當晚...
    茶點故事閱讀 45,044評論 2 355

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