查看: 2101|回复: 43
打印 上一主题 下一主题

51 播放歌曲 <<祝你平安>> 实验(三)

[复制链接] qrcode

24

主题

30

帖子

86

积分

注册会员

Rank: 2

积分
86
楼主
跳转到指定楼层
发表于 2015-5-4 10:33 AM | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

这个实验通过按键,控制蜂鸣器产生一首歌曲播放,详情见
附件.
平台:FDR51开发板
#include
#include"key.h"
/*************************************************************************
IO口宏定义区
**************************************************************************/
sbit beep="P3"^7;
/************************************************************************
音乐编码存储区
格式为:音调 播放时间 音调 播放时间。。。。。。。。。。。。。。。。。
**************************************************************************/
unsigned char code SONG[] ={ //祝你平安
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,0x0,
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,0x6,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};
/***************************************************************
全局变量声明区
****************************************************************/
unsigned char Count="0";
/*********************************************************************
定时器0中断初始化函数
**********************************************************************/
void Time0_Init()
{
TMOD = 0x01;
IE = 0x82;
TH0 = 0xD8;
TL0 = 0xEF; //12MZ晶振,10ms
}
/*************************************************************************
定时器0中断处理函数
**************************************************************************/
void Time0_Int() interrupt 1
{
TH0 = 0xD8;
TL0 = 0xEF;
Count++; //长度加1
}
/*********************************************************************************
延时函数
*********************************************************************************/
void Delay_xMs(unsigned char x)
{
unsigned char i,j;
for( i =0;i < x;i++ )
{
for( j =0;j<3;j++ );
}
}
/*********************************************************************************
放音子函数
参数:frequence 决定音乐声调的变量
length 决定某个音调播放的时间
*********************************************************************************/
void beeping(unsigned char frequence,unsigned char length)
{
TR0=1;
while(1)
{
beep = !beep;
Delay_xMs(frequence);
if ( length == Count )
{
Count = 0;
break;
}
}
TR0=0;
beep=1; //关蜂鸣器
}
/********************************************************************************
放音主函数
*********************************************************************************/
void Play_Song()
{
unsigned char Temp1,key=0;
unsigned int Addr,Count = 0; //中断计数器清0
while(1)
{
key="255";//getch(); //按键扫描
if(key!=255)break; //若按下13,停止放音
Temp1 = SONG[Addr++];
if ( Temp1 == 0xFF ) //休止符
{
TR0 = 0;
Delay_xMs(100);
}
else
{
if ( Temp1 == 0x00 ) //歌曲结束符
{
return;
}
else
{
beeping(Temp1,SONG[Addr++]);
}
}
}
}
/****************************************************
程序主函数
*****************************************************/
void main()
{
unsigned char k="0";
Time0_Init(); //初始化定时器0
while(1)
{
//k=getch();
if(k!=255)Play_Song();
}
}

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复

使用道具 举报

3

主题

50

帖子

107

积分

注册会员

Rank: 2

积分
107
沙发
发表于 2015-12-29 01:34 AM | 只看该作者
谢谢                                                                                                                                                                       
回复 支持 反对

使用道具 举报

8

主题

85

帖子

182

积分

注册会员

Rank: 2

积分
182
板凳
发表于 2015-1-5 05:40 AM | 只看该作者
是否                                                                                                                                                                       
回复 支持 反对

使用道具 举报

0

主题

23

帖子

50

积分

注册会员

Rank: 2

积分
50
地板
发表于 2015-1-14 09:10 AM | 只看该作者
顶,谢谢了                                                                                                                                                                       
回复 支持 反对

使用道具 举报

0

主题

9

帖子

20

积分

新手上路

Rank: 1

积分
20
5#
发表于 2015-3-15 12:43 PM | 只看该作者
51 播放歌曲 <<祝你平安>> 实验(三) 精华帖
回复 支持 反对

使用道具 举报

0

主题

1

帖子

4

积分

新手上路

Rank: 1

积分
4
6#
发表于 2015-3-16 03:39 AM | 只看该作者
gnc                                                                                                                                                                       
回复 支持 反对

使用道具 举报

2

主题

24

帖子

54

积分

注册会员

Rank: 2

积分
54
7#
发表于 2015-3-26 09:32 AM | 只看该作者
学习一下LZ的源程序,谢谢                                                                                                                                                                       
回复 支持 反对

使用道具 举报

0

主题

9

帖子

22

积分

新手上路

Rank: 1

积分
22
8#
发表于 2015-3-31 02:36 AM | 只看该作者
代码好多.                                                                                                                                                                       
回复 支持 反对

使用道具 举报

0

主题

49

帖子

100

积分

注册会员

Rank: 2

积分
100
9#
发表于 2015-4-7 04:19 AM | 只看该作者
很好,谢谢楼主!!!                                                                                                                                                                       
回复 支持 反对

使用道具 举报

10

主题

82

帖子

178

积分

注册会员

Rank: 2

积分
178
10#
发表于 2015-4-14 08:31 AM | 只看该作者
谢谢                                                                                                                                                                       
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

快速回复 返回顶部 返回列表