51單片機(jī)電子密碼鎖-閱讀頁(yè)
2025-07-14 07:17本頁(yè)面
【正文】 2h,0。setb tr0。cjne a,39。,next1。next1: cjne a,39。,next2。next2: ajmp main。clr open。MOV 34h,39。 MOV 35h,39。MOV 36h,39。MOV 37h,39。MOV 38h,39。MOV 39h,39。 ；存放初始密碼MOV r7,12。loop: MOV r0,10h。djnz r7,loop。MOV p0,03h。 ；液晶軟復(fù)位MOV p0,01h。mov p0,3fh。mov p0,0fh。mov p0,06h。 ；液晶初始化完畢mov r4,10。mov th0,0b0h。setb et0。定時(shí)器t0，ret。push psw。mov tl0,0b0h。cpl led。return: pop psw。reti。push psw。mov tl1,58h。cpl led。mov r4,10。pop acc。jnz k1。k1:call delay。jnz k2。k2:clr tr0。mov r2,0feh。k3:mov a,r2。mov a,p1。mov a,0。l1: jb ,l2。ljmp lk。mov a,8。l3: jb ,next_key。lk: add a,r6。k4: call ks。mov a,r6。movc a,a+dptr。 ；查表取值存入50H，保護(hù)鍵值ret。mov a,r2。rl a。jmp k3。ks:mov p1,0f0h。xrl a,0f0h。mov dptr,table4。mov r0,40h。jbc returnbit,set_password。mov r0,40h。input_pere:mov a,r0。jnz input_error。inc r1。nop。 ；驗(yàn)證輸入密碼完畢jmp set_password0。call clear_display。call input_hint。clr speaker。inc 52h。cjne a,3,set_password。 ；輸入密碼錯(cuò)誤次數(shù)超過(guò)3次，鎖死set_password0:call clear_display。call input_hint。call password。 ；第一次輸入新密碼完畢call clear_display。call input_hint。 ；顯示再次輸入新密碼完畢call clear_display。call input_hint。call password。 ；第二次輸入新密碼完畢mov r5,6。mov r1,46h。xrl a,r1。inc r0。djnz r5,set_pere。mov 35h,41h。mov 37h,43h。mov 39h,45h。 ；設(shè)置新密碼成功，返回主程序set_error:setb speaker。call clear_display。call input_hint。clr speaker。ljmp set_password0。輸入密碼開(kāi)鎖程序input_password:call clear_display。call input_hint。call password。 ；輸入原密碼完畢mov r5,6。mov r1,34h。xrl a,r1。inc r0。nop。djnz r5,input_pere0。input_error22:setb speaker。call clear_display。call input_hint。clr speaker。inc 52h。cjne a,3,input_password。 ；輸入密碼錯(cuò)誤超過(guò)3次，鎖死display_right:call clear_display。call input_hint。 ；開(kāi)鎖next_key1:call key。nop。F39。clr open。 ；返回主程序 。strat_display:mov p0,80h。mov dptr,table1。mov p0,0c0h。mov dptr,table11。ret。call write_instruction。input_hint:mov r5,16。all_or_not:movc a,a+dptr。call writedata。clr a。nop。ret。mov r1,0c0h。mov p0,a。loop1: call key。nop。C39。setb returnbit。next_to:mov a,50h。mov display,39。 call writedata。inc r0。endt: ret。CLR rw。setb en。nop。call delay。寫(xiě)指令write_instruction:CLR rs。clr en。nop。clr en。ret。延時(shí)程序delay1_5s: push 07h。push 03h。del22s: MOV r3,0。djnz r2,$。djnz r7,del22s。pop 02h。ret。push 03h。del21s: mov r2,0。nop。djnz r3,del21s。pop 02h。delay: push 07h。mov r7,10。nop。djnz r6,$。pop 06h。ret。table0: db 39。,39。,39。,39。db 39。,39。,39。,39。db 39。,39。,39。,39。db 39。,39。,39。,39。table1: db 39。table11: db 39。table2: db 39。table3: db 39。table4: db 39。table5: db 39。table6: db 39。end
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1