【導讀】本文介紹了一種基于單片機的紅外線遙控電子密碼鎖的設計方案。它是以單片機為核心，通過編程來實現(xiàn)的。本設計由硬件部分和軟件部分組成。本機開鎖電路是由鍵盤、顯示器、報警器組成，當沒有接收到遙控信號時，由鍵。的，可以進行遠距離遙控開鎖。軟件部分是在偉福環(huán)境下用匯編語言進行編寫的。通過此方案設計的密碼鎖保密強，靈活性高，適用范圍廣，可以滿足安全性要求。夠適應其他特殊環(huán)境的使用需求。

　　

【正文】 CPL A ANL A,07H JZ ZZ SJMP ZZ1 ZZ:LJMP WAIT ZZ1:ACALL D10MS MOV A,P1 CPL A ANL A,07H JZ SS SS:LJMP WAIT PP:CJNE A,01H,JP2 MOV P2,76H LJMP K0P1 JP1:CJNE A,02H,JP2 MOV P2,76H LJMP K0P1 JP2:CJNE A,04H,KEY MOV P2,76H JP3:MOV A,P1 ANL A,07H CJNE A,07H,JP3 LJMP LP1 K0P1:MOV A,P1 ANL A,07H CJNE A,07H,K0P1 LJMP KEP1 JP:LCALL D10MS MOV A,P0 CPL A 28 ANL A,0FFH JZ C6 CJNE A,01H,KEY02 MOV P2,76H LJMP KEY1 KEY02:CJNE A,02H,KEY03 MOV P2,76H LJMP KJP1 KEY03:CJNE A,04H,KEY04 MOV P2,76H LJMP KJP1 KEY04:CJNE A,08H,KEY05 MOV P2,76H LJMP KJP1 KEY05:CJNE A,10H,KEY06 MOV P2,76H LJMP KJP1 KEY06:CJNE A,08H,KEY07 MOV P2,76H LJMP KJP1 KEY07:CJNE A,10H,KEY08 MOV P2,76H LJMP KJP1 KEY08:CJNE A,10H,C6 MOV P2,76H LJMP KJP1 KJP1:MOV A,P0 CJNE A,0FFH,KJP1 C6:LJMP WAIT 。************************************************* 29 KEY1:LCALL MP CJNE A,02H,KEY03 MOV P2,76H KEY2:LCALL MP CJNE A,04H,KEY02 MOV P2,76H KEY3:LCALL MP CJNE A,08H,KEY02 MOV P2,76H KEY4:LCALL MP CJNE A,10H,KEY02 MOV P2,76H KEY5:MOV A,P0 CJNE A,0FFH,KEY5 MOV P2,00H MOV R5,30H KEY6:MOV A,P0 CPL A ANL A,0FFH JNZ BB2 MOV A,P1 CPL A ANL A,07H JZ BB1 LCALL D10MS MOV A,P1 CPL A ANL A,07H JZ BB1 CJNE A,04H,B1 30 MOV P2,76H LJMP LP2 B1:CJNE A,01H,BL1 MOV P2,76H LJMP K0P1 BL1:CJNE A,02H,BB1 MOV P2,76H LJMP K0P1 BB2:LCALL D10MS MOV A,P0 CPL A ANL A,0FFH JZ BB1 LJMP KEY02 BB1:MOV R7,0C8H BB4:MOV R6,0F9H NOP NOP BB5:DJNZ R6,BB5 DJNZ R7,BB4 DJNZ R5,KEY6 LJMP WAIT 。********************************************密碼 81675 程序 KEP2:MOV P2,00H MOV A,P0 CPL A ANL A,0FFH JNZ HP MOV A,P1 CPL A 31 ANL A,07H JZ C9 LCALL D10MS MOV A,P1 CPL A ANL A,07H JZ C9 BB:CJNE A,01H,HP1 MOV P2,76H LJMP K1P1 HP1:CJNE A,02H,HP2 MOV P2,76H LJMP K1P1 HP2:CJNE A,04H,C9 MOV P2,76H HP3:MOV A,P1 ANL A,07H CJNE A,07H,HP3 MOV P2,00H LJMP LP1 K1P1:MOV A,P1 ANL A,07H CJNE A,07H,K1P1 C9:LJMP WAIT HP:LCALL D10MS MOV A,P0 CPL A ANL A,0FFH JZ C9 CJNE A,10H,K0Y02 32 MOV P2,76H LJMP K0Y1 K0Y02:CJNE A,01H,K0Y03 MOV P2,76H LJMP KUP1 K0Y03:CJNE A,02H,K0Y04 MOV P2,76H LJMP KUP1 K0Y04:CJNE A,04H,K0Y05 MOV P2,76H LJMP KUP1 K0Y05:CJNE A,08H,K0Y06 MOV P2,76H LJMP KUP1 K0Y06:CJNE A,20H,K0Y07 MOV P2,76H LJMP KUP1 K0Y07:CJNE A,40H,K0Y08 MOV P2,76H LJMP KUP1 K0Y08:CJNE A,80H,U2 MOV P2,76H LJMP KUP1 KUP1:MOV A,P0 CJNE A,0FFH,KUP1 U2:LJMP WAIT K0Y1:LCALL MP CJNE A,08H,K0Y02 MOV P2,76H KOY2:LCALL MP 33 CJNE A,04H,K0Y02 MOV P2,76H K0Y3:LCALL MP CJNE A,02H,K0Y02 MOV P2,76H K0Y4:LCALL MP CJNE A,01H,K0Y03 MOV P2,76H K0Y6:MOV A,P0 CPL A ANL A,0FFH JNZ PP2 MOV A,P1 CPL A ANL A,07H JZ PP1 LCALL D10MS MOV A,P1 CPL A ANL A,07H JZ PP1 CJNE A,04H,Y1 MOV P2,76H LJMP LP2 Y1:CJNE A,01H,Y11 MOV P2,76H LJMP K1P1 Y11:CJNE A,02H,PP1 MOV P2,76H LJMP K1P1 34 PP2:LCALL D10MS MOV A,P0 CPL A ANL A,0FFH JZ PP1 LJMP K0Y02 PP1:MOV R7,0C8H PP4:MOV R6,0F9H NOP NOP PP5:DJNZ R6,PP5 DJNZ R7,PP4 DJNZ R5,K0Y6 LJMP WAIT 。****************************************報警程序 LP1:SETB INC R0 P019:MOV R3,05H P020:MOV R7,0A0H P018:SETB LCALL P01A CLR LCALL P01A DJNZ R7,P018 DJNZ R3,P020 CLR CJNE R0,03H,P017 LJMP P019 P017:CLR LJMP WAIT 35 。******************************************開鎖程序 LP2:SETB LCALL T5S CLR MOV R0,00H LJMP WAIT 。******************************************判斷鍵是否釋放 MP:MOV A,P0 CJNE A,0FFH,MP MOV P2,00H PM:MOV R5,30H LCALL TP RET 。******************************************判斷鍵是否有按下 TP:MOV A,P0 CPL A ANL A,0FFH JNZ AP MOV A,P1 CPL A ANL A,07H JZ TP3 LCALL D10MS MOV A,P1 CPL A ANL A,07H JZ TP3 LCALL D10MS MOV A,P1 CPL A 36 ANL A,07H JZ TP3 CJNE A,04H,C1 MOV P2,76H C3:MOV A,P1 ANL A,07H CJNE A,07H,C3 MOV P2,00H LJMP LP1 C1:CJNE A,01H,C2 MOV P2,3FH LJMP KCP1 C2:CJNE A,02H,U11 MOV P2,6FH LJMP KCP1 KCP1:MOV A,P1 ANL A,07H CJNE A,07H,KCP1 U11:LJMP WAIT AP:LCALL D10MS MOV A,P0 CPL A ANL A,0FFH JZ TP3 RET 。*******************************************400ms 延時程序 TP3:MOV R7,0C8H TP1:MOV R6,0F9H NOP NOP 37 TP2:DJNZ R6,TP2 DJNZ R7,TP1 DJNZ R5,TP LJMP WAIT 。********************************************10ms 延時程序 D10MS:MOV R7,05H LOOP1:MOV R6,0F9H NOP NOP LOOP2:DJNZ R6,LOOP2 DJNZ R7,LOOP1 RET P01A:MOV R2,06H LCALL DELY RET 。***************************************************延時程序 DELY:PUSH 02H DEL2:PUSH 02H DEL3:PUSH 02H DEL4:DJNZ R2,DEL4 POP 02H DJNZ R2,DEL3 POP 02H DJNZ R2,DEL2 POP 02H DJNZ R2,DELY RET 。**************************************************5s 延時程序 T5S:MOV R4,15H TS1:MOV R3,64H 38 TS2:MOV R2,05H TS3:MOV R1,0F9H NOP NOP TS4:DJNZ R1,TS4 DJNZ R2,TS3 DJNZ R3,TS2 DJNZ R4,TS1 RET 遙控接受程序 WAIT:JBC RI,LOOP5 LJMP KEY LOOP5:MOV R0,51H MOV R7,03H LOOP6:MOV S,QBUF JNB ,LOOP7 JNB RB8,LOOP8 LOOP0:MOV @R0,A MOV R1,51H CJNE R1,1EH,LP DJNZ 52H,KP CLR MOV 52H,KP CLP MOV 52H,02H MOV R0,00H LJMP WAIT KP:SETB LJMP WAIT 39 LOOP7:JB RB8,LOOP8 LJMP LOOP9 LOOP8:SETB LJMP WAIT END 遙控發(fā)送程序 ORG 0000H LOOP:MOV SCON,0C0H MOV TMOD,02H MOV PCON,00H MOV TL1.0F4H MOV TH1,0F4H CP:JB LCSLL PP JB ,CP SETB TR1 MOV 50H,5FH MOV R0,50H MOV R1,05H IND:MOV A,@R0 MOV C,P MOV TB8,C MOV SUBF,A AAA:JNB ,ON1 BBB:JB ,CCC AMP AAA SETB AJMP BBB ON1:ACALL ON 40 AJMP AAA PP:MOV R6,05H 100P3:MOV R5,0F9HP NOP NOP 100P4:DJNZ R5,100P4 DJNZ R6,100P3 RET ON:CP1 ； 0 電平 調(diào)制 程序 CP1 CP1 CP1 …… RET EN 1