数码管显示4×4键盘矩阵按键 单片机

数码管显示4×4键盘矩阵按键，内附源代码，仿真图，实测可用

#include 
#define uchar unsigned char
#define uint unsigned int
sbit BEEP = P3^7;

uchar code DSY_CODE[]=
{
 	0xc00xf90xa40xb00x990x920x820xf80x800x900x880x830xc60xa10x860x8e0x00
};
uchar Pre_KeyNO = 16KeyNO = 16;

void DelayMS（uint ms）
{
 	uchar t;
	while（ms--）
	{
	 	for（t=0;t<120;t++）;
	}
}

void Keys_Scan（）
{
 	uchar Tmp;
	P1 = 0x0f;
	DelayMS（1）;
	Tmp = P1 ^ 0x0f;
	switch（Tmp）
	{
	 	case 1: KeyNO = 0; break;
		case 2: KeyNO = 1; break;
		case 4: KeyNO = 2; break;
		case 8: KeyNO = 3; break;
		default: KeyNO = 16;
	}
	P1 = 0xf0;
	DelayMS（1）;
	Tmp = P1 >> 4 ^ 0x0f;
	switch（Tmp）
	{
	 	case 1: KeyNO += 0; break;
		case 2: KeyNO += 4; break;
		case 4: KeyNO += 8; break;
		case 8: KeyNO += 12;
	}
}

void Beep（）
{
 	ucha

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2009-11-26 22:42  17 数码管显示4×4键盘矩阵按键\
     目录           0  2009-08-10 10:07  17 数码管显示4×4键盘矩阵按键\code\
     文件        3429  2009-08-10 10:06  17 数码管显示4×4键盘矩阵按键\code\key-smg
     文件        1103  2009-08-10 10:06  17 数码管显示4×4键盘矩阵按键\code\key-smg.c
     文件          46  2009-08-10 10:06  17 数码管显示4×4键盘矩阵按键\code\key-smg.lnp
     文件        3498  2009-08-10 10:06  17 数码管显示4×4键盘矩阵按键\code\key-smg.LST
     文件        5943  2009-08-10 10:06  17 数码管显示4×4键盘矩阵按键\code\key-smg.M51
     文件        3770  2009-08-10 10:06  17 数码管显示4×4键盘矩阵按键\code\key-smg.OBJ
     文件        1235  2009-08-10 10:07  17 数码管显示4×4键盘矩阵按键\code\key-smg.Opt
     文件         486  2009-08-10 10:07  17 数码管显示4×4键盘矩阵按键\code\key-smg.plg
     文件        2162  2009-08-10 10:07  17 数码管显示4×4键盘矩阵按键\code\key-smg.Uv2
     文件           0  2009-08-10 09:54  17 数码管显示4×4键盘矩阵按键\code\key-smg_Uv2.Bak
     目录           0  2009-11-26 22:42  17 数码管显示4×4键盘矩阵按键\Keil C\
     文件        1428  2009-03-10 21:33  17 数码管显示4×4键盘矩阵按键\Keil C\数码管显示4×4键盘矩阵按键
     文件        1091  2009-03-10 21:33  17 数码管显示4×4键盘矩阵按键\Keil C\数码管显示4×4键盘矩阵按键.hex
     文件       49004  2009-03-10 21:30  17 数码管显示4×4键盘矩阵按键\Last Loaded 数码管显示4×4键盘矩阵按键.DBK
     文件       48907  2009-03-10 21:32  17 数码管显示4×4键盘矩阵按键\数码管显示4×4键盘矩阵按键.DSN
     文件         742  2009-08-10 10:07  17 数码管显示4×4键盘矩阵按键\数码管显示4×4键盘矩阵按键.PWI