51單片機(jī)電子密碼鎖(參考版)
2025-07-02 07:17本頁(yè)面
【正文】 PASSWORD OK!!!39。PASSWORD ERROR!39。INPUT PASSWORD:39。INPUT AGAIN!39。SET PASSWORD: 39。 B OPEN39。PASSWORD:A SET39。139。239。339。F39。439。539。639。E39。739。839。939。D39。A39。039。B39。C39。pop 07h。djnz r7,dl。nop。dl: mov r6,248。push 06h。ret。pop 03h。djnz r2,$。nop。mov r3,0。delay0_1s: push 02h。pop 07h。pop 03h。djnz r3,del11s。del11s: MOV r2,0。mov r7,15。push 02h。call delay。nop。setb en。CLR rw。ret。clr en。nop。clr en。寫(xiě)數(shù)據(jù)指令writedata: SETB rs。djnz r5,loop1。inc r1。*39。mov r0,a。jmp endt。,next_to。cjne a,39。nop。call write_instruction。mov a,r1。password:mov r5,6。djnz r5,all_or_not。nop。inc dptr。mov display,a。mov a,00h。ret。clear_display:mov display,01h。call input_hint。call write_instruction。call input_hint。call write_instruction。 ；按下開(kāi)鎖鍵，開(kāi)鎖jmp main0。,next_key1。cjne a,39。nop。 ；顯示輸入密碼正確提示完畢setb open。mov dptr,table6。sjmp $。mov a,52h。clr led。call delay1_5s。mov dptr,table5。setb led。 ；驗(yàn)證輸入密碼完畢jmp display_right。nop。inc r1。jnz input_error22。input_pere0:mov a,r0。mov r0,40h。jbc returnbit,input_password。mov r0,40h。mov dptr,table4。 ；前后兩次輸入新密碼不一致，返回重設(shè)。clr led。call delay1_5s。mov dptr,table5。setb led。 ；存入新密碼完畢jmp main0。mov 38h,44h。mov 36h,42h。mov 34h,40h。inc r1。jnz set_error。set_pere:mov a,r0。mov r0,40h。jbc returnbit,set_password。mov r0,46h。mov dptr,table4。call delay1_5s。mov dptr,table3。jbc returnbit,set_password。mov r0,40h。mov dptr,table2。sjmp $。mov a,52h。clr led。call delay1_5s。mov dptr,table5。input_error:setb led。djnz r5,input_pere。nop。inc r0。xrl a,r1。mov r1,34h。 ；先輸入原密碼完畢mov r5,6。call password。call input_hint。 設(shè)置密碼程序set_password:call clear_display。ret。mov a,p1。mov r2,a。jnb ,key。next_key:inc r6。mov 50h,a。mov dptr,table0。jnz k4。mov r6,a。mov a,12。ljmp lk。l2: jb ,l3。mov a,4。LJMP lk。jb ,l1。mov p1,a。mov r6,00h。clr led。jmp key。call ks。jmp key。 鍵盤(pán)掃描key: call ks。reti。return_t1:pop psw。cpl speaker。djnz r4,return_t1。mov th1,9eh。intermit_t1:push acc。pop acc。mov r4,10。djnz r4,return。mov th0,3ch。 ；系統(tǒng)初始化完畢intermit_t0:push acc。 。setb ea。mov tmod,11h。call write_instruction。call write_instruction。call write_instruction。call write_instruction。call write_instruction。 ；密碼鍵值存放區(qū)清零完畢lcall delay0_1s。inc r0。MOV r0,40h。139。139。139。139。139。139。clr speaker。sys_initialization:clr led。LJMP input_password。B39。LJMP set_password。A39。lcall key。52h ；判斷輸入錯(cuò)誤次數(shù)存儲(chǔ)地址 setb led。main0: lcall strat_display。start:MOV sp,60h。LJMP intermit_t1。LJMP intermit_t0。LJMP start。returnbit bit 。led bit 。display equ p0。參考文獻(xiàn)[1] (簡(jiǎn)明修訂版)［M］.北京:北京航空航天大學(xué)出版社，1998[2] ［M］.高等教育出版社，2003[3] PROTEL99 SE電路設(shè)計(jì)與制板［M］.機(jī)械工業(yè)出版社，2007
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1