173 2438 5004
KEROS加密芯片——品牌直销 | 免费样品 | 技术支持
当前位置:网站首页 > 资讯中心 正文 资讯中心

52单片机简易音乐播放器

htxw 2023-03-14 资讯中心 18 ℃

89C52单片机音乐播放器

这是一个完整的播放一首音乐的程序,仅供参考,希望对你有帮助:

SPK EQU P3.7 ; 蜂鸣器所在端口

ORG 0000H

JMP START

START:

MOV R3,#00H

NEXT:

MOV A,R3

MOV DPTR,#TABLE

MOVC A,@A+DPTR

JZ START

MOV R7,A

INC R3

MOV A,R3

MOVC A,@A+DPTR

MOV R2,A

ACALL SONG

INC R3

SJMP NEXT

;===============================================================================

;=== 歌曲播放子程序 ===

SONG:

MOV A,R2 ; 取出节拍

RL A

JNZ KEEP

MOV A,#01H

KEEP:

MOV R2,A

REPEAT:

ACALL EIGHTH

DJNZ R2,REPEAT

RET

;===============================================================================

;=== 产生1/8拍延时子程序 ===

EIGHTH:

MOV A,R7 ; 查表取出廷时参数,保存到R4

MOV DPTR,#DELAY_T

MOVC A,@A+DPTR

MOV R4,A

MOV A,R7 ; 查表取出1/8拍周期数,保存到R5

MOV DPTR,#S_PARA

MOVC A,@A+DPTR

MOV R5,A

NEXTCYC:

ACALL SOUND

DJNZ R5,NEXTCYC

RET

;===============================================================================

;=== 发声子程序 ===

SOUND:

SETB SPK

ACALL SDELAY

CLR SPK

ACALL SDELAY

RET

;===============================================================================

;=== 延时子程序 ===

SDELAY:

MOV A,R4 ; 廷时值在R4内

MOV R0,A

XL2:

MOV R1,#03H

DL1:

NOP

DJNZ R1,DL1

DJNZ R0,XL2

RET

;===============================================================================

;=== 1/8拍周期表 ===

S_PARA:

DS 1DH

DB 15H,16H,00

DB 19H,00H,1CH,00H,1FH,21H,00H,25H

DB 00H,29H,2CH,00H,31H,34H,37H,00H

DB 3EH,41H,00H,49H,00H,52H,57H,00H

DB 62H

;===============================================================================

;=== 延时参数表 ===

DELAY_T:

DS 1DH

DB 7EH,77H,00H

DB 6AH,00H,5EH,00H,54H,4FH,00H,46H

DB 00H,3FH,3BH,00H,35H,32H,2FH,00H

DB 2AH,27H,00H,23H,00H,1FH,1DH,0C0H

DB 1AH

;===============================================================================

;=== 歌曲表 ===

TABLE:

DW 2202H,2902H,2902H,2902H,2906H,2702H ;我从山中来

DW 2502H,2702H,2502H,2402H,2208H ;带着兰花草

DW 2E02H,2E02H,2E02H,2E02H,2E06H,2C02H ;种在小园中

DW 2902H,2C02H,2D02H,2A02H,2908H ;祈祷花开早

DW 2902H,2E02H,2E02H,2C02H,2906H,2702H ;一日看三回

DW 2502H,2702H,2502H,2402H,2206H,1D02H ;看得花时过

DW 1D02H,2502H,2502H,2402H,2206H,2902H ;兰花却依然

DW 2702H,2502H,2402H,2002H,2208H ;苞也无一个

DW 0000H ;

DELAY: ;延时子程序;参考前面的教程:

MOV R7,#255

NOP

NOP

D1:MOV R6,#255

D2: DJNZ R6,D2

DJNZ R7,D1

RET

END

51单片机做一个简单的音乐播放器,功能只要能播放就行。谁会不……

音乐乐谱输入方式的程序,硬件很简单的。

#define uchar unsigned char //定义一下方便使用

#define uint unsigned int

#define ulong unsigned long

#include reg52.h //包括一个52标准内核的头文件

char code dx516[3] _at_ 0x003b;//这是为了仿真设置的

sbit BEEP=P1^7; //喇叭输出脚

sbit K1= P3^2;

sbit K2= P3^5;

sbit K3= P2^4;

sbit K4= P2^5;

uchar th0_f; //在中断中装载的T0的值高8位

uchar tl0_f; //在中断中装载的T0的值低8位

//T0的值,及输出频率对照表

uchar code freq[36*2]={

0xA9,0xEF,//00220HZ ,1 //0

0x93,0xF0,//00233HZ ,1#

0x73,0xF1,//00247HZ ,2

0x49,0xF2,//00262HZ ,2#

0x07,0xF3,//00277HZ ,3

0xC8,0xF3,//00294HZ ,4

0x73,0xF4,//00311HZ ,4#

0x1E,0xF5,//00330HZ ,5

0xB6,0xF5,//00349HZ ,5#

0x4C,0xF6,//00370HZ ,6

0xD7,0xF6,//00392HZ ,6#

0x5A,0xF7,//00415HZ ,7

0xD8,0xF7,//00440HZ 1 //12

0x4D,0xF8,//00466HZ 1# //13

0xBD,0xF8,//00494HZ 2 //14

0x24,0xF9,//00523HZ 2# //15

0x87,0xF9,//00554HZ 3 //16

0xE4,0xF9,//00587HZ 4 //17

0x3D,0xFA,//00622HZ 4# //18

0x90,0xFA,//00659HZ 5 //19

0xDE,0xFA,//00698HZ 5# //20

0x29,0xFB,//00740HZ 6 //21

0x6F,0xFB,//00784HZ 6# //22

0xB1,0xFB,//00831HZ 7 //23

0xEF,0xFB,//00880HZ `1

0x2A,0xFC,//00932HZ `1#

0x62,0xFC,//00988HZ `2

0x95,0xFC,//01046HZ `2#

0xC7,0xFC,//01109HZ `3

0xF6,0xFC,//01175HZ `4

0x22,0xFD,//01244HZ `4#

0x4B,0xFD,//01318HZ `5

0x73,0xFD,//01397HZ `5#

0x98,0xFD,//01480HZ `6

0xBB,0xFD,//01568HZ `6#

0xDC,0xFD,//01661HZ `7 //35

};

//定时中断0,用于产生唱歌频率

timer0() interrupt 1

{

TL0=tl0_f;TH0=th0_f; //调入预定时值

BEEP=~BEEP; //取反音乐输出IO

}

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

//音乐符号串解释函数

//入口:要解释的音乐符号串,输出的音调串,输出的时长串

changedata(uchar *song,uchar *diao,uchar *jie)

{

uchar i,i1,j;

char gaodi; //高低+/-12音阶

uchar banyin;//有没有半个升音阶

uchar yinchang;//音长

uchar code jie7[8]={0,12,14,16,17,19,21,23}; //C调的7个值

*diao=*song;

for(i=0,i1=0;;)

{

gaodi=0; //高低=0

banyin=0;//半音=0

yinchang=4;//音长1拍

if((*(song+i)=='|') || (*(song+i)==' ')) i++;

//拍子间隔和一个空格过滤

switch(*(song+i))

{

case ',': gaodi=-12;i++;//低音

break;

case '`': gaodi=12;i++; //高音

break;

}

if(*(song+i)==0) //遇到0结束

{

*(diao+i1)=0; //加入结束标志0

*(jie+i1)=0;

return;

}

j=*(song+i)-0x30; i++; //取出基准音

j=jie7[j]+gaodi; //加上高低音

yinc: switch(*(song+i))

{

case '#': //有半音j加一个音阶

i++;j++;

goto yinc;

case '-': //有一个音节加长

yinchang+=4;

i++;

goto yinc;

case '_': //有一个音节缩短

yinchang/=2;

i++;

goto yinc;

case '.': //有一个加半拍

yinchang=yinchang+yinchang/2;

i++;

goto yinc;

}

*(diao+i1)=j; //记录音符

*(jie+i1)=yinchang; //记录音长

i1++;

}

}

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

//奏乐函数

//入口:要演奏的音乐符号串

void play(uchar *songdata)

{

uchar i,c,j=0;

uint n;

uchar xdata diaodata[112]; //音调缓冲

uchar xdata jiedata[112]; //音长缓冲

changedata(songdata,diaodata,jiedata); //解释音乐符号串

TR0=1;

for(i=0;diaodata[i]!=0;i++) //逐个符号演奏

{

tl0_f=freq[diaodata[i]*2]; //取出对应的定时值送给T0

th0_f=freq[diaodata[i]*2+1];

for(c=0;cjiedata[i];c++) //按照音长延时

for(n=0;n32000;n++);

TR0=0;

for(n=0;n500;n++); //音符间延时

TR0=1;

}

TR0=0;

}

//仙剑

uchar code xianjian[]={

"|3_3_3_2_3-|2_3_2_2_,6,6_,7_|12_1_,7,6_,5_|,6---|"

"3_3_3_2_3.6_|5_6_5_5_22_3_|45_4_32_1_|3.--3_|"

"67_6_55_3_|5--3_5_|26_5_32_3_|3---|"

"26_6_6-|16_6_66_7_|`17_6_76_7_|3.--3_|"

"67_6_55_3_|5--3_5_|67_6_76_7_|3---|"

"26_6_6-|16_6_66_7_|`17_6_7.5_|6---|"

};

//乐谱方式输入的音乐播放,仙剑奇侠传

void main(void) // 主程序

{

TMOD = 0x01; //使用定时器0的16位工作模式

TR0 = 0;

ET0 = 1;

EA = 1;

while(1)

{

play(xianjian);

}

}

52单片机能播放国歌和随便一首歌的程序怎么写

我这有自己做的一个唱两只老虎的,只有音调,用的无源蜂鸣器

// 蜂鸣器唱两只老虎

#includereg51.h

#includeintrins.h

sbit p=P2^3;

int t;

void js() interrupt 1

{

TH0=(65636-500)/256;

TL0=(65636-500)%256;

t++;

}

void fm(int a)

{

int c;

p=1;

c=10-a;

TMOD=1;

TH0=(65636-500)/256;

TL0=(65636-500)%256;

EA=1;

ET0=1;

TR0=1;

while(1)

{

if(t==12*50)break;

if(a==0)continue;

if(t%c==0)p=0;

if(t%c0)p=1;

}

t=0;

}

void main()

{

int c=0,i=0,k,

code unsigned char b[]={1,2,3,1,1,2,3,1,3,4,5,0,3,4,5,0,5,6,5,4,3,3,1,1,5,6,5,4,3,1,0,3,-1,1,0,3,-1,1,0};

while(1)

{

if(c==40)c=0;

k=(c17||c29);

switch(k){

case(1): fm (b[c]),fm (b[c]);break;

case(0): fm (b[c]);

}

p=1;

c++;

}

}

52单片机简易音乐播放器的介绍到此就结束了,感谢您耐心阅读,谢谢。

本文标签:52单片机简易音乐播放器

<