4x4矩阵开关控制数码管显示0-F

4x4矩阵开关控制数码管显示0-F的Keil uVision2的代码以及proteus原理图的整个工程

#include
#define key_port P2
sbit key_port_0=P3^0;
sbit key_port_1=P3^1;
sbit key_port_2=P3^2;
sbit key_port_3=P3^3;
sbit key_port_4=P3^4;
sbit key_port_5=P3^5;
sbit key_port_6=P3^6;
sbit key_port_7=P3^7;
unsigned char code key_table[] = {0x3f0x060x5b0x4f0x660x6d0x7d0x070x7f0x6f0x770x7c0x390x5e0x790x71};//共阴极字型码
void delay（unsigned int i） 
	{
		unsigned int j = 0;
	  	while（--i != 0）
	    	for（j = 0; j < 125; ++j）;           
	}
	unsigned char keyscan（void）
	{
    	key_port_0=key_port_1=key_port_2=key_port_3=0; 
	    key_port_4=key_port_5=key_port_6=key_port_7=1;
	    if（key_port_4==0||key_port_5==0||key_port_6==0||key_port_7==0） 
	     {  
	        delay（10）;//去除抖动
	        if（key_port_4==0||key_port_5==0||key_port_6==0||key_port_7==0）return

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      86164  2011-08-22 10:13  2011.8.19 4x4jianpan\4X4 KeyBoard （2）.DSN

     文件        768  2011-09-01 15:28  2011.8.19 4x4jianpan\4X4 KeyBoard （2）.PWI

     文件       5391  2011-08-22 12:15  2011.8.19 4x4jianpan\4x4jianpan

     文件       3118  2011-08-22 12:15  2011.8.19 4x4jianpan\4x4jianpan.c

     文件       1023  2011-08-22 12:15  2011.8.19 4x4jianpan\4x4jianpan.hex

     文件         53  2011-08-22 12:15  2011.8.19 4x4jianpan\4x4jianpan.lnp

     文件       6751  2011-08-22 12:15  2011.8.19 4x4jianpan\4x4jianpan.LST

     文件       9506  2011-08-22 12:15  2011.8.19 4x4jianpan\4x4jianpan.M51

     文件       5302  2011-08-22 12:15  2011.8.19 4x4jianpan\4x4jianpan.OBJ

     文件       1686  2011-08-23 18:06  2011.8.19 4x4jianpan\4x4jianpan.Opt

     文件        163  2011-08-23 18:06  2011.8.19 4x4jianpan\4x4jianpan.plg

     文件       2198  2011-08-23 16:12  2011.8.19 4x4jianpan\4x4jianpan.Uv2

    .......      1684  2011-08-23 16:12  2011.8.19 4x4jianpan\4x4jianpan_Opt.Bak

    .......      2055  2011-08-22 10:13  2011.8.19 4x4jianpan\4x4jianpan_Uv2.Bak

     文件      40722  2011-08-19 18:09  2011.8.19 4x4jianpan\Last Loaded 4X4 KeyBoard （2）.DBK

     文件       5115  2002-04-16 15:32  2011.8.19 4x4jianpan\STARTUP.A51

     文件      11666  2011-08-22 12:15  2011.8.19 4x4jianpan\STARTUP.LST

     文件        749  2011-08-22 12:15  2011.8.19 4x4jianpan\STARTUP.OBJ

     目录          0  2011-09-01 15:28  2011.8.19 4x4jianpan

----------- ---------  ---------- -----  ----

               184114                    19