单片机音乐实例文档格式.docx

单片机音乐实例文档格式.docx

《单片机音乐实例文档格式.docx》由会员分享，可在线阅读，更多相关《单片机音乐实例文档格式.docx（13页珍藏版）》请在冰点文库上搜索。

1805

0x62

4

294

1701

0x5c

5

330

1515

0x52

6

370

1351

0x49

7

415

1205

0x41

2.中音区

440

1136

0x3d

494

1012

0x37

554

902

0x31

587

852

0x2e

659

759

0x29

740

676

0x24

831

602

0x21

3.高音区

880

568

0x1f

988

506

0x1b

1109

451

0x18

1175

425

0x17

1318

379

0x14

1480

338

0x12

1661

301

0x10

3．源程序

#include<

reg52.h>

#defineuintunsignedint

#defineucharunsignedchar

ucharnum;

uinti;

sbitbeep=P2^3;

sbitled=P1^0;

voidinit（）

{

TMOD=0x10;

TH1=（65536-10000）/256;

//10ms一中断

TL1=（65536-10000）%256;

EA=1;

ET1=1;

}

ucharcodetable[]={//天空之城

0x24,0x32,0x21,0x32,0x1f,0x16,0x21,0x32,0x1f,0x32,0x18,0x32,0x21,0x94,

0x31,0x32,0x31,0x32,0x24,0x16,0x29,0x32,0x24,0x32,0x1f,0x32,0x29,0x32,0x29,0x64,0x31,0x32,

0x31,0x32,0x2e,0x16,0x31,0x32,0x2e,0x16,0x1f,0x32,0x31,0x64,0x31,0x32,0x1f,0x32,0x1f,0x32,

0x1f,0x32,0x21,0x16,0x2e,0x32,0x2e,0x16,0x21,0x32,0x21,0x32,0x21,0x64,0x24,0x16,0x21,0x32,

0x1f,0x16,0x21,0x32,0x1f,0x32,0x18,0x32,0x21,0x32,0x21,0x64,0x31,0x32,0x31,0x32,0x24,0x16,

0x29,0x32,0x24,0x32,0x1f,0x32,0x29,0x32,0x29,0x32,0x29,0x32,0x31,0x32,0x2e,0x32,0x1f,0x16,

0x21,0x16,0x21,0x32,0x1f,0x32,0x1b,0x32,0x1b,0x32,0x18,0x32,0x1f,0x32,0x1f,0x64,0x21,0x32,

0x24,0x32,0x24,0x32,0x21,0x32,0x29,0x32,0x24,0x32,0x24,0x32,0x1f,0x32,0x1b,0x32,0x18,0x16,

0x1b,0x32,0x18,0x32,0x14,0x32,0x1b,0x32,0x1b,0x64,0x29,0x32,0x29,0x32,0x1f,0x16,0x21,0x32,

0x1f,0x32,0x18,0x32,0x18,0x32,0x18,0x64,0x24,0x16,0x21,0x32,0x1f,0x32,0x21,0x32,0x1b,0x32,

0x1b,0x32,0x1f,0x16,0x29,0x16,0x29,0x32,0x17,0x32,0x18,0x32,0x1b,0x32,0x1f,0x32,0x18,0x16,

0x18,0x16,0x18,0x16,0x18,0x16,0x18,0x32,0x14,0x32,0x14,0x32,0x12,0x32,0x12,0x64,0x14,0x32,

0x14,0x32,0x18,0x32,0x1b,0x32,0x1f,0x32,0x1f,0x32,0x1b,0x32,0x1f,0x16,0x1b,0x16,0x1b,0x32,

0x14,0x32,0x18,0x32,0x18,0x32,0x18,0x32,0x14,0x64,0x1f,0x32,0x1f,0x32,0x1b,0x32,0x1f,0x32,

0x1b,0x16,0x1b,0x32,0x21,0x32,0x24,0x32,0x24,0x32,0x24,0x16,0x24,0x32,0x24,0x32,0x24,0x32,

0x00,

};

voiddelayms（uintz）//1ms

uintx,y;

for（x=z;

x>

0;

x--）

for（y=2;

y>

y--）;

voidplay_song（uinti）

uchartemp1,temp2;

num=0;

while

（1）

{

TR1=1;

temp1=table[i++];

if（temp1==0xff）//休止符

TR1=0;

delayms（1000）;

}

elseif（temp1==0x00）//歌曲结束符

return;

else

{

temp2=table[i++];

TR1=1;

while

（1）

beep=~beep;

led=~led;

delayms（temp1）;

//频率

if（temp2==num）//持续时间

num=0;

break;

}

}

voidtimer1（）interrupt3

num++;

voidmain（）

init（）;

play_song（0）;

四．附加歌曲程序

//帝女花主题曲

/*0x41,0x27,0x49,0x27,0x3d,0x27,0x3d,0x27,0x37,0x27,0x37,0x27,0x31,0x27,0x29,0x27,0x24,0x27,0x24,0x27,

0x37,0x27,0x31,0x27,0x29,0x27,0x37,0x27,0x31,0x27,0x3d,0x27,0x41,0x27,0x41,0x27,

0x49,0x27,0x3d,0x27,0x49,0x27,0x52,0x27,0x49,0x27,0x3d,0x27,0x62,0x27,0x52,0x27,0x52,0x27,

0x49,0x27,0x49,0x27,0x49,0x27,0x49,0x27,0x49,0x27,0x49,0x27,//06122356235231761656135666666

0x31,0x27,0x24,0x27,0x29,0x27,0x24,0x27,0x29,0x27,0x31,0x27,0x24,0x27,0x24,0x27,0x24,0x27,0x24,0x27,

0x29,0x27,0x24,0x27,0x1f,0x27,0x31,0x27,0x29,0x27,0x31,0x27,0x37,0x27,0x31,0x27,0x31,0x27,0x31,0x27,0x31,0x27,//365653656i35323

0x37,0x27,0x31,0x27,0x29,0x27,0x3d,0x14,0x41,0x14,0x49,0x27,0x3d,0x27,0x37,0x27,0x37,0x27,0x37,0x27,0x37,0x27,

0x31,0x27,0x29,0x27,0x24,0x27,0x37,0x27,0x31,0x27,0x29,0x27,0x3d,0x27,0x3d,0x27,0x3d,0x27,//235176123562351

0x37,0x27,0x31,0x14,0x29,0x14,0x3d,0x27,0x37,0x27,0x31,0x27,0x29,0x27,0x49,0x27,0xff,0x3d,0x27,0x3d,0x27,0x49,0x27,0x3d,0x27,0x49,0x27,0x52,0x27,

0x37,0x27,0x31,0x27,0x31,0x27,0x31,0x27,//1616123-

0x29,0x27,0x29,0x27,0x24,0x27,0x24,0x27,0x24,0x14,0x31,0x14,0x37,0x27,//556-6.32.

0x29,0x27,0x31,0x27,0x29,0x27,0x24,0x27,0x37,0x27,0x31,0x27,0x29,0x27,0x31,0x27,0x37,0x27,0x41,0x27,0x49,0x27,

0x3d,0x14,0x49,0x14,0x52,0x14,0x5c,0x14,0x52,0x27,0x62,0x14,0x52,0x14,0x49,0x27,0x49,0x27,0x49,0x27,0x49,0x27,0x49,0x27,0x49,0x27,

0x3d,0x27,0x37,0x27,0x3d,0x27,0x49,0x27,0x52,0x14,0x62,0x14,0x52,0x27,0x49,0x27,0x3d,0x27,0x3d,0x27,0x3d,0x27,//12165356

0x31,0x27,0x37,0x27,0x3d,0x27,0x37,0x27,0x31,0x27,0x49,0x27,0x49,0x27,//321236-

0x37,0x27,0x37,0x27,0x31,0x27,0x29,0x27,0x24,0x27,0x37,0x27,0xff,0x29,0x27,0x31,0x27,0x37,0x27,0x3d,0x27,0x41,0x27,0x49,0x27,0x3d,0x27,

0x29,0x14,0x24,0x14,0x21,0x27,0x31,0x14,0x29,0x27,0x24,0x27,0x24,0x27,0x24,0x27,0x24,0x27,//223556.23532176156i356-

0x31,0x27,0x31,0x27,0x31,0x27,0x31,0x27,0x31,0x14,0x24,0x14,0x29,0x14,0x31,0x27,0x37,0x27,0x3d,0x27,0x3d,0x27,0x3d,0x27,

0x37,0x27,0x31,0x27,0x49,0x27,0x49,0x27,0x49,0x27,0x3d,0x27,//36532321

0x37,0x27,0x31,0x27,0x29,0x27,0x24,0x27,0x29,0x27,0x31,0x27,0x31,0x27,0x31,0x27,0x31,0x27,//235653

0x31,0x27,0x31,0x27,0x37,0x27,0x31,0x27,0x37,0x27,0x3d,0x27,0x3d,0x27,0x3d,0x27,0x37,0x27,0x31,0x27,0x3d,0x27,0x37,0x27,0x31,0x27,0x49,0x27,0x3d,0x27,

0x37,0x27,0x31,0x27,0x29,0x27,0x3d,0x27,0x49,0x27,0x3d,0x27,0x37,0x27,0x31,0x27,0x31,0x27,0x31,0x27,0x31,0x27,

0x29,0x27,0x29,0x27,0x29,0x27,0x29,0x27,0x24,0x27,0x24,0x27,0x24,0x27,0x24,0x27,//323212312361235161235---6---

0x24,0x27,0x21,0x27,0x31,0x27,0x37,0x27,0x31,0x27,0x29,0x27,0xff,0x29,0x14,0x24,0x27,0x1f,0x14,0x21,0x27,0x24,0x27,0x1f,0x27,0x24,0x27,0x1f,0x27,0x24,0x27,

0x29,0x27,0x31,0x27,0x31,0x27,0x31,0x27,0x31,0x27,//6i3235056i76i6i653

0x3d,0x32,0x49,0x32,0x37,0x27,0x37,0x27,0x37,0x27,0x31,0x14,0x37,0x14,0x31,0x27,0x29,0x14,0xff,0x31,0x27,0x37,0x14,0x3d,0x27,0x37,0x27,0x31,0x27,0x29,0x27,

0x24,0x27,0x1f,0x27,//16232353212356i

0x31,0x27,0x29,0x27,0x24,0x27,0x29,0x27,0x2e,0x27,0x31,0x27,0x37,0x27,0x3d,0x14,0x3d,0x14,0x3d,0x14,0x41,0x27,0x49,0x27,0x37,0x27,

0x37,0x27,0x37,0x27,0x31,0x27,0x31,0x27,0x29,0x27,0x24,0x27,0x37,0x27,0x31,0x27,0x29,0x27,0x29,0x27,0x31,0x14,0x37,0x27,0x3d,0x27,

0x41,0x27,0x49,0x27,0x3d,0x27,0x49,0x27,0x52,0x27,0x5c,0x27,0x62,0x27,0x52,0x27,0x49,0x27,0x49,0x14,0xff,

0x1b,0x27,0x1f,0x27,0x1b,0x27,0x1f,0x27,0x24,0x27,0x29,0x14,0x31,0x27,0x29,0x14,0x24,0x27,0x1f,0x27,0x1f,0x27,0x1f,0x27,0x1f,0x27,

0x37,0x27,0x37,0x27,0x37,0x27,0x37,0x27,0x31,0x27,0x31,0x27,0x31,0x27,0x29,0x27,0x24,0x27,0x24,0x14,0x31,0x27,0x37,0x27,0x37,0x27,

0x31,0x27,0x31,0x14,0x29,0x27,0x24,0x27,0x1f,0x27,0x29,0x27,0x24,0x27,0x2e,0x27,0x24,0x14,0x29,0x14,0x2e,0x27,0x31,0x27,0x31,0x27,

0x31,0x27,0x31,0x27,0x49,0x27,0x49,0x27,0x49,0x27,0x3d,0x27,0x37,0x27,0x37,0x27,0x37,0x27,0x31,0x27,0x29,0x27,0x29,0x27,0x24,0x14,0x31,0x27,0x37,0x27,0xff,

0x31,0x27,0x29,0x14,0x1f,0x27,0x24,0x27,0x29,0x27,0x31,0x27,0x29,0x27,0x24,0x27,0x29,0x27,0x2e,0x27,0x31,0x14,0x29,0x27,0x3d,0x27,

0x3d,0x27,0x3d,0x27,0x49,0x27,0x3d,0x27,0x37,0x27,0x37,0x27,0x31,0x27,0x29,0x27,0x24,0x27,0x37,0x27,0x31,0x27,0x29,0x27,0x37,0x14,

0x31,0x27,0x3d,0x14,0x41,0x27,0x49,0x27,0x52,0x14,0x49,0x14,0x3d,0x27,0x62,0x14,0x52,0x27,0x49,0x27,0x49,0x27,0x49,0x27,

0x31,0x27,0x24,0x27,0x29,0x27,0x24,0x27,0x29,0x27,0x31,0x27,0x24,0x27,0x24,0x27,0x24,0x27,0x24,0x27,0x29,0x27,0x24,0x14,0x29,0x27,

0x31,0x27,0x29,0x27,0x31,0x27,0x37,0x27,0x31,0x27,0x31,0x27,0x31,0x27,0x31,0x27,

0x37,0x27,0x31,0x27,0x29,0x27,0x3d,0x14,0x41,0x27,0x49,0x27,0x3d,0x27,0x37,0x27,0x37,0x27,0x37,0x27,0x37,0x27,0x31,0x27,0x29,0x27,

0x24,0x27,0x37,0x27,0x31,0x27,0x29,0x27,0x3d,0x27,0x3d,0x27,0x3d,0x27,0x31,0x27,0x37,0x27,0x3d,0x27,0x37,0x27,0x31,0x27,0x49,0x27,

0x31,0x27,0x37,0x27,0x3d,0x27,0x49,0x27,0x3d,0x27,0x49,0x27,0x3d,0x27,0x49,0x27,0x3d,0x27,0x37,0x27,0x31,0x27,0x31,0x27,0x31,0x27,

0x31,0x27,0x29,0x27,0x1f,0x27,0x24,0x27,0x24,0x27,0x37,0x27,0x37,0x27,0x31,0x27,0x29,0x27,0x24,0x27,0x37,0x27,0x37,0x27,0x31,0x27,

0x29,0x27,0x24,0x27,0x37,0x27,0x31,0x27,0x29,0x27,0x37,0x14,0x31,0x27,0x3d,0x27,0x41,0x27,0x49,0x27,0x3d,0x27,0x29,0x14,0x24,0x14,

0x1f,0x27,0x31,0x14,0x29,0x27,0x24,0x27,0x24,0x27,0x24,0x27,0xff,0x00,*/

//祝你平安

/*

0x26,0x20,0x20,0x20,0x20,0x20,0x26,0x10,0x20,0x10,0x20,0x80,0x26,0x20,0x30,0x20,

0x30,0x20,0x39,0x10,0x30,0x10,0x30,0x80,0x26,0x20,0x20,0x20,0x20,0x20,0x1c,0x20,

0x20,0x80,0x2b,0x20,0x26,0x20,0x20,0x20,0x2b,0x10,0x26,0x10,0x2b,0x80,0x26,0x20,

0x30,0x20,0x30,0x20,0x39,0x10,0x26,0x10,0x26,0x60,0x40,0x10,0x39,0x10,0x26,0x20,

0x30,0x20,0x30,0x20,0x39,0x10,0x26,0x10,0x26,0x80,0x26,0x20,0x2b,0x10,0x2b,0x10,

0x2b,0x20,0x30,0x10,0x39,0x10,0x26,0x10,0x2b,0x10,0x2b,0x20,0x2b,0x40,0x40,0x20,

0x20,0x10,0x20,0x10,0x2b,0x10,0x26,0x30,0x30,0x80,0x18,0x20,0x18,0x20,0x26,0x20,

0x20,0x20,0x20,0x40,0x26,0x20,0x2b,0x20,0x30,0x20,0x30,0x20,0x1c,0x20,0x20,0x20,

0x20,0x80,0x1c,0x20,0x1c,0x20,0x1c,0x20,0x30,0x20,0x30,0x60,0x39,0x10,0x30,0x10,

0x20,0x20,0x2b,0x10,0x26,0x10,0x2b,0x10,0x26,0x10,0x26,0x10,0x2b,0x10,0x2b,0x80,

0x18,0x20,0x18,0x20,0x26,0x20,0x20,0x20,0x20,0x60,0x26,0x10,0x2b,0x20,0x30,0x20,

0x30,0x20,0x1c,0x20,0x20,0x20,0x20,0x80,0x26,0x20,0x30,0x10,0x30,0x10,0x30,0x20,

0x39,0x20,0x26,0x10,0x2b,0x10,0x2b,0x20,0x2b,0x40,0x40,0x10,0x40,0x10,0x20,0x10,

0x20,0x10,0x2b,0x10,0x26,0x30,0x30,0x80,0x00,

*/

//穿越时空的爱恋

0x37,0x23,0x2e,0x24,0x29,0x23,0x29,0x23,0x29,0x23,0x24,0x23,0x1f,0x23,0x1f,0x23,//24556i

0x1b,0x23,0x17,0x23,0x1b,0x23,0x1b,0x23,0x1f,0x23,0x24,0x23,0x29,0x23,0x29,0x23,//242i65

0x1b,0x23,0x1f,0x23,0x29,0x23,0x29,0x23,0x1b,0x23,0x1f,0x23,0x29,0x23,0x29,0x23,

0x2e,0x23,0x2e,0x23,0x37,0x23,0x37,0x23,0x37,0x23,0x37,0x23,//21521542

0x37,0x23,0x2e,0x23,0x29,0x23,0x29,0x23,0x29,0x23,0x24,0x23,0x1f,0x23,0x1f,0x23,//24556i

0x1b,0x23,0x1f,0x23,0x29,0x23,0x29,0x23,0x1b,0x23,0x1f,