找回密碼
 立即注冊(cè)

QQ登錄

只需一步,快速開始

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

單片機(jī)密碼門Proteus仿真程序

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
密碼門


單片機(jī)源程序如下:
  1.       ORG 0000H

  2.       JMP  START

  3. START:

  4.       MOV  R0, #7

  5.       CLR  P1.6

  6.       MOV  P2, #01111110B

  7. LOOP:

  8.       MOV  A, P1

  9.       MOV  B, A

  10.       ORL  A, #01000000B

  11.       CPL  A

  12.       JZ LOOP

  13.       CALL DL20MS

  14.       MOV  A, P1

  15.       CJNE A, B, LOOP


  16.       MOV  C, ACC.7

  17.        CPL  C

  18.       RL A

  19.       MOV  ACC.7, C

  20.       CLR  ACC.0

  21.       MOV  P2, A




  22. LOP2:

  23.       MOV  A, P1

  24.       ORL  A, #01000000B

  25.       CPL  A

  26.       JNZ  LOP2





  27.       MOV  P2, #01111110B




  28.       JNB  B.0, KEY0

  29.       JNB  B.1, KEY1

  30.       JNB  B.2, KEY2

  31.       JNB  B.3, KEY3

  32.       JNB  B.4, KEY4

  33.       JNB  B.5, KEY5

  34.       JNB  B.7, KEY7

  35.       JMP  LOOP



  36. KEY0:

  37.       CJNE R0, #7, LOOP

  38.       DEC  R0

  39.       JMP  LOOP

  40. KEY1:

  41.       CJNE R0, #6, LOOP

  42.       DEC  R0

  43.        JMP  LOOP

  44. KEY2:

  45.        CJNE R0, #5, LOOP

  46.         DEC  R0

  47.        JMP  LOOP

  48. KEY3:

  49.       CJNE R0, #4, LOOP

  50.        DEC  R0

  51.        JMP  LOOP

  52. KEY4:

  53.         CJNE R0, #3, LOOP

  54.        DEC  R0

  55.        JMP  LOOP

  56. KEY5:

  57.        CJNE R0, #2, LOOP

  58.        DEC  R0

  59.        JMP  LOOP

  60. KEY7:

  61.        CJNE R0, #1, ERROR

  62.        MOV  P2, #0

  63.        SETB P1.6

  64.        SJMP $

  65. ERROR:

  66.        MOV  P2, #0

  67.        SETB P2.0

  68.         SJMP $



  69. DL20MS:

  70.        MOV  R6, #40

  71.        DJNZ R7, $

  72.        DJNZ R6, $ - 2

  73.        RET
  74.   


  75. END
復(fù)制代碼

所有資料51hei提供下載:
密碼門.rar (22.23 KB, 下載次數(shù): 4)


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

使用道具 舉報(bào)

本版積分規(guī)則

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

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

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