流水灯,LCD1602,矩阵键盘.doc

流水灯,LCD1602,矩阵键盘 流水灯程序 org 0000h ;开始 ajmp loop org 0030h loop:mov p1,#0ffh lcall delay ;延时一段时间? clr p1.0 lcall delay setb p1.0 lcall delay clr p1.1 ;点亮灯p1.1 lcall delay setb p1.1 clr p1.2 ;点亮灯p1.2 lcall delay setb p1.2 clr p1.3 ;点亮灯p1.3 lcall delay setb p1.3 clr p1.4 ;点亮灯p1.4 lcall delay setb p1.4 clr p1.5 ;点亮灯p1.5 lcall delay setb p1.5 clr p1.6 ;点亮灯p1.6 lcall delay setb p1.6 clr p1.7 ;点亮灯p1.7 lcall delay setb p1.7 AJMP LOOP;到最开始loop处重新运行 delay:mov r7,#250 ;延时。 d1: mov r6,#250 d2: djnz r6,d2 djnz r7,d1 ret end 数码管程序 org 0000h //开始 ajmp main org 0030h //到0030h处避开00-30的敏感地址 main:mov dptr,#tab mov r3,#0feh//位选扫描字 d3:mov a,#00h movc a,@a+dptr mov p1,#0ffh//关闭段选，防止重影 mov p0,r3 mov p1,a acall delay inc dptr mov a,r3 rl a mov r3,a ajmp d3 tab:db 84h ,0bdh,0c8h,98h,0b1h//0-9的段选码，因具体硬件而异 db 92h ,82h ,0bch ,80h ,0b0h delay:mov r7,#20 ;延时。 d1: mov r6,#50 d2: djnz r6,d2 djnz r7,d1 ret end 4*4矩阵键盘程序 ORG 0000H AJMP MAIN ORG 0030H MAIN: LCALL KEYSHI//判断有无键按下子程序 LCALL KEYSCAN//判断哪个键按下子程序 LCALL DISPLAY//显示程序 LJMP MAIN KEYSHI: MOV P2,#0F0H//p2口高四位作为输入口，先写1 NOP NOP MOV A,P2//读状态 XRL A,#0F0H//异或处理，有键按下不为0 JNZ DELAY LJMP MAIN DELAY: lcall fmq //蜂鸣器程序 MOV R4,#08FH ; 延时消抖子程序 D1: MOV R5,#0FAH D2: DJNZ R5,D2 DJNZ R4,D1 MOV P2,#0F0H MOV A,P2 XRL A,#0F0H ; 再一次检测键的状态，如果仍保持闭合状态电平，则确认真正有键按下 JZ MAIN RET KEYSCAN: MOV R0,#00H ; 行计数器 MOV R1,#00H ; 列计数器 MOV R2,#0FEH; 先将行计数器，列计数器设置为零，然后再设置行扫描处值为零 MOV R3,#04H KEY: MOV P2, R2 KEY0: JB P2.4, KEY1 MOV R1, #00H LJMP NUM KEY1: JB P2.5, KEY2 MOV R1, #01H LJMP NUM KEY2: JB P2.6, KEY3 MOV R1, #02H LJMP NUM K