基于51單片機(jī)電子密碼鎖設(shè)計(jì)-資料下載頁
2025-06-20 12:48本頁面
【正文】 電子密碼鎖 07信 07020113 胡恒陽 07020136 張 振附錄D主程序24ORG 0000HSJMP MAINORG 0030HMAIN: MOV SP,60HCLR AMOV R0,36HMOV R4,06H 。傳輸密碼至存儲區(qū)INI_PMEM:MOV R3,AMOV DPTR,PWDMOVC A,@A+DPTRMOV @R0,AMOV A,R3INC AINC R0DJNZ R4,INI_PMEMMOV R4,06HMOV R0,30H 。初始化密碼緩沖區(qū)INI_PBUF:MOV @R0,0FHINC R0DJNZ R4,INI_PBUFMOV R4,06HMOV R0,41H 。初始化顯示緩沖區(qū)為的段碼INI_DBUF:MOV @R0,0FDHINC R0DJNZ R4,INI_DBUFLCALL DisplayCLR A 。初始的掃描鍵盤INI_SCAN:MOV R0,30HMOV R1,41H 。掃描鍵盤SCAN: LCALL KEY 。調(diào)用KEY子程序，返回A為鍵值JZ SCANMOV R3,A 。保存鍵值LCALL Delay0_1Release1:LCALL KEYJNZ Release1 。測試按鍵松開MOV A,R3 。比較是否為CLR鍵，不是則跳轉(zhuǎn)NotCLR1CJNE A,48H,NotCLR1LCALL CLR_PBUF 。清密碼緩沖區(qū)LCALL CLR_SCR 。清屏幕LJMP INI_SCAN 。存數(shù)并移下一位Save1: MOV DPTR,Key2BCD 。查鍵值轉(zhuǎn)BCD表MOVC A,@A+DPTRMOV @R0,AMOV @R1,31H 。顯示P代表每位密碼LCALL DisplayINC R0INC R1LJMP SCAN 。比較是否為確定鍵，不是則跳轉(zhuǎn)Save1NotCLR1:CJNE A,44H,Save1LCALL Compare 。調(diào)用比較子程序，,值1為錯誤JBC ,Wrong 。錯誤跳WrongCLR 。綠燈亮LCALL PASS 。顯示pass通過CLR CDelay10S:MOV R7,0BFH 。再檢測是否按下修改鍵D3: MOV R6,0BDH 。10S延時(shí)檢測D4: MOV R5,89HLCALL KEYJZ CON 。沒有鍵按下則繼續(xù)循環(huán)SUBB A,81H 。比較修改鍵JZ INI_CHG 。修改則跳到INI_CHGLJMP NotCHG 。未修改則跳NotCHGCON: DJNZ R5,$DJNZ R6,D4DJNZ R7,D3LJMP NotCHGINI_CHG:LCALL CLR_SCRLCALL CLR_PBUFNO_CLR: LCALL KEYJNZ NO_CLRMOV R0,30HMOV R1,41HChange: LCALL KEYJZ ChangeMOV R3,ALCALL Delay0_1Release2:LCALL KEYJNZ Release2MOV A,R3CJNE A,48H,NotCLR2 。比較是否為CLRLJMP NotCHGSave2: MOV DPTR,Key2BCDMOVC A,@A+DPTRMOV @R0,AMOV @R1,91H。HLCALL DisplayINC R0INC R1LJMP ChangeNotCLR2: CJNE A,44H,Save2 。比較是否為確認(rèn)鍵LCALL CLR_PMEMMOV R0,30HMOV R1,36HMOV R4,06HT_NewPWD:MOV A,@R0 。密碼緩沖區(qū)的新密碼存入密碼存儲區(qū)MOV @R1,AINC R0INC R1DJNZ R4,T_NewPWDNotCHG: SETB 。綠燈滅LCALL CLR_SCR LCALL CLR_DBUFLJMP INI_SCAN 。回初始掃描鍵盤Wrong: MOV R4,0AHLCALL Error 。顯示ErrorRED: CLR 。紅燈亮LCALL Delay0_5CPL 。紅燈滅LCALL Delay0_5DJNZ R4,REDLCALL CLR_SCRLCALL CLR_PBUFLJMP INI_SCAN
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1