51单片机音乐程序源代码，歌名保密

ID:75263 · 发表于 2015-3-24 23:10

鉴于今天这个特殊的日子，我又编译了一首歌，歌名暂时保密，这段代码，送给不远处的你，搬起砖头我无法拥抱你，放下转头我无法养活你，我现在就在搬砖中，还得继续学习深造啊。
#include <reg52.h>
#define uchar unsigned char
#define uint unsigned int
sbit beep=P1^0;
unsigned int C;
#define L1 262
#define L2 284
#define L3 311
#define L4 349
#define L5 392
#define L6 440
#define L7 494
#define Z1 523
#define Z2 587
#define Z3 659
#define Z4 698
#define Z5 784
#define Z6 880
#define Z7 987
#define H1 1046
#define H2 1174
#define H3 1318
#define H4 1396
#define H5 1567
#define H6 1760
#define H7 1975

void delay();

unsigned code GP[]={H3,H1,H1,Z6,Z6,Z5,Z5,/**/Z5,Z4,Z3,Z4,Z4,H1,H1,H1,
               /**/H3,Z7,Z7,H2,H2,Z7,/**/Z7,Z5,Z5,/**/Z5,Z5,Z6,H3,H2,H1,H1,Z6,
   /**/H2,
   /**/H2,H2,H2,H2,H1,H1,H5,
   /**/H5,H3,H3,/**/H5,H5,H5,H3,H3,H1,/**/H3,H2,H2,
   /**/H2,H2,H2,H2,H2,H2,/**/H1,H2,H3,H5,H5,/**/
   H5,L5,L6,Z3,Z2,Z1,L6,/**/Z2,/**/Z2,Z2,Z2,Z2,Z1,
   Z1,Z2,/**/Z5,Z3,Z3,/**/Z5,Z5,Z5,Z3,Z3,Z1,/**/Z3,
   Z2,Z2,/**/Z2,Z2,Z2,Z2,Z2,Z2,/**/Z3,Z2,L6,Z1,Z1,
   /**/Z1,/**/Z5,Z6,H3,H2,H1,H1,Z6,/**/H2,
   /**/H2,H2,H2,H2,H2,H1,H2,/**/H3,H5,H3,H2,H3,/**/
   H3,H3,H3,H2,H1,/**/H2,H1,Z6,Z6,/**/H2,H1,Z6,Z6,/**/
   H1,H1,H1,H2,H2,/**/H2,Z5,Z6,H3,H2,H1,H1,Z6,/**/H2,
   /**/H2,H2,H2,H2,H2,H1,H2,/**/H3,H5,H3,H2,H3,/**/
   H3,H3,H3,H2,H1,/**/H2,H1,Z6,Z6,/**/H2,H1,Z6,Z6,/**/
   H1,H1,H1,H2,H2,/**/Z5,Z6,H3,H2,H1,H1,Z6,/**/H2,/**/H2,H2,
   H2,H2,H1,H1,H2,/**/H5,H3,H3,/**/H5,H5,H5,Z3,H3,H1,/**/
   H3,H2,H2,/**/H2,H2,H2,H2,H2,H2,/**/H3,H2,Z6,H1,H1,/**/
   H1,Z1,Z1,Z3,Z3,Z6,Z7,Z6,
   /**/0xff};
unsigned code JP[]={4,4,4,4,4,4,8,/**/4,4,4,4,4,4,4,4,/**/12,4,4,4,4,4,/**/
                  12,4,12,/**/4,4,4,4,6,2,4,4,/**/20,/**/4,4,4,6,
   2,4,4,/**/4,4,20,/**/8,4,6,2,4,4,/**/4,4,8,
   /**/4,4,4,4,4,4,/**/8,8,4,4,8,/**/4,4,4,4,6,2,4,4,
   /**/12,/**/4,4,4,6,2,4,4,/**/4,4,12,/**/8,4,
   6,2,4,4,/**/4,4,8,/**/4,4,4,4,4,4,/**/8,8,4,4,8,
   /**/8,/**/4,4,4,6,2,4,4,/**/12,/**/
   4,4,4,4,4,4,4,/**/8,8,8,8,8,/**/4,4,4,8,4,/**/
   4,8,4,12,/**/4,8,4,12,/**/8,8,4,8,4,/**/4,4,4,4,
   4,4,4,4,/**/12,/**/4,4,4,4,4,4,4,/**/8,8,4,8,
   4,/**/4,4,4,8,4,/**/4,8,4,12,/**/4,8,4,12,/**/
   8,8,4,8,4,/**/4,4,4,6,2,4,4,/**/12,/**/4,4,4,6,2,
   4,4,/**/4,4,12,/**/8,4,6,2,4,4,/**/4,4,8,
   /**/4,4,4,4,4,4,/**/8,8,4,4,8,/**/4,4,4,4,4,4,4,4,
};

void main()
{ uchar i,j;
TMOD=0x00;
EA=1;    //开总中断
ET0=1; //开t0中断
while(1)
{ i=0;
while(GP[i]!=0xff)
{C=460830/GP[i];
TH0=(8192-C)/32;
TL0=(8192-C)%32;
TR0=1;//开定时器0
for(j=0;j<JP[i];j++)
{delay();}
TR0=0;
i++;

}
beep=0;
}

}
void delay()    //延时15.6ms
{
uint i,j;
for(i=70;i>0;i--)
{for(j=110;j>0;j--);}
}
void T0_time()interrupt 1
{ TR0=0;
beep=!beep;
TH0=(8192-C)/32;
TL0=(8192-C)%32;
TR0=1;
}