任务八：4-4矩阵键盘显示及扬声器.docVIP

任务八：4*4矩阵键盘数码管显示实验   ORG 00H LJMP MAIN ORG 30H MAIN: MOV P2,#0FFH ;初始化 MOV P0,#0FFH MOV P1,#0FFH MOV 30H,#00H ;键值编码放置单元 MOV 31H,#00H ;键值放置单元 LOOP: LCALL KEYS ;按键判断子程序 LCALL DELAY ;延时10MS LCALL KEYS ;按键判断 LCALL JISUAN ;计算键值 LCALL SHOW ;数码管显示键值 LCALL BEEP ;蜂鸣器滴一声 LJMP LOOP KEYS: MOV P1,#0F0H ;按键判断子程序， MOV A,P1 ;有键按下将键值 ANL A,#0F0H ;编码放进30H中 MOV B,A MOV P1,#0FH MOV A,P1 ANL A,#0FH ORL A,B CJNE A,#0FFH, KEYS1 LJMP KEYS KEYS1:MOV 30H,A RET JISUAN:MOV R1 ,#0FFH;计算子程序， JISUAN1:INC R1 ;把键值计算出来， MOV A,R1 ;放进31H中。 MOV DPTR,#TAB1 MOVC A,@A+DPTR CJNE A,30H, JISUAN1 MOV 31H,R1 RET SHOW: MOV A,31H ;显示子程序， MOV DPTR,#TAB2 ;将31H中内容 MOVC A,@A+DPTR;显示出来 MOV P0,#0FFH MOV P0,A MOV P2,#0FH RET BEEP:MOV R5,#200;蜂鸣器滴一声子程序 BEEP1: CLR P3.7 ;P3.7引脚不断输出 LCALL DEL ;方波，使蜂鸣器发 SETB P3.7 ;出声音，改变其输 LCALL DEL ;出频率，可调整蜂 DJNZ R5, BEEP1 ;鸣器音调 RET DEL:MOV R7,#225;供蜂鸣器使用延时 DJNZ R7,$ RET DELAY:MOV R7,#40;延时10MS子程序 D1:MOV R6,#123 NOP D2:DJNZ R6, D2 DJNZ R7,D1 RET TAB1: ;键值编码表 DB 0EEH,0EDH,0EBH,0E7H DB 0DEH,0DDH,0DBH,0D7H DB 0BEH,0BDH,0BBH,0B7H DB 07EH,07DH,07BH,077H TAB2: ;数码管段码表 DB 0C0H,0F9H,0A4H,0B0H DB 099H,092H,082H,0F8H DB 080H,090H,088H,083H DB 0C6H,0A1H,086H,08EH END 说明:电路图中R17电阻为1K，方能仿真。 开始 初始化 键值加1 延时 行线为0，列线为1 计算键值 显示键值 蜂鸣器响一声 结束 主程序流程图 按键判断子程序 计算键值子程序 查编码表取值到A 取P1口值到A 屏蔽行线值 值放B中暂存 屏蔽列线值 取P1口值到A 行线为1，列线为0 合并A,B值 A=0FFH? 键值编码放入30H中 N Y 返回 按键判断 计算键值子程序 按键判断 按键判断子程序 A=键值编码（30H值）? Y 键值放入31H中 返回 N 显示键值子程序 显示子程序 查段码表取值到A 取显示值（31H值） 段码值送P0口 位码值送P2口 返回