【導(dǎo)讀】在現(xiàn)代社會(huì)，電子密碼鎖已不是一個(gè)陌生的名詞。本文中將要介紹的電子密碼鎖。閉鎖任務(wù)的電子鎖裝置。執(zhí)行電路、報(bào)警電路、鍵盤輸入次數(shù)鎖定電路來完成開鎖、閉鎖等任務(wù)。碼是否正確來開鎖或報(bào)警。碼鎖具有安全性高、成本低、功耗低、易操作等優(yōu)點(diǎn)。

　　

【正文】 4,00H MOV KEY_5,00H MOV KEY_6,00H MOV WORD_1,6 。設(shè)置初始密碼為 123456 MOV WORD_2,5 MOV WORD_3,4 MOV WORD_4,3 MOV WORD_5,2 MOV WORD_6,1 MOV TMOD,01H 36 MOV TH0,(65536700)/256 MOV TL0,(65536700)MOD 256 MOV IE,82H A0:LCALL DISP 。以下為鍵盤掃描程序 ,計(jì)算鍵值并存入 VAL LSCAN:MOV P3,0F0H 。掃描行碼 L1: JNB ,L2 LCALL DLY_S JNB ,L2 MOV LINE,00H LJMP RSCAN L2: JNB ,L3 LCALL DLY_S JNB ,L3 MOV LINE,01H LJMP RSCAN L3: JNB ,L4 LCALL DLY_S JNB ,L4 MOV LINE,02H LJMP RSCAN L4: JNB ,A0 LCALL DLY_S JNB ,A0 MOV LINE,03H RSCAN:MOV P3,0FH 。掃描列碼 C1: JNB ,C2 MOV ROW,00H LJMP CALCU C2: JNB ,C3 MOV ROW,01H 37 LJMP CALCU C3: JNB ,C1 MOV ROW,02H CALCU:MOV A,LINE 。計(jì)算鍵值 MOV B,03H MUL AB ADD A,ROW MOV VAL,A 。以下為按鍵處理程序 ,對(duì)不同的按鍵作出響應(yīng) CJNE A,0AH,J1 。是否為 CLR鍵 MOV R1,KEY_CNT CJNE R1,00H,J2 LCALL ALARM_1 LJMP START J2: LCALL SHIFTR DEC KEY_CNT W00:LCALL DISP 。等待按鍵抬起 MOV A,P3 CJNE A,0FH,W01 LJMP A0 W01:MOV A,P3 CJNE A,0F0H,W02 LJMP A0 W02:SJMP W00 J1: MOV A,VAL CJNE A,0BH,J3 。判斷是否為 ENTER鍵 MOV R1,KEY_CNT CJNE R1,06H,J4 MOV A,WORD_1 。比較密碼 CJNE A,3EH,J5 MOV A,WORD_2 38 CJNE A,3FH,J5 MOV A,WORD_3 CJNE A,40H,J5 MOV A,WORD_4 CJNE A,41H,J5 MOV A,WORD_5 CJNE A,42H,J5 MOV A,WORD_6 CJNE A,43H,J5 CLR LCALL DLY_L LJMP FINI J5: LCALL ALARM_2 LJMP START J4: LCALL ALARM_1 LJMP START J3: INC KEY_CNT 。按下數(shù)字鍵 MOV A,KEY_CNT CJNE A,07H,K1 LCALL ALARM_1 W10:LCALL DISP 。等待按鍵抬起 MOV A,P3 CJNE A,0FH,W11 LJMP START W11:MOV A,P3 CJNE A,0F0H,W12 LJMP START W12:SJMP W10 LJMP START LJMP START K1:LCALL SHIFTL 39 W20:LCALL DISP 。等待按鍵抬起 MOV A,P3 CJNE A,0FH,W21 LJMP A0 W21:MOV A,P3 CJNE A,0F0H,W22 LJMP A0 W22:SJMP W20 LJMP A0 ALARM_1:SETB TR0 。操作錯(cuò)誤報(bào)警 JB TR0,$ RET ALARM_2:SETB TR0 。密碼錯(cuò)誤報(bào)警 JB TR0,$ LCALL DLY_L RET 。定時(shí)器中斷服務(wù)程序 ,用于聲音報(bào)警 INT_T0: CPL MOV TH0,(65536700)/256 MOV TL0,(65536700)MOD 256 INC CNT_A MOV R1,CNT_A CJNE R1,30,RETUNE MOV CNT_A,00H INC CNT_B MOV R1,CNT_B CJNE R1,20,RETUNE MOV CNT_A,00H MOV CNT_B,00H CLR TR0 40 RETUNE: RETI 。段碼 ,輸入密碼左移子程序 SHIFTL:MOV LED_BIT_6,LED_BIT_5 MOV LED_BIT_5,LED_BIT_4 MOV LED_BIT_4,LED_BIT_3 MOV LED_BIT_3,LED_BIT_2 MOV LED_BIT_2,LED_BIT_1 MOV LED_BIT_1,40H MOV KEY_6,KEY_5 MOV KEY_5,KEY_4 MOV KEY_4,KEY_3 MOV KEY_3,KEY_2 MOV KEY_2,KEY_1 MOV KEY_1,VAL RET 。段碼 ,輸入密碼右移子程序 SHIFTR:MOV LED_BIT_1,LED_BIT_2 MOV LED_BIT_2,LED_BIT_3 MOV LED_BIT_3,LED_BIT_4 MOV LED_BIT_4,LED_BIT_5 MOV LED_BIT_5,LED_BIT_6 MOV LED_BIT_6,00H MOV KEY_1,KEY_2 MOV KEY_2,KEY_3 MOV KEY_3,KEY_4 MOV KEY_4,KEY_5 MOV KEY_5,KEY_6 MOV KEY_6,00H RET 。以下為數(shù)碼顯示子程序 DISP: CLR 41 MOV P0,LED_BIT_8 LCALL DLY_S SETB CLR MOV P0,LED_BIT_7 LCALL DLY_S SETB CLR MOV P0,LED_BIT_6 LCALL DLY_S SETB CLR MOV P0,LED_BIT_5 LCALL DLY_S SETB CLR MOV P0,LED_BIT_4 LCALL DLY_S SETB CLR MOV P0,LED_BIT_3 LCALL DLY_S SETB CLR MOV P0,LED_BIT_2 LCALL DLY_S SETB CLR MOV P0,LED_BIT_1 LCALL DLY_S SETB 42 RET DLY_S:MOV R6,10 D1:MOV R7,250 DJNZ R7,$ DJNZ R6,D1 RET DLY_L:MOV R5,100 D2:MOV R6,100 D3:MOV R7,248 DJNZ R7,$ DJNZ R6,D3 DJNZ R5,D2 RET FINI: NOP END g an employment tribunal claim Employment tribunals sort out disagreements between employers and employees. You may need to make a claim to an employment tribunal if: ? you don39。t agree with the disciplinary action your employer has taken against you ? your employer dismisses you and you think that you have been dismissed unfairly. For more information about dismissal and unfair dismissal, see Dismissal. You can make a claim to an employment tribunal, even if you haven39。t appealed against the disciplinary action your employer has taken against you. However, if you win your case, the tribunal may reduce any pensation awarded to you as a result of your failure to appeal. Remember that in most cases you must make an application to an employment tribunal within three months of the date when the event you are plaining about happened. If your application is received after this time limit, the tribunal will not usually accept it. If you are worried about how the time limits apply to you, take advice from one of the anisations listed under Further help. Employment tribunals are less formal than some other courts, but it is still a legal process and you will need to give evidence under an oath or affirmation. Most people find making a claim to an employment tribunal challenging. If you are thinking about making a claim to an employment tribunal, you should get help straight away from one of the anisations listed under Further help. If you are being represented by a solicitor at the tribunal, they may ask you to sign an agreement where you pay their fee out of your pensation if you win the case. This is known as a damagesbased agreement. In England and Wales, your solicitor can39。t charge you more than 35% of your pensation if you win the case. If you are thinking about signing up for a damagesbased agreement, you should make sure you39。re clear about the terms of the agreement. It might be best to get advice from an