#include<reg52.h>
#define uint unsigned int
#define uchar unsigned char
#ifndef __SOUNDPLAY_H_REVISION_FIRST__
#define __SOUNDPLAY_H_REVISION_FIRST__
#define SYSTEM_OSC 12000000 //定义晶振频率12000000HZ
#define SOUND_SPACE 4/5 //定义普通音符演奏的长度分率,//每4分音符间隔
uint code FreTab[12] = { 262,277,294,311,330,349,369,392,415,440,466,494 }; //原始频率表
uchar code SignTab[7] = { 0,2,4,5,7,9,11 }; //1~7在频率表中的位置
uchar code LengthTab[7]= { 1,2,4,8,16,32,64 };
uchar Sound_Temp_TH0,Sound_Temp_TL0; //音符定时器初值暂存
uchar Sound_Temp_TH1,Sound_Temp_TL1; //音长定时器初值暂存
uchar shang,slie,slie1,aa,a,kk,n,m;
uint x,y,z;
void key(); // 按键检测
void delay(uint z); //*****************************延时
void init(); //******************************初始化
void hangl();//**************************************************行外围逐列个亮
void ceng();//***************************************1234层循环亮
void houqian();//******************************************从后向前
void zuoyou();//****************************************从左向右亮
void shanshuo(); //*****************************全部以200ms的速度闪烁50次，关闭
void rao(); //*************************************环绕
void InitialSound(void);//*************音乐初始化
void Play(uchar *Sound,uchar Signature,unsigned Octachord,uint Speed);
void Delay1ms(uint count)
{
unsigned int i,j;
for(i=0;i<count;i++)
for(j=0;j<120;j++);
}
uchar code Music_Same[]={ 0x0F,0x01, 0x15,0x02, 0x16,0x02, 0x17,0x66, 0x18,0x03,
0x17,0x02, 0x15,0x02, 0x16,0x01, 0x15,0x02, 0x10,0x02,
0x15,0x00, 0x0F,0x01, 0x15,0x02, 0x16,0x02, 0x17,0x02,
0x17,0x03, 0x18,0x03, 0x19,0x02, 0x15,0x02, 0x18,0x66,
0x17,0x03, 0x19,0x02, 0x16,0x03, 0x17,0x03, 0x16,0x00,
0x17,0x01, 0x19,0x02, 0x1B,0x02, 0x1B,0x70, 0x1A,0x03,
0x1A,0x01, 0x19,0x02, 0x19,0x03, 0x1A,0x03, 0x1B,0x02,
0x1A,0x0D, 0x19,0x03, 0x17,0x00, 0x18,0x66, 0x18,0x03,
0x19,0x02, 0x1A,0x02, 0x19,0x0C, 0x18,0x0D, 0x17,0x03,
0x16,0x01, 0x11,0x02, 0x11,0x03, 0x10,0x03, 0x0F,0x0C,
0x10,0x02, 0x15,0x00, 0x1F,0x01, 0x1A,0x01, 0x18,0x66,
0x19,0x03, 0x1A,0x01, 0x1B,0x02, 0x1B,0x03, 0x1B,0x03,
0x1B,0x0C, 0x1A,0x0D, 0x19,0x03, 0x17,0x00, 0x1F,0x01,
0x1A,0x01, 0x18,0x66, 0x19,0x03, 0x1A,0x01, 0x10,0x02,
0x10,0x03, 0x10,0x03, 0x1A,0x0C, 0x18,0x0D, 0x17,0x03,
0x16,0x00, 0x0F,0x01, 0x15,0x02, 0x16,0x02, 0x17,0x70,
0x18,0x03, 0x17,0x02, 0x15,0x03, 0x15,0x03, 0x16,0x66,
0x16,0x03, 0x16,0x02, 0x16,0x03, 0x15,0x03, 0x10,0x02,
0x10,0x01, 0x11,0x01, 0x11,0x66, 0x10,0x03, 0x0F,0x0C,
0x1A,0x02, 0x19,0x02, 0x16,0x03, 0x16,0x03, 0x18,0x66,
0x18,0x03, 0x18,0x02, 0x17,0x03, 0x16,0x03, 0x19,0x00,
0x00,0x00 };
sbit cai=P3^3; //高电平点亮
sbit yy=P3^4; //蜂鸣器
sbit k1=P3^5; // 按键 左
sbit k2=P3^6; //按键 中
sbit k3=P3^7; //按键 右
//*******************************************行选
uchar code hang[]={
0x00, //全开
0xff,//全关
0x7f,//开底层
0xbf,//开底二
0xdf,//开底三层
0xef,//开最高层
};
//***************************************列选P0
uchar code lie[]={
0xff,//全开
0x00,//全关
};
//****************************************列选P1
uchar code lie1[]={
0xff,//全开
0x00,//全关
};
//--------------------------------------------------------------主程序
void main()
{
init(); //初始化设置
while(1)
{
P0=0xff; P1=0xff; P2=0x00; //全亮
key();
}
}
//====================================各种模块=================================================
void delay(uint z) //***************************延时
{
for(x=z;x>0;x--)
for(y=110;y>0;y--);
}
//============================================================================================
void init() //******************************初始化
{
kk=0;
P2=0xff; //关闭行选
P0=0x00; //关闭列选
P1=0x00; //关闭列选
cai=0; //关闭彩灯
}
//=====================================================音乐初始化
void InitialSound(void)
{
yy = 0;
Sound_Temp_TH1 = (65535-(1/1200)*SYSTEM_OSC)/256; // 计算TL1应装入的初值 (10ms的初装值)
Sound_Temp_TL1 = (65535-(1/1200)*SYSTEM_OSC)%256; // 计算TH1应装入的初值
TH1 = Sound_Temp_TH1;
TL1 = Sound_Temp_TL1;
TMOD |= 0x11;
ET0 = 1;
ET1 = 0;
TR0 = 0;
TR1 = 0;
EA = 1;
}
//============================================================================================
void shanshuo() //*****************************各种闪烁
{
for(a=0;a<10;a++)
{
P2=hang[0]; //开所有行选
for(slie=0;slie<2;slie++)
{
P0=lie[slie];
P1=lie1[slie];
delay(60);
}
}
P2=0xff; P0=P1=0x00; //全部关闭
for(a=0;a<10;a++)
{
P2=0x00;
P1=0x99; P0=0x99; delay(50);
P2=0xff; P0=0X00;P1=0x00; //全部关闭
delay(50);
}
for(a=0;a<10;a++)
{
P2=0x00;
P1=0x66; P0=0x66; delay(50);
P2=0xff; P0=0X00;P1=0x00; //全部关闭
delay(50);
}
for(a=0;a<10;a++)
{
P2=0x00;
P1=0x55; P0=0x55; delay(50);
P2=0xff; P0=0x00; P1=0x00; //全部关闭
delay(50);
}
for(a=0;a<10;a++)
{
P2=0x00;
P1=0xaa; P0=0xaa; delay(50);
P2=0xff; P0=0x00; P1=0x00; //全部关闭
delay(50);
}
delay(1000);
P2=0x3f;
P0=0x60; P1=0x06; delay(1000);
P2=0x00; P0=0xff; P1=0xff; delay(1000);
}
//============================================================================================
void zuoyou()//****************************************从左向右亮
{
for(a=0;a<8;a++)
{
P2=0x00;
P1=0x11; P0=0x11; delay(50);
P1=0x22; P0=0x22; delay(50);
P1=0x44; P0=0x44; delay(50);
P1=0x88; P0=0x88; delay(50);
P2=0xff; P0=0x00; P1=0x00; //全部关闭
delay(50);
}
}
//============================================================================================
void houqian()//******************************************从后向前
{
for(a=0;a<8;a++)
{
P2=0x00;
P0=0x0f; delay(50);
P0=0xf0; delay(50); P0=0x00;
P1=0x0f; delay(50);
P1=0xf0; delay(50);
P2=0xff; P0=0x00; P1=0x00; //全部关闭
delay(400);
}
}
//============================================================================================
void ceng()//***************************************1234层循环亮
{
for(a=0;a<15;a++)
{
P0=0xff;P1=0xff;
P2=0x7f; delay(50);
P2=0xbf; delay(50);
P2=0xdf; delay(50);
P2=0xef; delay(150);
P2=0xdf; delay(50);
P2=0xbf; delay(50);
P2=0xff; P0=P1=0x00; //全部关闭
}
}
void hangl()//**************************************************行外围逐个亮
{
for(a=0;a<8;a++)
{
P0=0x88; P1=0x88;
P2=0xef; delay(50);
P2=0xdf; delay(50);
P2=0xbf; delay(50);
P2=0x7f; delay(50);
P0=0x44; P1=0x44; delay(50);
P0=0x22; P1=0x22; delay(50);
P0=0x11; P1=0x11; delay(50);
P2=0xbf; delay(50);
P2=0xdf; delay(50);
P2=0xef;
P0=0x11; P1=0x11; delay(50);
P0=0x22; P1=0x22; delay(50);
P0=0x44; P1=0x44; delay(50);
} P2=0xff; P0=P1=0x00; //全部关闭
}
void rao()
{ P2=0xff; P0=P1=0x00; //全部关闭
//-----------------------------------------------------------------------------------------
P2=0x7f; P1=0xf0; delay(200);
P2=0x3f; delay(200);
P2=0x1f; delay(200);
P2=0x0f; delay(800);
P1=0x70; delay(200);
P1=0xb0; delay(200);
P1=0xd0; delay(200);
P1=0xe0; delay(200); P1=0X00;
for(a=0;a<4;a++)
{
P1=0x71; delay(100);
P1=0x31; P0=0x10; delay(100);
P1=0x11; P0=0x11; delay(100);
P1=0x01; P0=0x13; delay(100);
P1=0X00; P0=0x17; delay(100);
P0=0x0f; delay(100);
P0=0x8e; delay(100);
P1=0x08; P0=0x46; delay(100);
P1=0x88; P0=0x88; delay(100);
P1=0xc8; P0=0x80; delay(100);
P1=0xe8; P0=0X00; delay(100);
P1=0xf0; delay(100);
}
P1=0x70; delay(200);
P1=0x30; delay(200);
for(a=0;a<4;a++)
{
P1=0x10; delay(200); P1=0X00; delay(200);
} P1=0x10;
P2=0x1f; delay(200);
P2=0x3f; delay(200);
P2=0x7f; delay(500);
P2=0Xff;P0=0X00;P1=0X00;
}
//============================================================================================
void key() //***********************************按键检测
{
if(k1==0) //********************左键
{ if(kk==6)
{kk=0;}
delay(10);
if(k1==0)
{
while(!k1);
if(kk==1)
{shanshuo();} //全部以200ms的速度闪烁
if(kk==2)
{hangl();} //行外围逐列个亮
if(kk==5)
{houqian();} // 从后向前
if(kk==3)
{zuoyou();} // 从左向右亮
if(kk==4)
{ceng();} // 1234层循环亮
if(kk==0)
{rao();}
}
kk++;
}
if(k3==0) //***************************右键
{
delay(10);
if(k3==0)
{ while(!k3);
cai=~cai;
}
}
if(k2==0) //***************************中键
{
delay(10);
if(k2==0)
{
while(!k2);
InitialSound();
Play(Music_Same,0,3,360);
Delay1ms(500);
// P0=0x00;
}
}
}
void BeepTimer0(void) interrupt 1 //音符发生中断
{
yy = !yy;
TH0 = Sound_Temp_TH0;
TL0 = Sound_Temp_TL0;
}
void Play(uchar *Sound,uchar Signature,unsigned Octachord,uint Speed)
{
uint NewFreTab[12]; //新的频率表
uchar i,j;
uint Point,LDiv,LDiv0,LDiv1,LDiv2,LDiv4,CurrentFre,Temp_T,SoundLength;
uchar Tone,Length,SL,SH,SM,SLen,XG,FD;
for(i=0;i<12;i++) // 根据调号及升降八度来生成新的频率表
{
j = i + Signature;
if(j > 11)
{
j = j-12;
NewFreTab[i] = FreTab[j]*2;
}
else
NewFreTab[i] = FreTab[j];
if(Octachord == 1)
NewFreTab[i]>>=2;
else if(Octachord == 3)
NewFreTab[i]<<=2;
}
SoundLength = 0;
while(Sound[SoundLength] != 0x00) //计算歌曲长度
{
SoundLength+=2;
}
Point = 0;
Tone = Sound[Point];
Length = Sound[Point+1]; // 读出第一个音符和它时时值
LDiv0 = 12000/Speed; // 算出1分音符的长度(几个10ms)
LDiv4 = LDiv0/4; // 算出4分音符的长度
LDiv4 = LDiv4-LDiv4*SOUND_SPACE; // 普通音最长间隔标准
TR0 = 0;
TR1 = 1;
while(Point < SoundLength)
{
SL=Tone%10; //计算出音符
SM=Tone/10%10; //计算出高低音
SH=Tone/100; //计算出是否升半
CurrentFre = NewFreTab[SignTab[SL-1]+SH]; //查出对应音符的频率
if(SL!=0)
{
if (SM==1) CurrentFre >>= 2; //低音
if (SM==3) CurrentFre <<= 2; //高音
Temp_T = 65536-(50000/CurrentFre)*10/(12000000/SYSTEM_OSC);//计算计数器初值
Sound_Temp_TH0 = Temp_T/256;
Sound_Temp_TL0 = Temp_T%256;
TH0 = Sound_Temp_TH0;
TL0 = Sound_Temp_TL0 + 12; //加12是对中断延时的补偿
}
SLen=LengthTab[Length%10]; //算出是几分音符
XG=Length/10%10; //算出音符类型(0普通1连音2顿音)
FD=Length/100;
LDiv=LDiv0/SLen; //算出连音音符演奏的长度(多少个10ms)
if (FD==1)
LDiv=LDiv+LDiv/2;
if(XG!=1)
if(XG==0) //算出普通音符的演奏长度
if (SLen<=4)
LDiv1=LDiv-LDiv4;
else
LDiv1=LDiv*SOUND_SPACE;
else
LDiv1=LDiv/2; //算出顿音的演奏长度
else
LDiv1=LDiv;
if(SL==0) LDiv1=0;
LDiv2=LDiv-LDiv1; //算出不发音的长度
if (SL!=0)
{
TR0=1;
for(i=LDiv1;i>0;i--) //发规定长度的音
{
while(TF1==0);
TH1 = Sound_Temp_TH1;
TL1 = Sound_Temp_TL1;
TF1=0;
}
}
if(LDiv2!=0)
{
TR0=0; yy=0;
for(i=LDiv2;i>0;i--) //音符间的间隔
{
while(TF1==0);
TH1 = Sound_Temp_TH1;
TL1 = Sound_Temp_TL1;
TF1=0;
}
}
Point+=2;
Tone=Sound[Point];
Length=Sound[Point+1];
}
yy = 0;
}
|
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
淘帖
顶
踩
