简易电子琴单片机源程序

fanichicl · 发表于 2019-1-9 09:53

EDA365欢迎您登录！

您需要登录才可以下载或查看，没有帐号？注册

x

简易电子琴单片机源程序
$ `5 @3 }9 l5 k5 `. k, o

电子琴按键音乐器：
/*
跳线设置:默认跳线位
程序效果：用按键T0 S4 S5控制音符的输出
*/
#include<reg52.h> //头文件
#define uchar unsigned char //宏定义
#define uint  unsigned int
sbit fmq=P2^2; //定义蜂鸣器的引脚
uchar code freq[36*2]={ //这些音乐频率我也不懂，关键是我不懂音律
0xA9,0xEF,//00220HZ ,1  //0
0x93,0xF0,//00233HZ ,1#
0x73,0xF1,//00247HZ ,2
0x49,0xF2,//00262HZ ,2#
0x07,0xF3,//00277HZ ,3
0xC8,0xF3,//00294HZ ,4
0x73,0xF4,//00311HZ ,4#
0x1E,0xF5,//00330HZ ,5
0xB6,0xF5,//00349HZ ,5#
0x4C,0xF6,//00370HZ ,6
0xD7,0xF6,//00392HZ ,6#
0x5A,0xF7,//00415HZ ,7
0xD8,0xF7,//00440HZ 1    //12
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
0x6F,0xFB,//00784HZ 6# //22
0xB1,0xFB,//00831HZ 7    //23
0xEF,0xFB,//00880HZ `1
0x2A,0xFC,//00932HZ `1#
0x62,0xFC,//00988HZ `2
0x95,0xFC,//01046HZ `2#
0xC7,0xFC,//01109HZ `3
0xF6,0xFC,//01175HZ `4
0x22,0xFD,//01244HZ  `4#
0x4B,0xFD,//01318HZ `5
0x73,0xFD,//01397HZ `5#
0x98,0xFD,//01480HZ `6
0xBB,0xFD,//01568HZ `6#
0xDC,0xFD,//01661HZ `7 //35
};
uchar code jie[]={12,14,16,17,19,21,23,24}; //音符在频率表中的位置
uchar th,tl; //分别装载T0值得高低位
void main()
{
   uint i;  //延时变量
   EA=1; //打开总中断
   ET0=1; //打开定时器0
   TR0=1; //启动定时器0
   P3=0xf0;//判断按键是否按下的标志
   while(1)
   {
      fmq=1;//关闭蜂鸣器
      if((P3&0xf0)!=0xf0)//判断按键是否俺按下
      {    //在这我并没有延时消抖，有经验的人就知道，
            if(P3==0x70) //在要求严不格的情况下是可以不写消抖语句的
            {
                  tl=freq[jie[0]*2]; //装初值
                  th=freq[jie[0]*2+1];
                  TR0=1; //启动定时器0
                  for(i=1000;i>0;i--); //延时
            }
            if(P3==0xb0)
            {
                  tl=freq[jie[1]*2];
                  th=freq[jie[1]*2+1];
                  TR0=1;
                  for(i=1000;i>0;i--);
            }
            if(P3==0xd0)
            {
                  tl=freq[jie[2]*2];
                  th=freq[jie[2]*2+1];
                  TR0=1;
                  for(i=1000;i>0;i--);
            }
            if(P3==0xe0)
            {
                  tl=freq[jie[3]*2];
                  th=freq[jie[3]*2+1];
                  TR0=1;
                  for(i=1000;i>0;i--);
            }
      }
      TR0=0;//关闭定时器0
   }
}
void time0() interrupt 1 //用于产生唱歌的频率
{
   TH0=th; //装初值

…………限于本文篇幅余下代码请从论坛下载附件…………

电子按键音乐器c.rar (9.97 KB, 下载次数: 0)

Mhza · 发表于 2019-1-9 11:11

谢谢分享

帐号		自动登录	找回密码
密码			注册

简易电子琴单片机源程序

EDA365欢迎您登录！

浏览过的版块

推荐内容 /1