简单电子琴程序-用蜂鸣器发声

/*
程序效果：数码管显示输入，数码管为递增显示，即像
   　　　　手机打电话时输入号码一样，同时蜂鸣器发出
   　　　　不同的音律程序简单紧凑理解相对困难，但
   　　　　只要把上一程序弄懂，本程序即可理解
*/
#include //头文件
#include
#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     {
          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  下载本程序的完整版本
已经测试成功.