单片机键盘程序(4×4矩阵式)

5．程序框图

图4.14.3

6．汇编源程序代码

KEYBUF    EQU 30H

            ORG 00H

START:      MOV KEYBUF,#2

WAIT:  

            MOV P3,#0FFH

            CLR P3.4

            MOV A,P3

            ANL A,#0FH 

            XRL A,#0FH

            JZ NOKEY1

            LCALL DELY10MS

            MOV A,P3

            ANL A,#0FH

            XRL A,#0FH

            JZ NOKEY1

            MOV A,P3

            ANL A,#0FH

            CJNE A,#0EH,NK1

            MOV KEYBUF,#0

            LJMP DK1

NK1:        CJNE A,#0DH,NK2

            MOV KEYBUF,#1

            LJMP DK1

NK2:        CJNE A,#0BH,NK3

            MOV KEYBUF,#2

            LJMP DK1

NK3:        CJNE A,#07H,NK4

            MOV KEYBUF,#3

            LJMP DK1

NK4:        NOP

DK1:   

            MOV A,KEYBUF

            MOV DPTR,#TABLE

            MOVC A,@A+DPTR

            MOV P0,A

DK1A:       MOV A,P3

            ANL A,#0FH

            XRL A,#0FH

            JNZ DK1A

NOKEY1:

            MOV P3,#0FFH

            CLR P3.5

            MOV A,P3

            ANL A,#0FH

            XRL A,#0FH

            JZ NOKEY2

            LCALL DELY10MS

            MOV A,P3

            ANL A,#0FH

            XRL A,#0FH

            JZ NOKEY2

            MOV A,P3

            ANL A,#0FH

            CJNE A,#0EH,NK5

            MOV KEYBUF,#4

            LJMP DK2

NK5:        CJNE A,#0DH,NK6

            MOV KEYBUF,#5

            LJMP DK2

NK6:        CJNE A,#0BH,NK7

            MOV KEYBUF,#6

            LJMP DK2

NK7:        CJNE A,#07H,NK8

            MOV KEYBUF,#7

            LJMP DK2

NK8:        NOP

DK2:   

            MOV A,KEYBUF

            MOV DPTR,#TABLE

            MOVC A,@A+DPTR

            MOV P0,A

DK2A:       MOV A,P3

            ANL A,#0FH

            XRL A,#0FH

            JNZ DK2A

[1] [2] [3] [4]

关键字：单片机  键盘程序  矩阵式

编辑：什么鱼 引用地址：https://www.eeworld.com.cn/mcu/2013/0402/article_12625_2.html

本网站转载的所有的文章、图片、音频视频文件等资料的版权归版权所有人所有，本站采用的非本站原创文章及图片等内容无法一一联系确认版权者。如果本网所选内容的文章作者及编辑认为其作品不宜公开自由传播，或不应无偿使用，请及时通过电子邮件或电话通知我们，以迅速采取适当措施，避免给双方造成不必要的经济损失。