Proteus設計的51單片機匯編語言電子密碼鎖

ID:261488 · 發表于 2017-12-14 13:40

密碼鎖仿真圖，源程序代碼。
仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）

單片機匯編語言源程序如下:

;===================================================
;名稱:電子密碼鎖
;作者:小發
;日期:2007年06月13日
;修改日期:2007年06月18日
;說明:首先顯示器提示輸入密碼,密碼在12.5S內輸入有效,
; 輸入次三次錯誤報警10S,輸入正確開門,7秒后返回初態
; 以上參數均可在主程序里設定,修改系統密碼在程序的結尾
;===================================================
RS BIT P2.7
RW BIT P2.6
E BIT P2.5
ENTER BIT 22H.0
OPEN BIT P3.6
SPEAK BIT P3.7
PASSBUF EQU 40H
KEYNUMBER EQU 41H ;存放識別后的按鍵號
ORG 0000H
AJMP MAIN
ORG 0003H
JMP KEY_INT
ORG 000BH
AJMP INTT0
ORG 001BH
AJMP INTT1
ORG 0030H
;========== 主程序開始 ==============
MAIN: MOV 30H,#07H ;輸入密碼為7位最高只可設15位
MOV 42H,#200 ;設定報警的時間,42H單元里的數*50MS
MOV 43H,#250 ;設定開門時間 14的倍數(實際上液晶顯示器執行指令占用了時間,開門時間會比14*250MS大)
;44H號單元存放輸入錯誤的次數
;45H為定時器0中斷次數
;46H為定時器1中斷次數
MOV 47H,#250 ;輸入密碼時間設定,50MS倍數
MOV SP,#60H
CLR OPEN
CLR SPEAK ;初始化輸出設備
CLR ENTER ;標志位初始化
MOV TMOD,#11H ;定時器工作方式2
MOV TH0,#3CH ;初值50MS
MOV TL0,#0BH
MOV TH1,#3CH
MOV TL1,#0BH
SETB EA
SETB ET0
SETB ET1
MOV TCON,#00000000B ;電平觸發
START: MOV R0,30H
MOV R1,#31H
SS1: MOV @R1,#00H
INC R1
DJNZ R0,SS1 ;將輸入密碼緩沖單元清零
MOV P1,#0FH ;初始化按鍵口
MOV R1,#31H ;從31號單元開始存放按建輸入的密碼
CLR 20H ;報警標志清零
CLR 21H ;密碼超時標志
MOV 46H,#00H ;超時后對定時器中斷次數清零,便于下一輪重新計時
INIT: ACALL SELLCD ;設定液晶工作方式
ACALL LINE1 ;在第一行顯示
MOV DPTR,#MES_P ;顯示請輸入密碼
ACALL DISPLAY
setb EX0 ;開中斷,允許鍵盤輸入
KEYIN: JB 21H,ERR ;超時轉到錯誤程序
JNB ENTER,KEYIN ;等待ENTER按下
CLR ENTER
clr EX0 ;密碼輸入完后鎖定鍵盤
;當使用邊沿觸發時用上面的指令為什么禁止不了中斷???
;========== 密碼判斷程序 ============
COMP:
MOV DPTR,#PASS
MOV R4,30H ;密碼的長度
MOV A,#0
MOV R1,#31H
LOOP: MOV R5,A
MOVC A,@A+DPTR
MOV PASSBUF,A ;取出系統設定的密碼
MOV A,@R1 ;從31號單元開始取出輸入的密碼
CJNE A,PASSBUF,ERR ;比較
MOV A,R5
INC A
INC R1 ;取下一位
DJNZ R4,LOOP
;正確
MATCH: MOV A,#01H
ACALL ENABLE ;清屏,光標復位
ACALL LINE1 ;從第一行開始顯示
MOV DPTR,#MES_C
ACALL DISPLAY ;顯示"請進"
ACALL LINE2
MOV DPTR,#TAB_1
ACALL DISPLAY
SETB OPEN ;開門
MOV 44H,#00H ;輸入錯誤次數清零
MOV R6,43H
ACALL DELAY
CLR OPEN ;復位
JMP START
;錯誤
ERR: ACALL BACK
MOV R6,#03H
ACALL DELAY
ACALL BACK ;輸錯提示音,鳴兩下
MOV A,#01H
ACALL ENABLE
ACALL LINE1
MOV DPTR,#MES_E
ACALL DISPLAY ;顯示錯誤
MOV R6,#40H
ACALL DELAY
INC 44H
MOV A,44H
CJNE A,#03H,EE0
EE0: JC ERROUT ;輸錯不到三次返回
MOV 44H,#00H ;清零
ACALL WRANING ;報警
ERROUT: JMP START
;=========== 按鍵中斷服務程序 ==========
KEY_INT:push acc
push psw
clr ex0
acall delay10ms ;延時消抖
SETB TR1 ;啟動定時器
ACALL SMKEY ;按鍵識別
MOV A,KEYNUMBER ;返回按鍵號
ACALL BACK ;按鍵發聲
MOV R3,A
CJNE R3,#0BH,K1 ;ENTER是否按下
SETB ENTER
clr tr1 ;按下確認后關畢定時器
mov 46h,#00h ;對中斷次數清零
AJMP KEY_RTN
K1: ADD A,#30H ;將按鍵號轉換為ASCⅡ碼
MOV @R1,A ;將輸入的密碼存入緩沖單元
INC R1 ;修改地址
ACALL WRDATA ;輸入一位顯示一個"*"
KEY_RTN:pop psw
pop acc
setb ex0
RETI
;=========== 按鍵識別程序 ==========
SMKEY:
MOV A,P1
ANL A,#0FH
WKEY: MOV B,A ;反轉法查詢
MOV P1,#0F0H
NOP
MOV A,P1
ANL A,#0F0H
ORL A,B
MOV P1,#0FH ;還原P1口初態
CJNE A,#0EEH,WKEY1
MOV KEYNUMBER,#00H
AJMP RETURN
WKEY1: CJNE A,#0EDH,WKEY2
MOV KEYNUMBER,#01H
AJMP RETURN
WKEY2: CJNE A,#0EBH,WKEY3
MOV KEYNUMBER,#02H
AJMP RETURN
WKEY3: CJNE A,#0E7H,WKEY4
MOV KEYNUMBER,#03H
AJMP RETURN
WKEY4: CJNE A,#0DEH,WKEY5
MOV KEYNUMBER,#04H
AJMP RETURN
WKEY5: CJNE A,#0DDH,WKEY6
MOV KEYNUMBER,#05H
AJMP RETURN
WKEY6: CJNE A,#0DBH,WKEY7
MOV KEYNUMBER,#06H
AJMP RETURN
WKEY7: CJNE A,#0D7H,WKEY8
MOV KEYNUMBER,#07H
AJMP RETURN
WKEY8: CJNE A,#0BEH,WKEY9
MOV KEYNUMBER,#08H
AJMP RETURN
WKEY9: CJNE A,#0BdH,WKEY10
MOV KEYNUMBER,#09H
AJMP RETURN
WKEY10: CJNE A,#0BbH,WKEY11
MOV KEYNUMBER,#0AH
AJMP RETURN
WKEY11: CJNE A,#0B7H,RETURN
MOV KEYNUMBER,#0BH ;判斷哪個鍵按下,返回相應按鍵號碼
RETURN: MOV P1,#0FH
NOP
NOP
MOV A,P1
CPL A
ANL A,#0FH
JNZ RETURN ;等待按鍵松開
RET
;========== 液晶工作方式設置 ============
SELLCD: MOV A,#01H ;清屏,光標復位
ACALL ENABLE
MOV A,#38H ;設置顯示模式,8位兩行,5*7點陣
ACALL ENABLE
MOV A,#0DH ;顯示器開,允許內爍
ACALL ENABLE
MOV A,#06H ;文字不動,光標右移
ACALL ENABLE
RET
;========== 液晶執行指令 ============
ENABLE: CLR RS
CLR RW ;RS,RW同為低電平時寫入指令
MOV P0,A
CLR E ;E由高變低時執行指令
ACALL WAIT
SETB E
RET
;========== WAIT ============
;判斷液晶是否忙的子程序
WAIT: MOV P0,#0FFH
CLR RS
SETB RW ;RW為高,RS為低時可讀忙信號
CLR E
NOP
SETB E
JB P0.7,WAIT
RET
;========== 顯示的起始地址 ============
;在第一行
LINE1: MOV A,#80H
ACALL ENABLE
RET
;在第二行
LINE2: MOV A,#0C0H
ACALL ENABLE
RET
;=========== 顯示程序 ============
DISPLAY:MOV R7,#00H
NEXT: MOV A,R7
MOVC A,@A+DPTR
CJNE A,#10H,DSP
RET
DSP: ACALL WRDATA
INC R7
AJMP NEXT
;========== 將A里面的數據寫入液晶 ============
WRDATA: SETB RS
CLR RW
MOV P0,A
CLR E
ACALL WAIT
SETB E
RET
;=========== 報警程序 ============
WRANING: SETB TR0
ACALL BACK
MOV R4,#00H
ACALL D2
JNB 20H, WRANING
RET
;=========== 發聲程序 ============
BACK: MOV R0,#100
KK1: CPL SPEAK
LCALL DELAY2MS
DJNZ R0,KK1 ;不斷取反P2.0使其產生一定頻率的方波推動揚聲器
RET ;延時的長短可以改變輸出的頻率
;=========== INTT0 ============
;報警時間設定
INTT0: PUSH ACC
PUSH PSW
MOV TH0,#3CH
MOV TL0,#0BH
INC 45H
MOV A,45H
CJNE A,42H,INTT0OUT
MOV 45H,#00H
SETB 20H ;置標志位
CLR TR0 ;關閉定時器
INTT0OUT:POP PSW
POP ACC
RETI
;=========== INTT1 ============
;輸入超時
INTT1: PUSH ACC
PUSH PSW
INC 46H
MOV A,46H
CJNE A,47H,INTT1OUT
CLR TR1 ;關閉定時器
SETB 21H ;時間到置標志位
MOV 47H,#00H ;中斷次數清零
INTT1OUT:POP PSW
POP ACC
RETI
;=========== 延時程序 ============
DELAY: MOV R4,#38H
D1: MOV R5,#0F9H
DJNZ R5,$
DJNZ R4,D1
DJNZ R6,DELAY ;14R6毫秒
RET
DELAY2MS: MOV R4,#02H
D2: MOV R5,#0F0H
DJNZ R5,$
DJNZ R4,D2
RET
DELAY10ms: MOV R4,#20
D3: MOV R5,#248
DJNZ R5,$
DJNZ R4,D3
RET
PASS: DB "1314520"
MES_P: DB "Password?",10H
MES_C: DB " welcome!",10H
MES_E: DB "Error!",10H
TAB_1: DB "xiao_fa office",10h
END

復制代碼

所有資料51hei提供下載:

Proteus設計的51單片機電子密碼鎖.rar (44.96 KB, 下載次數: 120)

ID:261488 · 發表于 2017-12-14 13:41

頂一下

ID:264175 · 發表于 2017-12-20 16:47

樓主，這個怎么解決

ID:275002 · 發表于 2018-1-11 21:28

頂一下

ID:744548 · 發表于 2020-6-18 20:53

bottlewww 發表于 2017-12-20 16:47
**** 作者被禁止或刪除內容自動屏蔽 ****

這個問題你解決了嗎？

帳號		自動登錄	找回密碼
密碼			立即注冊

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

Proteus設計的51單片機匯編語言電子密碼鎖

評分