【正文】 NOSECRET: MOV NUMBERTIME,00H MOV A,ERRTIME ；可試 3 次 ADD A,01H MOV ERRTIME,A CJNE A,03H,CONTEST WARNING: SETB WARNINGOUT ；3 次都錯不斷報警 NOP NOP AJMP WARNING CONTEST: MOV R0,30H CLR3038: MOV @R0,00H INC R0 CJNE R0,38H,CLR3038 AJMP START 。*********************** CHEKCODE: MOV R0,INCODE ；將輸入密碼地址賦 R0 MOV R1,SECRETCODE ；將密碼地址賦 R1 CONCHEKCODE: CLR C MOV A,@R0 MOV SCODE,@R1 SUBB A,SCODE JZ CONCOMPARE SETB SECRETOK ；輸入密碼不正確置位標志位 RET CLR SECRETOK RET CONCONCMP: INC R0 INC R1：基于單片機的電子密碼鎖設(shè)計 22 AJMP CONCHEKCODE。************************* YESSECRET: MOV TMOD,01H ；開 T0 中斷每 10 毫秒中斷一次 MOV TH0,0ECH MOV TL0,78H SETB EA SETB ET0 SETB TR0 ONLOCK: MOV A,LOCKONTIME ；開鎖 4 秒 SETB LOCKON NOP NOP CJNE A,11H,ONLOCK CLR EA CLR ET0 CLR LOCKON LJMP MAIN 鍵盤掃描程序模塊的設(shè)計 該模塊具備判斷鍵盤上有無鍵按下、去抖動影響、逐列掃描鍵盤以確定被按鍵的位置號及行列號、形成鍵值并將鍵值存入指定的數(shù)據(jù)緩沖區(qū)、判斷閉合的鍵是否釋放等功能。其程序框圖如圖 43 所示。畢業(yè)設(shè)計（論文） 23 N Y Y NY 圖 43 軟件消除抖動流程圖兩次調(diào)用延時子程序延時 12MS有鍵閉合嗎？判斷閉合按鍵號閉合鍵釋放嗎？鍵號 A返回有鍵閉合嗎？開始調(diào)用延時子程序延時 6MS：基于單片機的電子密碼鎖設(shè)計 24 KEY: LCALL KEYSCAN 。調(diào)鍵掃子程序 XRL A,0FFH 。判斷有無鍵落 JZ FCLEAR 。無鍵落轉(zhuǎn)CONSCAN: LCALL DELAY10 。調(diào)延時 10 毫秒消鍵抖 ACALL KEYSCAN XRL A,0FFH JZ FCLEAR JB TREATFLAG,CONSCAN 。通過處理標志判斷實現(xiàn)按一次不管按的時間長短 SETB TREATFLAG LCALL BEEP 。調(diào)響鈴說明按鍵有效 RETFCLEAR: CLR TREATFLAG RET 。*****************BEEP: MOV 6FH,04FH 。輸出音響信號一聲CONBEEP: CLR BEEPOUT LCALL ONEKNOP SETB BEEPOUT DJNZ 6FH,CONBEEP RET。**************。************** ONEKNOP: MOV R7,10H 。音響波形產(chǎn)生 GONOP1: MOV R6,10H畢業(yè)設(shè)計（論文） 25 GONOP: NOP DJNZ R6,GONOP DJNZ R7,GONOP1 RET。**************掃描子程序************* KEYSCAN: MOV R5,00H 。鍵掃子程序 R5 存行號 R6 存列號 R4 存鍵值 MOV R6,00H CLR ACALL READP1 SETB CJNE A,0FH,KEYNUMBER 。第一行有轉(zhuǎn)求鍵值 MOV R5,01H 。第一行無掃第二行 CLR ACALL READP1 SETB CJNE A,0FH,KEYNUMBER 。第二行有轉(zhuǎn)求鍵值 MOV R5,02 。第二行無轉(zhuǎn)掃第三行 CLR ACALL READP1 SETB CJNE A,0FH,KEYNUMBER 。第三行有轉(zhuǎn)求鍵值 MOV A,0FFH 。三行都沒有 RET。******************** READP1: MOV A,P1 。讀 P1 口得列值：基于單片機的電子密碼鎖設(shè)計 26 ANL A,0F0H SWAP A CJNE A,07H,NO8 MOV R6,03H RET NO8: CJNE A,0BH,NO4 MOV R6,02H RET NO4: CJNE A,0DH,NO2 MOV R6,01H RET NO2: CJNE A,0EH,NO1 MOV R6,00H RET NO1: MOV A,0FH RET 。*********************KEYNUMBER: MOV A,R5 。鍵值為行號乘 4 加列號 MOV B,04H MUL AB ADD A,R6 MOV R4,A RET************延時子程序************DELAY10: MOV 60H,0AH 。延時 10 毫秒子程序 LL1: MOV 61H,0F9H LL0: NOP NOP畢業(yè)設(shè)計（論文） 27 DJNZ 61H,LL0 DJNZ 60H,LL1 RET 密碼修改模塊的設(shè)計 該模塊的功能是修改設(shè)置密碼。密碼修改程序要求密碼輸入兩次，程序?qū)纱屋斎氲拿艽a比較一致時，即用此密碼代替原來的密碼，如果兩次輸入的密碼不一致，則重復(fù)操作。這樣就避免了修改密碼的隨機性。 N Y 圖 44 密碼修改模塊流程圖N=0密碼輸入正確？修改密碼輸入新密碼初始化再次輸入新密碼返回：基于單片機的電子密碼鎖設(shè)計 28 SECRETCODETAB: DB 01H 。密碼表可修改 DB 09H DB 06H