【導讀】以51單片機為核心，設計帶有密碼輸入鍵盤、電磁閥等部件的單片機應用系統(tǒng)，實現(xiàn)電子鎖的鎖閉和打開。及一些個人資料的保存多以加鎖的辦法來解決。若使用傳統(tǒng)的機械式鑰匙開鎖，人們常需。攜帶多把鑰匙,使用極不方便,且鑰匙丟失后安全性即大打折扣。具有防盜報警等功能的。電子密碼鎖代替密碼量少、安全性差的機械式密碼鎖已是必然趨勢。隨著科學技術(shù)的不斷。發(fā)展，人們對日常生活中的安全保險器件的要求越來越高。低、易操作、記住密碼即可開鎖等優(yōu)點。解碼器的生成為軟件方式。超過三次輸入錯誤自動鎖定。由P1口控制矩陣鍵盤含有0-9數(shù)字。除上述基本的密碼鎖功能外，依據(jù)實際的情況還可以添加遙控功能。本系統(tǒng)成本低廉，功能實用。

　　

【正文】 完畢 call clear_display。 mov dptr,table3。 call input_hint。 call delay1_5s。 ；顯示再次輸入新密碼完畢 call clear_display。 西安文理學院課程設計報告 第 22 頁 mov dptr,table4。 call input_hint。 mov r0,46h。 call password。 jbc returnbit,set_password。 ；第二次輸入新密碼完畢 mov r5,6。 mov r0,40h。 mov r1,46h。 set_pere: mov a,@r0。 xrl a,@r1。 jnz set_error。 inc r0。 inc r1。 djnz r5,set_pere。 mov 34h,40h。 mov 35h,41h。 mov 36h,42h。 mov 37h,43h。 mov 38h,44h。 mov 39h,45h。 ；存入新密碼完畢 jmp main0。 ；設置新密碼成功，返回主程序 set_error: setb speaker。 setb led。 call clear_display。 mov dptr,table5。 call input_hint。 call delay1_5s。 clr speaker。 clr led。 ljmp set_password0。 ；前后兩次輸入新密碼不一致，返回重設 。。。輸入密碼開鎖程序 input_password: call clear_display。 mov dptr,table4。 西安文理學院課程設計報告 第 23 頁 call input_hint。 mov r0,40h。 call password。 jbc returnbit,input_password。 ；輸入原密碼完畢 mov r5,6。 mov r0,40h。 mov r1,34h。 input_pere0: mov a,@r0。 xrl a,@r1。 jnz input_error22。 inc r0。 inc r1。 nop。 nop。 djnz r5,input_pere0。 ；驗證輸入密碼完畢 jmp display_right。 input_error22: setb speaker。 setb led。 call clear_display。 mov dptr,table5。 call input_hint。 call delay1_5s。 clr speaker。 clr led。 inc 52h。 mov a,52h。 cjne a,3,input_password。 sjmp $。 ；輸入密碼錯誤超過 3 次，鎖死 display_right: call clear_display。 mov dptr,table6。 call input_hint。 ；顯示輸入密碼正確提示完畢 setb open。 ；開鎖 next_key1:call key。 西安文理學院課程設計報告 第 24 頁 nop。 nop。 cjne a,39。F39。,next_key1。 clr open。 ；按下開鎖鍵，開鎖 jmp main0。 ；返回主程序 。。 strat_display: mov p0,80h。 call write_instruction。 mov dptr,table1。 call input_hint。 mov p0,0c0h。 call write_instruction。 mov dptr,table11。 call input_hint。 ret。 clear_display: mov display,01h。 call write_instruction。 ret。 input_hint: mov r5,16。 mov a,00h。 all_or_not: movc a,@a+dptr。 mov display,a。 call writedata。 inc dptr。 clr a。 nop。 nop。 djnz r5,all_or_not。 ret。 password: mov r5,6。 mov r1,0c0h。 西安文理學院課程設計報告 第 25 頁 mov a,r1。 mov p0,a。 call write_instruction。 loop1: call key。 nop。 nop。 cjne a,39。C39。,next_to。 setb returnbit。 jmp endt。 next_to: mov a,50h。 mov @r0,a。 mov display,39。*39。 call writedata。 inc r1。 inc r0。 djnz r5,loop1。 endt: ret。 。。寫數(shù)據(jù)指令 writedata: SETB rs。 CLR rw。 clr en。 setb en。 nop。 nop。 clr en。 call delay。 ret。 。。寫指令 write_instruction: CLR rs。 CLR rw。 clr en。 setb en。 nop。 西安文理學院課程設計報告 第 26 頁 nop。 clr en。 call delay。 ret。 。。。延時程序 delay1_5s: push 07h。 push 02h。 push 03h。 mov r7,15。 del22s: MOV r3,0。 del11s: MOV r2,0。 djnz r2,$。 djnz r3,del11s。 djnz r7,del22s。 pop 03h。 pop 02h。 pop 07h。 ret。 delay0_1s: push 02h。 push 03h。 mov r3,0。 del21s: mov r2,0。 nop。 nop。 djnz r2,$。 djnz r3,del21s。 pop 03h。 pop 02h。 ret。 delay: push 07h。 push 06h。 mov r7,10。 dl: mov r6,248。 nop。 nop。 djnz r6,$。 西安文理學院課程設計報告 第 27 頁 djnz r7,dl。 pop 06h。 pop 07h。 ret。 。。。 table0: db 39。C39。,39。B39。,39。039。,39。A39。 db 39。D39。,39。939。,39。839。,39。739。 db 39。E39。,39。639。,39。539。,39。439。 db 39。F39。,39。339。,39。239。,39。139。 table1: db 39。PASSWORD:A SET39。 table11: db 39。 B OPEN39。 table2: db 39。SET PASSWORD: 39。 table3: db 39。INPUT AGAIN!39。 table4: db 39。INPUT PASSWORD:39。 table5: db 39。PASSWORD ERROR!39。 table6: db 39。PASSWORD OK!!!39。 。。 end