找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 1762|回復(fù): 0
打印 上一主題 下一主題
收起左側(cè)

基于兩個單片機串行通信的電子密碼鎖

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:785718 發(fā)表于 2020-12-17 16:33 | 只看該作者 |只看大圖 回帖獎勵 |倒序瀏覽 |閱讀模式
運用單片機之間的串口通信實現(xiàn)電子密碼鎖的功能。使用單片機自身有的串口可以很方便的實現(xiàn)單片機之間的通信,使輸入的密碼值傳送到主機,檢驗是否是正確的密碼。該電子密碼鎖分兩部分,一部分在外部,有鍵盤部分和密碼顯示;另一部分在內(nèi)部,有密碼設(shè)置和顯示。


ORG   0000H

ajmp  main
org   0030h

main:  MOV   SP,#70
      MOV   SCON,#50H
      MOV   TMOD,#20H
      MOV   TH1,#0F3H
      SETB  TR1  
      MOV   R7,#00H         ;延時
      DJNZ  R7,$
      MOV   R7,#10H         ;內(nèi)定密碼在TABLE的起始地址
      MOV   R6,#06          ;內(nèi)定6個密碼
      MOV   R1,#35H         ;6個密碼分別存入35H~30H地址
L1:   MOV   A,R7            ;內(nèi)定密碼取碼指針
      MOV   DPTR,#TABLE     ;數(shù)據(jù)指針指到TABLE
      MOVC  A,@A+DPTR       ;至TABLE取碼
      MOV   @R1,A           ;存入35H~30H地址
      DEC   R1              ;存下一個地址
      INC   R7              ;取碼指針加1
      DJNZ  R6,L1
START:ORL  P3,#0FFH        ;清除P2
      SETB P3.2
      MOV   R4,#06          ;清除顯示器存放地址40H~45H的地址
      MOV   R0,#40H
CLEAR:MOV   @R0,#00H
      INC   R0
      DJNZ  R4,CLEAR

L2:   MOV   R3,#0F7H        ;掃描指針初值
      MOV   R1,#00H         ;鍵盤取碼指針
L3:   MOV   A,R3
      MOV   P1,A
      MOV   A,P1
      MOV   R4,A
      SETB  C
      MOV   R5,#04H
L4:   RLC   A
      JNC   KEYIN
      INC   R1
      DJNZ  R5,L4
      CALL  DISP
      MOV   A,R3
      SETB  C
      RRC   A
      MOV   R3,A
      JC    L3
      lcall LLL
      JMP   L2
KEYIN:MOV   A,R1
      XRL   A,#0EH
      JZ    X3
      MOV   A,R1
      XRL   A,#0FH
      JZ    X4
      MOV   R7,#10
D1:   MOV   R6,#248
      DJNZ  R6,$
      DJNZ  R7,D1
D2:   MOV   A,P1
      XRL   A,R4
      JZ    D2
      MOV   A,R1
      MOV   DPTR,#TABLE
      MOV   R7,A
      XRL   A,#0AH
      JZ    SET0
      MOV   A,R7
      XRL   A,#0BH
      JZ    START
      MOV   A,R7
      XRL   A,#0CH
      JZ    L2
      MOV   A,R7
      XRL   A,#0DH
      JZ    L2
      MOV   A,R7
      XCH   A,40H
      XCH   A,41H
      XCH   A,42H
      XCH   A,43H
      XCH   A,44H
      XCH   A,45H
      CALL  DISP
      JMP   L2
X3:   JMP   DISP2
X4:   JMP   COMP
DISP: MOV   R0,#45H
DISP1:MOV   A,@R0
      ADD   A,#50H         ;顯示D6
      MOV   P0,A
      CALL  DELAY
      DEC   R0
      MOV   A,@R0          ;D5數(shù)據(jù)值加上74138掃描值
      ADD   A,#40H         ;顯示D5
      MOV   P0,A
      CALL  DELAY
      DEC   R0
      MOV   A,@R0          ;D4數(shù)據(jù)值加上74138掃描值
      ADD   A,#30H         ;顯示D4
      MOV   P0,A           ;掃描延時
      CALL  DELAY
      DEC   R0
      MOV   A,@R0          ;D3數(shù)據(jù)值加上74138掃描值
      ADD   A,#20H         ;顯示D3
      MOV   P0,A           ;掃描延時
      CALL  DELAY
      DEC   R0
      MOV   A,@R0          ;D2數(shù)據(jù)值加上74138掃描值
      ADD   A,#10H         ;顯示D2
      MOV   P0,A           ;掃描延時
      CALL  DELAY
      DEC   R0
      MOV   A,@R0          ;D1數(shù)據(jù)值加上74138掃描值
      ADD   A,#00H         ;顯示D1
      MOV   P0,A           ;掃描延時
      CALL  DELAY
      RET
SET0: MOV   R2,#06H
      MOV   R0,#40H
      MOV   R1,#30H
E1:   MOV   A,@R0
      XCH   A,@R1
      INC   R0
      INC   R1
      DJNZ  R2,E1
      CALL  DELAY
E2:   JMP   START
COMP: MOV   R1,#45H
      MOV   R0,#35H
      MOV   R2,#06H
C1:   MOV   A,@R1
      XRL   A,@R0
      JNZ   C3
      DEC   R1
      DEC   R0
      DJNZ  R2,C1
      CLR   P3.2
      MOV   R2,#0FFH
C2:   MOV   R6,#0FFH
      DJNZ  R6,$
      DJNZ  R2,C2
C3:   JMP   START
DISP2:
      MOV   R0,#35H
      CALL  DISP1
      MOV   A,P1
      XRL   A,R4
      JZ    DISP2
      CALL  DELAY
      JMP   START
DELAY:MOV   R7,#03
D3:   MOV   R6,#248
      DJNZ  R6,$
      DJNZ  R7,D3
      RET
Lll:  JBC   RI,UART
      call  disp
      ret
UART: MOV   A,SBUF
      MOV   R7,A
      XRL   A,#0AH
      JZ    COMPQ
      AJMP COMPA
COMPQ: LJMP COMP

COMPA: MOV   A,R7

`KCB`$$FATKOFS1NY1AR[~H.png (44.58 KB, 下載次數(shù): 81)

`KCB`$$FATKOFS1NY1AR[~H.png

Y}7SS(){ZXZ]29B53U)$R{O.png (16 KB, 下載次數(shù): 75)

Y}7SS(){ZXZ]29B53U)$R{O.png

串行通信的電子密碼鎖資料.zip

3.94 MB, 下載次數(shù): 10, 下載積分: 黑幣 -5

評分

參與人數(shù) 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎勵!

查看全部評分

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂 踩
回復(fù)

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

手機版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機教程網(wǎng)

快速回復(fù) 返回頂部 返回列表