① 單片機的密碼鎖
TLOW EQU 00H
THIGH EQU 0EEH
COUN0 EQU 200 ;5ms * 200 = 1S
COUN1 EQU 3FH ;密碼的位數
D_TIME EQU 3EH ;設置密碼時的時間限制
SEC EQU 3DH ;秒單元
PASS_OLD EQU 30H
PASS_NEW EQU 40H
SDA EQU P3.4 ;24C01的串列數據線
SCLK24 EQU P3.3 ;24C01的串列時鍾線
;20H.0 為時間限制標記
;20H.1 為按錯鍵標記
;20H.2 為比較對錯標記
;20H.3 為3秒時間標記
RS EQU P2.0
RW EQU P2.1
EN EQU P2.2
X EQU 2FH ;LCD 地址變數
BEEP EQU P3.7
;--------------------------------------------------
ORG 0000H
JMP MAIN
ORG 0BH
JMP T0_INT
;--------------------------------------------------
MAIN:
MOV SP,#60H
MOV A,#00H
MOV D_TIME,A
MOV SEC,A
MOV COUN1,A
MOV R5,#06H
MOV R0,#PASS_OLD
CLR_01: MOV @R0,A
INC R0
DJNZ R5,CLR_01
CLR EN
CLR 20H.0
CLR 20H.1
CLR 20H.2
CLR 20H.3
CALL INIT_TIMER
CALL SET_LCD
CALL MENU1
CALL PASS_READ ;讀出預定密碼。
LOOP1:
CALL SCAN_KEY
CALL DELAY2
CJNE A,#0fH,LOOP1 ;按F鍵啟動進入輸入密碼程序
SETB TR0
LP0: CALL SCAN_KEY ;按住F鍵3秒以上蜂鳴器不響為止
CALL DELAY2
CJNE A,#0fH,LP3
JB 20H.3,LP1 ;3秒到，20H.3置1。
JMP LP0
LP1: CLR TR0 ;停止中斷
MOV SEC,#00H ;秒單元清零
CLR 20H.3 ;清3秒標記位
LP2: MOV P1,#0F0H ;等待鍵釋放
MOV A,P1
CJNE A,#0F0H,LP2
CALL PASS_IN
JB 20H.2,LOOP2 ;密碼正確後方可轉下一步
JMP LP4
LP3: CLR TR0 ;停止中斷
CLR 20H.3 ;清3秒標記位
MOV SEC,#00H ;秒單元清零
LP4: CALL SYS_RST ;系統復位
RET
NOP
NOP
NOP
LJMP MAIN
LOOP2: MOV R4,#06H ;模擬輸出蜂鳴器響六聲
LOOP3: CALL BZ
DJNZ R4,LOOP3
MOV A,#00H
LOOP4: CALL SCAN_KEY
CJNE A,#0AH,LOOP6 ;按A鍵進入PASS_LOOK
CALL PASS_LOOK
LOOP5: CALL SCAN_KEY
CJNE A,#0EH,LOOP5 ;按E鍵退出PASS_LOOK
CALL MENU1
CALL MENU2
LOOP6: CJNE A,#0BH,LOOP8 ;按B鍵進入PASS_SET
CALL PASS_SET
LOOP7: CALL SCAN_KEY
CJNE A,#0EH,LOOP7 ;按E鍵退出PASS_SET
CALL MENU1
CALL MENU2
LOOP8: CJNE A,#0DH,LOOP4 ;按D鍵退出
ACALL MAIN ;PASS_LOOK和PASS_SET狀態
JMP LOOP4
SYS_RST:
RST1: CALL SCAN_KEY
CJNE A,#0DH,RST1 ;"D" 鍵
LJMP MAIN
RET
NOP
NOP
NOP
LJMP MAIN
PASS_IN:
MOV 21H,#03H ;允許輸入三次密碼
P_IN1: MOV DPTR,#IN_PASS0 ;
MOV A,#1 ;
CALL LCD_SHOW
MOV DPTR,#INFO2 ;指針指到顯示信息2
MOV A,#2 ;顯示在第二行
CALL LCD_SHOW
MOV R0,#PASS_OLD
MOV R3,#00H
MOV R2,#09H ;設置LCD地址
MOV COUN1,#06H ;6位密碼
SETB TR0
P_IN2: JB 20H.0,P_IN4
MOV P1,#0F0H
MOV A,P1
CJNE A,#0F0H,P_IN3
jmp P_IN2
P_IN3:
CALL KEY_IN
CALL SETDATA0
CALL BZ
JB 20H.1,P_IN4
DJNZ COUN1,P_IN2
CLR TR0
CLR 20H.0
CALL PASS_COMP
JNB 20H.2,P_IN4 ;比較對錯標記
RET
P_IN4: CLR TR0
CLR 20H.0 ;
CLR 20H.1 ;
CALL INPUT_ERR
DJNZ 21H,P_IN1 ;
RET
IN_PASS0:
DB " INPUT PASSWORD ",0
PASS_COMP:
MOV COUN1,#06H ;比較6位數值
MOV R0,#PASS_OLD
MOV R1,#PASS_NEW
P_COMP0: MOV A,@R0
MOV B,@R1
CJNE A,B,P_COMP1
INC R0
INC R1
DJNZ COUN1,P_COMP0
CALL INPUT_OK
SETB 20H.2
RET
P_COMP1: CLR 20H.2
;CALL INPUT_ERR
RET
PASS_SET:
MOV 21H,#05H ;允許輸入三次密碼
P_SET1: MOV DPTR,#SET_PASS0 ;
MOV A,#1 ;
CALL LCD_SHOW
MOV DPTR,#INFO2 ;指針指到顯示信息2
MOV A,#2 ;顯示在第二行
CALL LCD_SHOW
MOV R3,#00H
MOV R2,#09H ;設置LCD地址
MOV R1,#PASS_NEW
MOV COUN1,#06H ;6位密碼
SETB TR0
P_SET2: JB 20H.0,P_SET4
MOV P1,#0F0H
MOV A,P1
CJNE A,#0F0H,P_SET3
jmp P_SET2
P_SET3:
CALL KEY_IN
CALL SETDATA1
CALL BZ
JB 20H.1,P_SET4
;MOV R5,#04H
;CALL DELAY
DJNZ COUN1,P_SET2
CLR TR0
CLR 20H.0
CALL RESET_OK
CALL EEPW
RET
P_SET4: CLR TR0
CLR 20H.0 ;
CLR 20H.1 ;
CALL RESET_ERR
DJNZ 21H,P_SET1 ;
RET
SET_PASS0:
DB " RESET PASSWORD ",0
MENU1: ;LCD 顯示工作菜單信息
MOV DPTR,#MENU01
MOV A,#1 ;在第一行顯示信息
CALL LCD_SHOW
RET
MENU01: DB "PASSWORD CONTROL",0
MENU2: ;LCD 顯示工作菜單信息
MOV DPTR,#MENU02
MOV A,#2 ;在第一行顯示信息
CALL LCD_SHOW
RET
SETDATA1:
MOV A,R3
ANL A,#0FH ;取出低四位二進制數
PUSH ACC
CLR C
SUBB A,#0AH ;減10
POP ACC
JC ASCII3 ;該數小於10，轉ASCII0
SETB 20H.1
RET
ADD A,#07H ;大於10的數加上37H
ASCII3: ADD A,#30H ;小於10的數加上30H
MOV @R1,A
MOV B,R2
CALL LCDP2
INC R2
INC R1
RET
SETDATA0:
MOV A,R3
ANL A,#0FH ;取出低四位二進制數
PUSH ACC
CLR C
SUBB A,#0AH ;減10
POP ACC
JC ASCII4 ;該數小於10，轉ASCII4
SETB 20H.1
RET
ASCII4: ADD A,#30H ;小於10的數加上30H
MOV @R0,A ;保存密碼值
MOV A,#2AH ;顯示" * "
MOV B,R2
CALL LCDP2
INC R2
INC R0
RET
PASS_LOOK:
MOV DPTR,#LOOK1 ;指針指到顯示信息1
MOV A,#1 ;顯示在第一行
CALL LCD_SHOW
MOV DPTR,#LOOK2 ;指針指到顯示信息2
MOV A,#2 ;顯示在第二行
CALL LCD_SHOW
MOV R1,#PASS_NEW
MOV R2,#09
MOV COUN1,#06
LOOK0: MOV A,@R1
MOV B,R2
CALL LCDP2
INC R2
INC R1
DJNZ COUN1,LOOK0
RET
LOOK1: DB " LOOK PASSWORD ",0 ;LCD 第一行顯示信息
LOOK2: DB "PASSWORD ------ ",0 ;LCD 第二行顯示信息
SCAN_KEY:
SCAN_K: MOV P1,#0F0H
MOV A,P1
CJNE A,#0F0H,KEY_NUM0 ;有鍵按下轉
JMP KEY_END
KEY_NUM0: CALL KEY_IN
CALL BZ
MOV R5,#04H
CALL DELAY
KEY_END: RET
KEY_IN: MOV P1,#0F0H ;置列線為0，行線為1
MOV A,P1
ANL A,#0F0H
MOV B,A
MOV P1,#0FH ;置列線為1，行線為0
MOV A,P1
ANL A,#0FH
ORL A,B ;高四位與低四位重新組合
CJNE A,#0FFH,KEY_IN1 ;0FFH為末按鍵
RET
KEY_IN1: MOV B,A
MOV DPTR,#KEYTABLE
MOV R3,#0FFH
KEY_IN2: INC R3
MOV A,R3
MOVC A,@A+DPTR
CJNE A,B,KEY_IN3
MOV A,R3 ;找到，取順序碼
RET
KEY_IN3: CJNE A,#0FFH,KEY_IN2 ;末完，繼續查
RET ;0FFH為結束碼
SET_LCD:
CLR EN
CALL INIT_LCD ;初始化 LCD
CALL DELAY1
MOV DPTR,#INFO1 ;指針指到顯示信息1
MOV A,#1 ;顯示在第一行
CALL LCD_SHOW
MOV DPTR,#INFO2 ;指針指到顯示信息2
MOV A,#2 ;顯示在第二行
CALL LCD_SHOW
RET
INFO1: DB " ",0 ;LCD 第一行顯示信息
INFO2: DB "PASSWORD ------ ",0 ;LCD 第二行顯示信息INIT_LCD: ;8位I/O控制 LCD 介面初始化
MOV A,#38H ;雙列顯示，字形5*7點陣
CALL WCOM
CALL DELAY1
MOV A,#38H ;雙列顯示，字形5*7點陣
CALL WCOM
CALL DELAY1
MOV A,#38H ;雙列顯示，字形5*7點陣
CALL WCOM
CALL DELAY1
MOV A,#0CH ;開顯示，關游標，
CALL WCOM
CALL DELAY1
MOV A,#01H ;清除 LCD 顯示屏
CALL WCOM
CALL DELAY1
RET
LCD_SHOW: ;在LCD的第一行或第二行顯示信息字元
CJNE A,#1,LINE2 ;判斷是否為第一行
LINE1: MOV A,#80H ;設置 LCD 的第一行地址
CALL WCOM ;寫入命令
CALL CLR_LINE ;清除該行字元數據
MOV A,#80H ;設置 LCD 的第一行地址
CALL WCOM ;寫入命令
JMP FILL
LINE2: MOV A,#0C0H ;設置 LCD 的第二行地址
CALL WCOM ;寫入命令
CALL CLR_LINE ;清除該行字元數據
MOV A,#0C0H ;設置 LCD 的第二行地址
CALL WCOM
FILL: CLR A ;填入字元
MOVC A,@A+DPTR ;由消息區取出字元
CJNE A,#0,LC1 ;判斷是否為結束碼
RET
LC1: CALL WDATA ;寫入數據
INC DPTR ;指針加1
JMP FILL ;繼續填入字元
RET
CLR_LINE: ;清除該行 LCD 的字元
MOV R0,#24
CL1: MOV A,#' '
CALL WDATA
DJNZ R0,CL1
RET
ENABLE: ;寫指令使能
CLR RS ;RS=L,RW=L,D0-D7=指令碼，E=高脈沖
CLR RW
SETB EN
CALL DELAY0
CLR EN
RET
ENABLE1: ;寫數據使能
SETB RS ;RS=H,RW=L,D0-D7=數據，E=高脈沖
CLR RW
SETB EN
CALL DELAY0
CLR EN
RET
DELAY0: MOV R7,#250 ;延時500微秒
DJNZ R7,$
RET
WCOM: ;以8位控制方式將命令寫至LCD
MOV P0,A ;寫入命令
CALL ENABLE
RET
WDATA: ;以8位控制方式將數據寫至LCD
MOV P0,A ;寫入數據
CALL ENABLE1
RET
LCDP2: ;在LCD的第二行顯示字元
PUSH ACC ;
MOV A,B ;設置顯示地址
ADD A,#0C0H ;設置LCD的第二行地址
CALL WCOM ;寫入命令
POP ACC ;由堆棧取出A
CALL WDATA ;寫入數據
RET
CONV:
MOV X,#9 ;設置顯示起始位置
MOV A,R3
ANL A,#0F0H ;取出高四位二進制數
SWAP A ;高四位與低四位互換
PUSH ACC ;壓入堆棧
CLR C ;C=0
SUBB A,#0AH ;減10
POP ACC ;彈出堆棧
JC ASCII0 ;該數小於10，轉ASCII0
ADD A,#07H ;大於10的數加上37H
ASCII0: ADD A,#30H ;小於10的數加上30H
MOV B,X
CALL LCDP2
MOV A,R3
ANL A,#0FH ;取出低四位二進制數
PUSH ACC
CLR C
SUBB A,#0AH ;減10
POP ACC
JC ASCII1 ;該數小於10，轉ASCII1
ADD A,#07H ;大於10的數加上37H
ASCII1: ADD A,#30H ;小於10的數加上30H
INC X
MOV B,X
CALL LCDP2
RET
DELAY2: MOV R5,#15H
DELAY: ;延時R5×10MS
MOV R6,#50
D1: MOV R7,#100
DJNZ R7,$
DJNZ R6,D1
DJNZ R5,DELAY
RET
DELAY1: ;延時5MS
MOV R6,#25
D2: MOV R7,#100
DJNZ R7,$
DJNZ R6,D2
RET
KEYTABLE:
DB 0EEH,0EDH,0EBH,0E7H,0DEH ;0,1,2,3,4, 順序碼
DB 0DDH,0DBH,0D7H,0BEH,0BDH ;5,6,7,8,9,
DB 0BBH,0B7H,07EH,07DH,07BH ;A,B,C,D,E,
DB 077H,0FFH ;F 0FF為結束碼
DB 0DBH,0EEH,0DEH,0BEH,07EH ;0,1,2,3,4, 順序碼
DB 0EDH,0DDH,0BDH,07DH,0EBH ;5,6,7,8,9,
DB 0BBH,07BH,0E7H,0D7H,0B7H ;A,B,C,D,E,
DB 077H,067H,066H,065H,0FFH ;F,C+F,1+F,8+C
INIT_TIMER: ;初始化定時器
MOV TMOD,#01H ;設置定時器0 工作模式為模式1
MOV IE, #82H ;啟用定時器0 中斷產生
MOV TL0,#TLOW
MOV TH0,#THIGH
RET
T0_INT:
PUSH ACC
MOV TL0,#TLOW
MOV TH0,#THIGH
INC D_TIME
MOV A,D_TIME ;5ms 計數值加1
CJNE A,#COUN0,T0_T
MOV D_TIME,#0
INC SEC ;秒加1
MOV A,SEC
CJNE A,#03H,TO_INT0
SETB 20H.3
TO_INT0: CJNE A,#8,T0_T ;是否到8秒？
MOV SEC,#0 ;秒單元清0
SETB 20H.0
T0_T: POP ACC
RETI
PASS_READ:
CALL EEPR
RET
MOV COUN1,#06H ;6位密碼數值
MOV R7,#00H
MOV R1,#PASS_NEW
P_READ: MOV A,R7
MOV DPTR,#R_TABLE
MOVC A,@A+DPTR
MOV @R1,A
INC R1
INC R7
DJNZ COUN1,P_READ
RET
R_TABLE:
DB 35H,36H,34H,34H,38H,38H
COMP_ERR:
MOV DPTR,#COMP_ERR1 ;
MOV A,#2 ;
CALL LCD_SHOW
RET
COMP_ERR1:
DB " PASSWORD ERROR ",0
COMP_OK:
MOV DPTR,#COMP_OK0 ;
MOV A,#2 ;
CALL LCD_SHOW
RET
COMP_OK0:
DB " PASSWORD RIGHT ",0
RESET_ERR:
MOV DPTR,#RESET_ERR0 ;
MOV A,#2 ;
CALL LCD_SHOW
RET
RESET_ERR0:
DB " RESET ERROR ",0
RESET_OK:
MOV DPTR,#RESET_OK0 ;
MOV A,#2 ;
CALL LCD_SHOW
RET
RESET_OK0:
DB " RESET RIGHT ",0
INPUT_ERR:
MOV DPTR,#INPUT_ERR0 ;
MOV A,#2 ;
CALL LCD_SHOW
RET
INPUT_ERR0:
DB " INPUT ERROR ",0
INPUT_OK:
MOV DPTR,#INPUT_OK0 ;
MOV A,#2 ;
CALL LCD_SHOW
RET
INPUT_OK0:
DB " INPUT RIGHT ",0
EEPW: PUSH ACC
PUSH PSW
CLR PSW.3
SETB PSW.4
MOV R1,#PASS_NEW
MOV R7,#06H ;連續寫8個位元組
LCALL START
MOV A,#0A0H ;送器件地址
ACALL SUBS
MOV A,#00H ;送片內位元組地址
ACALL SUBS
AGAIN1:
MOV A,@R1
ACALL SUBS ;調發送單位元組子程序
INC R1
DJNZ R7,AGAIN1 ;連續寫8個位元組
LCALL STOP ;發停止信號
POP PSW
POP ACC
RET
SUBS:
MOV R0,#08H ;發送單位元組子程序
LOOP: CLR SCLK24
RLC A
MOV SDA,C
NOP
SETB SCLK24
ACALL DELAY24
DJNZ R0,LOOP ;循環8次送8個bit
CLR SCLK24
ACALL DELAY24
SETB SCLK24
REP: MOV C,SDA
JC REP ;判應答到否，未到則等待
CLR SCLK24
RET
DELAY24:
NOP
NOP
RET
EEPR: PUSH ACC
PUSH PSW
CLR PSW.3
SETB PSW.4
MOV R7,#06H
MOV R1,#PASS_NEW
LCALL START ;發開始信號
MOV A,#0A0H ;送器件地址
ACALL SUBS ;調發送單位元組子程序
MOV A,#00H ;送片內位元組地址
ACALL SUBS
LCALL START ;再發開始信號
MOV A,#0A1H
ACALL SUBS
MORE: ACALL SUBR
MOV @R1,A
MOV A,#00H
INC R1
DJNZ R7,MORE
LCALL STOP ;送停止信號
POP PSW
POP ACC
RET
SUBR: MOV R0,#08H ;接受單位元組子程序
SUBR2: SETB SCLK24
ACALL DELAY24
MOV C,SDA
RLC A
CLR SCLK24
ACALL DELAY24
DJNZ R0,SUBR2
CJNE R7,#01H,ALOW
SETB SDA ;若是最後一個位元組置SDA=1
AJMP SETOK
ALOW:
CLR SDA ;否則置SDA=0
SETOK: ACALL DELAY24
SETB SCLK24
ACALL DELAY24
CLR SCLK24
ACALL DELAY24
SETB SDA ;應答畢,SDA置1
RET
START:
CLR SDA
ACALL DELAY24
SETB SDA
SETB SCLK24
ACALL DELAY24
CLR SDA
SETB SCLK24
RET
STOP:
CLR SDA
SETB SCLK24
ACALL DELAY24
SETB SDA
ACALL DELAY24
RET
BZ: ;蜂鳴器
MOV R6,#100
B1: CALL DEX
CPL BEEP
DJNZ R6,B1
MOV R5,#20
CALL DELAY
RET
DEX: MOV R7,#180
DE1: NOP
DJNZ R7,DE1
RET
END
② 51單片機電子密碼鎖程序與接線圖
【十四】密碼鎖防火防盜系列
[1]單片機多功能密碼鎖系統/防火防盜系統設計
實現功能：
1、密碼鎖功能/可以修改密碼，下次開機後新密碼仍然有效
2、支持一鍵恢復初始密碼
3、可添加防火防盜報警功能
4、可根據顧客要求進行功能定製
☆已作出的實物優酷視頻演示地址：
http://v.youku.com/v_show/id_XMTUwMjg3MjQyOA==.html
[2]單片機藍牙密碼鎖系統
實現功能：
1、密碼鎖功能/可以修改密碼，下次開機後新密碼仍然有效
2、支持一鍵恢復初始密碼
3、手機藍牙可以實現輸入密碼進行開鎖
4、可根據顧客要求進行功能定製
☆已作出的實物優酷視頻演示地址：
http://v.youku.com/v_show/id_XMjgxNjQ0MjA4MA==.html
[3]單片機雙控密碼鎖系統+GSM 簡訊遠程防盜報警
實現功能：
1、輸入密碼前必須通過無線端進行數據匹配才能進入輸入密碼界面
2、密碼鎖功能/可以修改密碼，下次開機後新密碼仍然有效
3、支持一鍵恢復初始密碼
4、三次開鎖失敗後將判為有不法分子強行輸入密碼， GSM 模塊會以簡訊方式進行通知戶主
5、可根據顧客要求進行功能定製
☆已作出的實物優酷視頻演示地址：
http://v.youku.com/v_show/id_XMjgxNjQ1NTg5Mg==.html
③ 電子密碼鎖設計基於51單片機
[1]單片機多功能密碼鎖系統/防火防盜系統設計
實現功能：
1、 密碼鎖功能/可以修改密碼， 下次開機後新密碼仍然有效
2、 支持一鍵恢復初始密碼
3、 可添加防火防盜報警功能
4、 可進行功能定製
☆已作出的實物優酷視頻演示地址：
http://v.youku.com/v_show/id_XMTUwMjg3MjQyOA==.html
單片機藍牙密碼鎖系統
實現功能：
1、 密碼鎖功能/可以修改密碼， 下次開機後新密碼仍然有效
2、 支持一鍵恢復初始密碼
3、 手機藍牙可以實現輸入密碼進行開鎖
4、 可進行功能定製
☆已作出的實物優酷視頻演示地址：
http://v.youku.com/v_show/id_XMjgxNjQ0MjA4MA==.htm
④ 智能鎖是什麼怎麼用
智能鎖（外文名Intelligent Lock）是指區別於傳統機械鎖，在用戶識別、安全性、管理性方面更加智能化的鎖具。智能鎖是門禁系統中鎖門的執行部件。
使用方法：安裝後，可以根據指紋鎖的開鎖原理，使用中文、智能卡、密碼或其他方式開鎖。
⑤ 基於單片機課程設計密碼鎖
採用數字密碼鎖電路的好處就是設計簡單。用以74LS112雙JK觸發器構成的數字邏輯電路作為密碼鎖的核心控制，共設了9個用戶輸入鍵，其中只有4個是有效的密碼按鍵，其它的都是干擾按鍵，若按下干擾鍵，鍵盤輸入電路自動清零，原先輸入的密碼無效，需要重新輸入；如果用戶輸入密碼的時間超過40秒（一般情況下，用戶不會超過40秒，若用戶覺得不便，還可以修改）電路將報警80秒，若電路連續報警三次，電路將鎖定鍵盤5分鍾，防止他人的非法操作。
電路由兩大部分組成：密碼鎖電路和備用電源(UPS)，其中設置UPS電源是為了防止因為停電造成的密碼鎖電路失效，使用戶免遭麻煩。
密碼鎖電路包含：鍵盤輸入、密碼修改、密碼檢測、開鎖電路、執行電路、報警電路、鍵盤輸入次數鎖定電路。