密碼門
51hei.png (19.91 KB, 下載次數: 33)
下載附件
2020-1-5 13:00 上傳
單片機源程序如下:
- ORG 0000H
- JMP START
- START:
- MOV R0, #7
- CLR P1.6
- MOV P2, #01111110B
- LOOP:
- MOV A, P1
- MOV B, A
- ORL A, #01000000B
- CPL A
- JZ LOOP
- CALL DL20MS
- MOV A, P1
- CJNE A, B, LOOP
- MOV C, ACC.7
- CPL C
- RL A
- MOV ACC.7, C
- CLR ACC.0
- MOV P2, A
- LOP2:
- MOV A, P1
- ORL A, #01000000B
- CPL A
- JNZ LOP2
- MOV P2, #01111110B
- JNB B.0, KEY0
- JNB B.1, KEY1
- JNB B.2, KEY2
- JNB B.3, KEY3
- JNB B.4, KEY4
- JNB B.5, KEY5
- JNB B.7, KEY7
- JMP LOOP
- KEY0:
- CJNE R0, #7, LOOP
- DEC R0
- JMP LOOP
- KEY1:
- CJNE R0, #6, LOOP
- DEC R0
- JMP LOOP
- KEY2:
- CJNE R0, #5, LOOP
- DEC R0
- JMP LOOP
- KEY3:
- CJNE R0, #4, LOOP
- DEC R0
- JMP LOOP
- KEY4:
- CJNE R0, #3, LOOP
- DEC R0
- JMP LOOP
- KEY5:
- CJNE R0, #2, LOOP
- DEC R0
- JMP LOOP
- KEY7:
- CJNE R0, #1, ERROR
- MOV P2, #0
- SETB P1.6
- SJMP $
- ERROR:
- MOV P2, #0
- SETB P2.0
- SJMP $
- DL20MS:
- MOV R6, #40
- DJNZ R7, $
- DJNZ R6, $ - 2
- RET
-
- END
所有資料51hei提供下載:
密碼門.rar
(22.23 KB, 下載次數: 4)
2020-1-5 08:25 上傳
點擊文件名下載附件
下載積分: 黑幣 -5
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
