投稿
  1. 首页
  2. 软件运维

求一蜂鸣器音乐程序

四人斗地主单机版 • 2023-5-24 • 软件运维 • 阅读 12

求一蜂鸣器音乐程序,第1张

我手里有一段生日快乐歌的C程序，给你参考下。晶振5.3M，P1.1

输出。

#include<stc11.h>

#define uchar unsigned char

#define uint unsigned int

sbit BEEP=P1^1

//生日快乐歌的音符频率表，不同频率由不同的延时来决定

uchar code SONG_TONE[]={212,212,190,212,159,169,212,212,190,212,142,159,

212,212,106,126,159,169,190,119,119,126,159,142,159,0}

//生日快乐歌节拍表，节拍决定每个音符的演奏长短

uchar code SONG_LONG[]={9,3,12,12,12,24,9,3,12,12,12,24,

9,3,12,12,12,12,12,9,3,12,12,12,24,0}

//延时

void DelayMS(uint x)

{

uchar t

while(x--)

for(t=0t<120t++)

}

//播放函数

void PlayMusic()

{uint i=0,j,k

while(SONG_LONG[i]!=0||SONG_TONE[i]!=0)

{ //播放各个音符，SONG_LONG为拍子长度

for(j=0j<SONG_LONG[i]*20j++)

{

BEEP=~BEEP

//SONG_TONE延时表决定了每个音符的频率

for(k=0k<SONG_TONE[i]/3k++)

}

DelayMS(300)

i++

}

}

void main()

{

BEEP=0

while(1)

{

PlayMusic() //播放生日快乐

DelayMS(300) //播放完后暂停一段时间

}

}

/**************************************************************************

SOUND PLAY FOR 51MCU

COPYRIGHT (c)   2005 BY JJJ.

--  ALL RIGHTS RESERVED  --

File Name:       SoundPlay.h

Author:          Jiang Jian Jun

Created:         2005/5/16

Modified:  NO

Revision:   1.0

*******************************************************************************/

/*说明**************************************************************************

曲谱存贮格式 unsigned char code MusicName{音高，音长，音高，音长...., 0,0} 末尾:0,0 表示结束(Important)

音高由三位数字组成：

个位是表示 1~7 晌搏御这七个音符

十位是表示音符所在的音区:1-低音，2-中音，3-高音

百位表示这个音符是否要升半音: 0-不升，1-升半音。

音长最多由三位数字组成：

个位表示音符的时值，其对银雀应关系是：

|数值(n):  |0 |1 |2 |3 | 4 | 5 | 6

|几分音符: |1 |2 |4 |8 |16 |32 |64   音符=2^n

十位表示音符的演奏效果(0-2):  0-普通，1-连音，2-顿音

百位是符点位: 0-无符点，1-有符点

调用演奏子程序的格式

Play(乐曲名,调号,升降八度,演奏速度)

|乐曲名           : 要播放的乐曲指针,结尾以(0,0)结束

|调号(0-11)       : 是指乐曲升多少个半音演奏

|升降八度(1-3)   : 1:降八度, 2:不升不宴岩降, 3:升八度

|演奏速度(1-12000): 值越大速度越快

***************************************************************************/

#ifndef __SOUNDPLAY_H_REVISION_FIRST__

#define __SOUNDPLAY_H_REVISION_FIRST__

//**************************************************************************

#define SYSTEM_OSC   12000000 //定义晶振频率12000000HZ

#define SOUND_SPACE  4/5   //定义普通音符演奏的长度分率,//每4分音符间隔

sbit    BeepIO    =    P3^7  //定义输出管脚

unsigned int  code FreTab[12]  = { 262,277,294,311,330,349,369,392,415,440,466,494 } //原始频率表

unsigned char code SignTab[7]  = { 0,2,4,5,7,9,11 }           //1~7在频率表中的位置

unsigned char code LengthTab[7]= { 1,2,4,8,16,32,64 }

unsigned char Sound_Temp_TH0,Sound_Temp_TL0 //音符定时器初值暂存

unsigned char Sound_Temp_TH1,Sound_Temp_TL1 //音长定时器初值暂存

//**************************************************************************

void InitialSound(void)

{

BeepIO = 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 BeepTimer0(void) interrupt 1 //音符发生中断

{

BeepIO = !BeepIO

TH0    = Sound_Temp_TH0

TL0    = Sound_Temp_TL0

}

//**************************************************************************

void Play(unsigned char *Sound,unsigned char Signature,unsigned Octachord,unsigned int Speed)

{

unsigned int NewFreTab[12]  //新的频率表

unsigned char i,j

unsigned int Point,LDiv,LDiv0,LDiv1,LDiv2,LDiv4,CurrentFre,Temp_T,SoundLength

unsigned char Tone,Length,SL,SH,SM,SLen,XG,FD

for(i=0i<12i++)     // 根据调号及升降八度来生成新的频率表

{

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=LDiv1i>0i--)  //发规定长度的音

{

while(TF1==0)

TH1 = Sound_Temp_TH1

TL1 = Sound_Temp_TL1

TF1=0

}

}

if(LDiv2!=0)

{

TR0=0 BeepIO=0

for(i=LDiv2i>0i--)  //音符间的间隔

{

while(TF1==0)

TH1 = Sound_Temp_TH1

TL1 = Sound_Temp_TL1

TF1=0

}

}

Point+=2

Tone=Sound[Point]

Length=Sound[Point+1]

}

BeepIO = 0

}

//**************************************************************************

#endif

自动生成的软件不知道 这些程序也是前辈们写好的，我们直接用着玩，可能有别的高手知道怎么自动生成吧。

不过详细不步骤已经写的很清楚了，自己编写也能编的出来的。

#include\r\n#include\r\n//本例采用89C52,晶振为11.0592MHZ\r\n//关于带橡碰如何编制音乐如陪代码,其实十分简单,各位可以看以下代码.\r\n//频率蠢谈常数即音乐术语中的音调,而节拍常数即音乐术语中的多少拍\r\n//所以拿出谱子,试探编吧!\r\nsbitBeep=P1^5\r\n\r\nunsignedcharn=0//n为节拍常数变量\r\nunsignedcharcodemusic_tab[]={\r\n0x18,0x30,0x1C,0x10,//格式为:频率常数,节拍常数,频率常数,节拍常数,\r\n0x20,0x40,0x1C,0x10,\r\n0x18,0x10,0x20,0x10,\r\n0x1C,0x10,0x18,0x40,\r\n0x1C,0x20,0x20,0x20,\r\n0x1C,0x20,0x18,0x20,\r\n0x20,0x80,0xFF,0x20,\r\n0x30,0x1C,0x10,0x18,\r\n0x20,0x15,0x20,0x1C,\r\n0x20,0x20,0x20,0x26,\r\n0x40,0x20,0x20,0x2B,\r\n0x20,0x26,0x20,0x20,\r\n0x20,0x30,0x80,0xFF,\r\n0x20,0x20,0x1C,0x10,\r\n0x18,0x10,0x20,0x20,\r\n0x26,0x20,0x2B,0x20,\r\n0x30,0x20,0x2B,0x40,\r\n0x20,0x20,0x1C,0x10,\r\n0x18,0x10,0x20,0x20,\r\n0x26,0x20,0x2B,0x20,\r\n0x30,0x20,0x2B,0x40,\r\n0x20,0x30,0x1C,0x10,\r\n0x18,0x20,0x15,0x20,\r\n0x1C,0x20,0x20,0x20,\r\n0x26,0x40,0x20,0x20,\r\n0x2B,0x20,0x26,0x20,\r\n0x20,0x20,0x30,0x80,\r\n0x20,0x30,0x1C,0x10,\r\n0x20,0x10,0x1C,0x10,\r\n0x20,0x20,0x26,0x20,\r\n0x2B,0x20,0x30,0x20,\r\n0x2B,0x40,0x20,0x15,\r\n0x1F,0x05,0x20,0x10,\r\n0x1C,0x10,0x20,0x20,\r\n0x26,0x20,0x2B,0x20,\r\n0x30,0x20,0x2B,0x40,\r\n0x20,0x30,0x1C,0x10,\r\n0x18,0x20,0x15,0x20,\r\n0x1C,0x20,0x20,0x20,\r\n0x26,0x40,0x20,0x20,\r\n0x2B,0x20,0x26,0x20,\r\n0x20,0x20,0x30,0x30,\r\n0x20,0x30,0x1C,0x10,\r\n0x18,0x40,0x1C,0x20,\r\n0x20,0x20,0x26,0x40,\r\n0x13,0x60,0x18,0x20,\r\n0x15,0x40,0x13,0x40,\r\n0x18,0x80,0x00\r\n}\r\n\r\nvoidint0()interrupt1//采用中断0控制节拍\r\n{TH0=0xd8\r\nTL0=0xef\r\nn--\r\n}\r\n\r\nvoiddelay(unsignedcharm)//控制频率延时\r\n{\r\nunsignedi=3*m\r\nwhile(--i)\r\n}\r\n\r\nvoiddelayms(unsignedchara)//豪秒延时子程序\r\n{\r\nwhile(--a)//采用while(--a)不要采用while(a--)各位可编译一下看看汇编结果就知道了!\r\n}\r\n\r\nvoidmain()\r\n{unsignedcharp,m//m为频率常数变量\r\nunsignedchari=0\r\nTMOD&=0x0f\r\nTMOD|=0x01\r\nTH0=0xd8TL0=0xef\r\nIE=0x82\r\nplay:\r\nwhile(1)\r\n{\r\na:p=music_tab[i]\r\nif(p==0x00){i=0,delayms(1000)gotoplay}//如果碰到结束符,延时1秒,回到开始再来一遍\r\nelseif(p==0xff){i=i+1delayms(100),TR0=0gotoa}//若碰到休止符,延时100ms,继续取下一音符\r\nelse{m=music_tab[i++],n=music_tab[i++]}//取频率常数和节拍常数\r\nTR0=1//开定时器1\r\nwhile(n!=0)Beep=~Beep,delay(m)//等待节拍完成,通过P1口输出音频(可多声道哦!)\r\nTR0=0//关定时器1\r\n}\r\n}\r\n\r\n你参考这个吧

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/yw/12354914.html

赞 (0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
四人斗地主单机版 四人斗地主单机版 一级用户组
0 0
上一篇 2023-05-24
下一篇 2023-05-24

发表评论

登录后才能评论

评论列表（0条）

保存