【proteus练一练2.29】按键控制定时器选播多段音乐

proteus

本帖最后由 zhihuizhou 于 2012-2-29 09:54 编辑

/*  名称：按键控制定时器选播多段音乐
  说明：本例内置 3 段音乐，K1 可启动
停止音乐播放，K2 用于选择音乐段。
*/
#include
#include
#define uchar unsigned char
#define uint unsigned int
***it K1=P1^0; //播放和停止键
***it SPK=P3^7; //蜂鸣器
uchar Song_Index=0,Tone_Index=0;  //当前音乐段索引，音符索引
//数码管段码表
uchar code DSY_CODE[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90};
//标准音符频率对应的延时表
uchar code HI_LIST[]={0,226,229,232,233,236,238,240,241,242,244,245,246,247,248};
uchar code LO_LIST[]={0,4,13,10,20,3,8,6,2,23,5,26,1,4,3};
//三段音乐的音符
uchar code Song[][50]=
{
{1,2,3,1,1,2,3,1,3,4,5,3,4,5,5,6,5,3,5,6,5,3,5,3,2,1,2,1,-1},
{3,3,3,4,5,5,5,5,6,5,3,5,3,2,1,5,6,53,3,2,1,1,-1},
{3,2,1,3,2,1,1,2,3,1,1,2,3,1,3,4,5,3,4,5,5,6,5,3,5,3,2,1,3,2,1,1,-1}
};
//三段音乐的节拍
uchar code Len[][50]=
{
{1,1,1,1,1,1,1,1,1,1,2,1,1,2,1,1,1,1,1,1,1,1,1,1,1,2,1,2,-1},
{1,1,1,1,1,1,2,1,1,1,1,1,1,1,2,1,1,1,1,1,1,2,2,-1},
{1,1,2,1,1,2,1,1,1,1,1,1,1,1,1,1,2,1,1,2,1,1,1,1,1,1,1,2,1,1,2,2,-1}
};
//外部中断0
void EX0_INT() interrupt 0
{
TR0=0; //播放结束或者播放中途切换歌曲时停止播放
Song_Index=(Song_Index+1)%3; //跳到下一首的开头
Tone_Index=0;
P2=DSY_CODE[Song_Index]; //数码管显示当前音乐段号
}
//定时器0 中断函数
void T0_INT() interrupt 1
{
TL0=LO_LIST[Song[Song_Index][Tone_Index]];
TH0=HI_LIST[Song[Song_Index][Tone_Index]];
SPK=~SPK;
}
//延时
void DelayMS(uint ms)
{
uchar t;
while(ms--) for(t=0;t<120;t++);
}
//主程序
void main()
{
P2=0xc0;
SPK=0;
TMOD=0x00; //T0 方式 0
IE=0x83;
IT0=1;
IP=0x02;
while(1)
{
  while(K1==1);  //未按键等待
  while(K1==0);  //等待释放
  TR0=1; //开始播放
  Tone_Index=0;  //从第0 个音符开始
  //播放过程中按下 K1 可提前停止播放（K1=0）。
  //若切换音乐段会触发外部中断，导致 TR0=0，播放也会停止
  while(Song[Song_Index][Tone_Index]!=-1&&K1==1&&TR0==1)
  {
DelayMS(300*Len[Song_Index][Tone_Index]); //播放延时（节拍）
Tone_Index++;  //当前音乐段的下一音符索引
  }
  TR0=0; //停止播放
  while(K1==0); //若提前停止播放，按键未释放时等待
}
}  proteus 仿真图：

游客
，如果您要查看本帖隐藏内容请回复

weqwe2 · 2016-12-13 14:30:46

学习学习
哈哈我一定要学会着这个

h1654155960.8359 · 2016-12-31 10:41:19

不错的文件，感谢楼主分享，顶顶顶。顶一下

h1654155960.8359 · 2016-12-31 10:42:43

本帖最后由 zhihuizhou 于 2012-2-29 09:54 编辑

/*  名称：按键控制定时器选播多段音乐
  说明：本例内置 3 段音乐，K1 可启动
停止音乐播放，K2 用于选择音乐段。
*/
#include
#include
#define uchar unsigned char
#define uint unsigned int
***it K1=P1^0; //播放和停止键
***it SPK=P3^7; //蜂鸣器
uchar Song_Index=0,Tone_Index=0;  //当前音乐段索引，音符索引
//数码管段码表
uchar code DSY_CODE[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90};
//标准音符频率对应的延时表
uchar code HI_LIST[]={0,226,229,232,233,236,238,240,241,242,244,245,246,247,248};
uchar code LO_LIST[]={0,4,13,10,20,3,8,6,2,23,5,26,1,4,3};
//三段音乐的音符
uchar code Song[][50]=
{
{1,2,3,1,1,2,3,1,3,4,5,3,4,5,5,6,5,3,5,6,5,3,5,3,2,1,2,1,-1},
{3,3,3,4,5,5,5,5,6,5,3,5,3,2,1,5,6,53,3,2,1,1,-1},
{3,2,1,3,2,1,1,2,3,1,1,2,3,1,3,4,5,3,4,5,5,6,5,3,5,3,2,1,3,2,1,1,-1}
};
//三段音乐的节拍
uchar code Len[][50]=
{
{1,1,1,1,1,1,1,1,1,1,2,1,1,2,1,1,1,1,1,1,1,1,1,1,1,2,1,2,-1},
{1,1,1,1,1,1,2,1,1,1,1,1,1,1,2,1,1,1,1,1,1,2,2,-1},
{1,1,2,1,1,2,1,1,1,1,1,1,1,1,1,1,2,1,1,2,1,1,1,1,1,1,1,2,1,1,2,2,-1}
};
//外部中断0
void EX0_INT() interrupt 0
{
TR0=0; //播放结束或者播放中途切换歌曲时停止播放
Song_Index=(Song_Index+1)%3; //跳到下一首的开头
Tone_Index=0;
P2=DSY_CODE[Song_Index]; //数码管显示当前音乐段号
}
//定时器0 中断函数
void T0_INT() interrupt 1
{
TL0=LO_LIST[Song[Song_Index][Tone_Index]];
TH0=HI_LIST[Song[Song_Index][Tone_Index]];
SPK=~SPK;
}
//延时
void DelayMS(uint ms)
{
uchar t;
while(ms--) for(t=0;t<120;t++);
}
//主程序
void main()
{
P2=0xc0;
SPK=0;
TMOD=0x00; //T0 方式 0
IE=0x83;
IT0=1;
IP=0x02;
while(1)
{
  while(K1==1);  //未按键等待
  while(K1==0);  //等待释放
  TR0=1; //开始播放
  Tone_Index=0;  //从第0 个音符开始
  //播放过程中按下 K1 可提前停止播放（K1=0）。
  //若切换音乐段会触发外部中断，导致 TR0=0，播放也会停止
  while(Song[Song_Index][Tone_Index]!=-1&&K1==1&&TR0==1)
  {
DelayMS(300*Len[Song_Index][Tone_Index]); //播放延时（节拍）
Tone_Index++;  //当前音乐段的下一音符索引
  }
  TR0=0; //停止播放
  while(K1==0); //若提前停止播放，按键未释放时等待
}
}  proteus仿真图：
本帖隐藏的内容

scccx8106 · 2017-4-27 11:04:01

顶一个啊！

scccx8106 · 2017-4-27 11:04:08

顶一个啊！

信念哈哈 · 2017-11-14 19:01:47

可以这个程序好像不太完整，楼主有没有具体版本。。。。。。。。。。。

bao峰 · 2017-11-14 20:08:31

嗯呢，不错

jianpj · 2017-11-14 20:57:24

woyaokan

乔夏夏夏 · 2018-1-8 11:23:13

谢谢

林源俊 · 2018-5-17 20:26:15

不错啊，可以学习和交流讨论/还可以凑字数

李建英 · 2018-5-18 09:31:03

值得学习，谢谢您的学习知识，供我参考及学习，谢谢啦。非常有用

仰望星空sgsdhnb · 2018-5-22 10:35:16

，，，，，，，，，，，，，，，，，，，，，，，，，，，

仰望星空sgsdhnb · 2018-5-22 10:35:34

分发给对方过后是地方刚上班持续表现出VB血常规V字形从V从VB发个

潘示范 · 2018-5-22 21:41:22

llllllllllllllllllllllllllllllllllllllllllllkai

潘示范 · 2018-5-22 21:41:39

llllllllllllllllllllllllllllllllllllllllllllkai

李山 · 2018-9-3 23:44:01

{:1:

........................................

luoxilai51439 · 2018-9-18 18:58:33

求图！谢谢大神的交流与指导！！！

mxy309 · 2018-9-25 17:10:45

请问有原理图吗？

h1708587237.2694 · 2018-9-25 19:21:34

顶一下，看看，呵呵

杨奋斗 · 2018-12-26 23:49:23

我的天为什么拉姆魔帅

搜索历史

【proteus练一练2.29】按键控制定时器选播多段音乐

相关推荐

107 条评论

评论

精选推荐

站长推荐 /6