/*
程序效果：数码管显示输入，数码管为递增显示，即像
手机打电话时输入号码一样，同时蜂鸣器发出
不同的音律程序简单紧凑理解相对困难，但
只要把上一程序弄懂，本程序即可理解
*/
#include<reg52.h> //头文件
#include<intrins.h>
#define uchar unsigned char //宏定义
#define uint unsigned int
sbit fmq=P3^4; //位声明，驱动蜂鸣器管脚
code uchar table[]={0x3f,0x06,0x5b,//数码管显示的数值
0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,
0x77,0x7c,0x39,0x5e,0x79,0x71};
code uchar key_tab[17]={ //此数组为键盘编码
0xed,0x7e,0x7d,0x7b, // 0，1，2，3，
0xbe,0xbd,0xbb,0xde, // 4，5，6，7，
0xdd,0xdb,0x77,0xb7, // 8，9，a, b，
0xee,0xeb,0xd7,0xe7,0xff}; // c，d，e，f，
uchar l_tmpdata[8]={0,0,0,0,0,0,0,0};
uchar code freq[16*2]={
0xf8,0x8c,//DO
0xf9,0x58,//RE
0xfa,0x14,//MI
0xfa,0x67,//FA
0xfb,0x04,//SO
0xfb,0x8f,//LA
0xfc,0x0b,//SI
0x4D,0xF8,//00466HZ 1# //13
0xBD,0xF8,//00494HZ 2 //14
0x24,0xF9,//00523HZ 2# //15
0x87,0xF9,//00554HZ 3 //16
0xE4,0xF9,//00587HZ 4 //17
0x3D,0xFA,//00622HZ 4# //18
0x90,0xFA,//00659HZ 5 //19
0xDE,0xFA,//00698HZ 5# //20
0x29,0xFB,//00740HZ 6 //21
};
uchar l_key=0xff; //定义变量，存放键值
uchar l_keyold=0xff;//作为按键松开否的凭证
uint th,tl;
void readkey(); //获取键值的子函数
void display(uchar *lp,uchar lc); //显示子函数
void delay(); //延时子函数
void init(); //初始化子函数
void main() //主函数
{
init(); //调用初始化子函数
}
void init()
{
uchar i,j; //定义局部变量
TMOD = 0x01; //使用定时器0的16位工作模式
TR0 = 0;
ET0 = 1;
EA = 1;
while(1)
{
readkey(); //调用获取键值子函数，即扫描键盘，获取键值
if((l_keyold!=0xff)&&(l_key<16)) //只有按下0-9的按键才处理
{
if(j<8) //用j来表示按下的按键个数，最多不超过8个
j++;
for(i=j-1;i>0;i--) //循环移位数据
l_tmpdata[i]=l_tmpdata[i-1];
l_tmpdata[0]=l_key; //移完数据，尾上补上新输入的数据
l_key=0xff;
}
display(l_tmpdata,j); //输出获取的键码值
}
}
void readkey() //获取按键值的子函数
{
uchar i,j,key;
j=0xfe; //设定初值
key=0xff;
for(i=0;i<4;i++) //P0口的低4位循环输出0，扫描键盘
{
P0=j;
if((P0&0xf0)!=0xf0) //判断是否有按键按下，有则：高4位不可能全为1
{
key=P0; //读取P0的值，退出循环，否则继续循环
break;
}
j=_crol_(j,1); //此函数的功能为：左移循环移位
}
if(key==0xff) //读取不到P0口的值 比如干扰，则不作任何处理
{
l_keyold=0xff;
TR0=0;
fmq=1; //按键松开，蜂鸣器停止响
return;
}
if(l_keyold==key) //检查按键是否松开，相等的话则没有松开
return;
th=freq[2*i];
tl=freq[2*i+1];
TR0=1;
l_keyold=key; //获取键码，作为放开的凭证
for(i=0;i<17;i++) //查表获取相应的16进制值存放l_key中
{
if(key==key_tab[i])
{
l_key=i;
break;
}
}
}
void display(uchar *lp,uchar lc)//显示子函数
{
uchar i;
P2=0;
P1=0x07; //点亮第八个数码管
for(i=0;i<lc;i++)
{
P2=table[lp[i]];
delay();
P2=0;
if(i==7)
break;
P1--;
}
}
void delay()//延时子函数，即五个空指令
{
_nop_();_nop_();_nop_();_nop_();_nop_();
}
void timer0() interrupt 1
{
TL0=th;
TH0=tl; //调入预定时值
fmq=~fmq; //取反音乐输出IO
}
您可从 http://www.51hei.com/ziliao/file/dianzq.rar 下载本程序的完整版本
已经测试成功.