原创 用C51程序编写周杰伦的青花瓷乐谱

周杰伦的青花瓷乐谱 ­

"`5__`5__`3__`2__`3__/`2__`1__6 `2__`3__`2__`1__5 `2__`3__/`2__`1__6_`1__`2_6__`3 `1`__2`__3`__5`__/"­

­"`5__`3__`3_`2_`1_`2__`1__6_`1__`2__`3_/`5--2__1__,6__/1_1__,6__1_1__,6__1__,6__,5_ 2__1__,6__/1_1__,6__1_1__3__2__1__1_,5__,6__3__/"

"3_3__2__3_3__2__3__5__3__ 3__3__3__3__/2__2__2__2__2_1__3__3__2 _#

2__1__,6__/1_1__,6__1_1__,6__1__,6__,5_,5__,6__3__/5_5__3__5_5__3__2__1__1_   2__1__2__/"

"3__2__2__1__2_ 1__,6__2__1__1__,6__1_1__1__/1--  5__5__3__/2__3__,6_2__3__5__3__2  5__5__3__/"

"2__3__,5_ 2__3__5__2__1   1__2__3__/5__6__5__4__5__3__3__2__2  1__2__1__/1__2__1__2__3_5__3__3_# 5__5__3__/"

­"2__3__,6_ 2__3__5__3__2  5__5__3__/2__3__,5_ 2__3__5__2__1  1__2__3__/5__6__5__4__5__3__3__2__2_#  ,5__3_2__2__/2__1_#3__5__/"

 

 

­乐谱书写规则：

1 2 3 4 5 6 7 为7个基本音阶 ­

 

前面加逗号','表示这是低音 ­

前面加上点号'`'表示这是高音 ­

后面加'#',表示这个音符升半个音阶 ­

后面加'.',表示这个音符要再加长自身一半的延时 ­

后面加一个或多个'-',每个表示延时一拍 ­

后面加一个或多个'_',表示这个音符要缩短自身一半的时长，最多支持2个'_'。­

下面看程序： ­

―――――――――――――――――――――――― ­

#define uchar unsigned char //定义一下方便使用 ­

#define uint  unsigned int ­

#define ulong unsigned long ­

#include      //包括一个52标准内核的头文件 ­

char code dx516[3] _at_ 0x003b;//这是为了仿真设置的 ­

sbit    BEEP=P1^7; //喇叭输出脚 ­

sbit K1= P3^2;     ­

sbit K2= P3^5; ­

sbit K3= P2^4;     ­

sbit K4= P2^5;   ­

uchar th0_f; //在中断中装载的T0的值高8位 ­

uchar tl0_f; //在中断中装载的T0的值低8位 ­

//T0的值,及输出频率对照表 ­

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 ­

}; ­

//定时中断0,用于产生唱歌频率 ­

timer0() interrupt 1 ­

{ ­

    TL0=tl0_f;TH0=th0_f;  //调入预定时值 ­

    BEEP=~BEEP;           //取反音乐输出IO ­

} ­

//****************************** ­

//音乐符号串解释函数 ­

//入口:要解释的音乐符号串,输出的音调串,输出的时长串 ­

changedata(uchar *song,uchar *diao,uchar *jie) ­

{ ­

    uchar i,i1,j; ­

    char gaodi; //高低+/-12音阶 ­

    uchar banyin;//有没有半个升音阶 ­

    uchar yinchang;//音长 ­

    uchar code jie7[8]={0,12,14,16,17,19,21,23}; //C调的7个值 ­

    *diao=*song; ­

    for(i=0,i1=0;;) ­

    { ­

        gaodi=0; //高低=0 ­

        banyin=0;//半音=0 ­

        yinchang=4;//音长1拍 ­

        if((*(song+i)=='|') || (*(song+i)==' ')) i++; ­

  //拍子间隔和一个空格过滤 ­

        switch(*(song+i)) ­

        {     ­

            case ',': gaodi=-12;i++;//低音 ­

            break; ­

     ­

            case '`': gaodi=12;i++; //高音 ­

            break; ­

        } ­

­

        if(*(song+i)==0)  //遇到0结束 ­

        { ­

            *(diao+i1)=0; //加入结束标志0 ­

            *(jie+i1)=0; ­

            return; ­

        } ­

   ­

        j=*(song+i)-0x30; i++; //取出基准音 ­

        j=jie7[j]+gaodi; //加上高低音 ­

       ­

yinc:   switch(*(song+i)) ­

        {     ­

            case '#': //有半音j加一个音阶 ­

                i++;j++; ­

    goto yinc; ­

             ­

            case '-': //有一个音节加长 ­

                yinchang+=4; ­

                i++; ­

                goto yinc; ­

            case '_': //有一个音节缩短 ­

                yinchang/=2; ­

                i++; ­

    goto yinc; ­

             ­

             ­

            case '.': //有一个加半拍 ­

                yinchang=yinchang+yinchang/2; ­

    i++; ­

    goto yinc; ­

             ­

        } ­

        *(diao+i1)=j; //记录音符 ­

        *(jie+i1)=yinchang; //记录音长 ­

        i1++;     ­

    } ­

} ­

//****************************************** ­

//奏乐函数 ­

//入口:要演奏的音乐符号串 ­

void play(uchar *songdata) ­

{ ­

    uchar i,c,j=0; ­

    uint  n; ­

    uchar xdata diaodata[112]; //音调缓冲 ­

    uchar xdata jiedata[112];  //音长缓冲 ­

    changedata(songdata,diaodata,jiedata); //解释音乐符号串 ­

    TR0=1; ­

    for(i=0;diaodata!=0;i++)  //逐个符号演奏 ­

    { ­

        tl0_f=freq[diaodata*2]; //取出对应的定时值送给T0 ­

        th0_f=freq[diaodata*2+1]; ­

        for(c=0;c

            for(n=0;n<32000;n++); ­

        TR0=0; ­

        for(n=0;n<500;n++);    //音符间延时 ­

        TR0=1; ­

    } ­

    TR0=0; ­

} ­

//仙剑 ­

uchar code qinghuaci[]={ ­

"`5__`5__`3__`2__`3__/`2__`1__6 `2__`3__`2__`1__5 `2__`3__/`2__`1__6_`1__`2_6__`3

`1`__2`__3`__5`__/"­

­"`5__`3__`3_`2_`1_`2__`1__6_`1__`2__`3_/`5--2__1__,6__/1_1__,6__1_1__,6__1__,6__,5_

2__1__,6__/1_1__,6__1_1__3__2__1__1_,5__,6__3__/"

"3_3__2__3_3__2__3__5__3__ 3__3__3__3__/2__2__2__2__2_1__3__3__2 _#

2__1__,6__/1_1__,6__1_1__,6__1__,6__,5_,5__,6__3__/5_5__3__5_5__3__2__1__1_  

2__1__2__/"

"3__2__2__1__2_ 1__,6__2__1__1__,6__1_1__1__/1--  5__5__3__/2__3__,6_2__3__5__3__2  5__5__3__/"

"2__3__,5_ 2__3__5__2__1   1__2__3__/5__6__5__4__5__3__3__2__2  1__2__1__/1__2__1__2__3_5__3__3_# 5__5__3__/"

­"2__3__,6_ 2__3__5__3__2  5__5__3__/2__3__,5_ 2__3__5__2__1  1__2__3__/5__6__5__4__5__3__3__2__2_#  ,5__3_2__2__/2__1_#3__5__/"

­

}; ­

//乐谱方式输入的音乐播放 ­

void main(void) // 主程序 ­

{ ­

TMOD = 0x01;  //使用定时器0的16位工作模式 ­

TR0 = 0; ­

ET0 = 1; ­

EA = 1; ­

while(1) ­

{ ­

    play(qinghuaci); ­

} ­

} ­

;c++)>

 

 

http://bangpai.taobao.com/group/14194104.htm