跪求单片机51_C语言音乐程序，音乐是国际歌！谢谢！

/

成都理工大学工程技术学院通信工程--漆洋

本程序用于播放音乐，采用定时器1控制时间

从而改变频率实现音节播放

/

#include<AT89X52H>

#define uchar unsigned char

#define uint unsigned int

#define buz P3_1

code uint ton[][7]= //定音所有音阶

{

{0xE600,0xE8D5,0xEB5E,0xEC86,0xEEA7,0xF08B,0xF23C},

{0xF2E6,0xF46D,0xF5BF,0xF61C,0xF750,0xF866,0xF905},

{0xf91E,0xf9DE,0xFA89,0xfaD8,0xfb68,0xfbe8,0xfc5a}, //中音C

{0xFC8F,0xFCEF,0xFD51,0xFD80,0xFDB5,0xFDF4,0xFE2D},

{0xFE47,0xFE77,0xFEA2,0xFEB6,0xFEDA,0xFEF3,0xFF17},

{0xFF24,0xFF3C,0xFF51,0xFF5B,0xFF6D,0xFF7D,0xFF8B},

};

/

格式：音调+音阶+拍数

/

code uint m1[]=

{ //《最炫民族风》

262,261,251,262,261,311,312,321,311,261,0,

312,311,252,311,322,331,351,351,331,322,331,0,

361,361,361,351,331,331,312,261,261,261,332,321,0,

331,332,351,331,321,331,321,311,262,251,261,0,

262,261,251,262,261,311,312,321,311,261,0,

312,311,252,311,322,331,351,351,331,322,331,0,

361,361,361,351,331,331,312,261,261,261,332,321,0,

331,331,351,331,331,351,351,361,362,352,362,0,

262,261,252,261,312,321,331,321,311,321,332,0,

332,361,361,352,331,321,312,321,333,0,

312,261,261,321,262,331,351,331,321,312,0,

262,311,321,332,321,311,261,251,263,0,

8

};

code uint m2[]=

{ //《爱情买卖》

262,261,231,221,232,0,

222,231,221,211,222,0,

252,251,251,231,251,251,251,231,262,231,231,221,232,0,

262,261,231,221,231,0,

221,231,221,211,221,0,

251,251,251,231,251,251,251,231,271,251,251,231,251,0,

231,261,311,311,232,261,311,0,

271,261,271,261,221,231,0,

222,221,221,161,221,231,251,231,271,271,251,232,0,

232,261,311,311,231,261,311,0,

331,321,331,321,311,321,0,

331,331,321,311,321,321,311,271,251,231,251,261,263,0,

8

};

code uint m3[]=

{

//《北京爱情故事》滴答滴答

252,262,311,322,331,312,331,323,0,

322,322,321,0,321,311,311,0,262,263,0,

252,261,312,322,332,351,332,323,0,

322,321,322,321,311,312,261,331,333,0,

362,361,362,361,351,351,331,323,0,

321,321,322,321,312,311,352,351,332,0,

362,361,362,411,332,321,332,321,0,

321,321,321,321,311,261,261,311,313,0,

8

};

code uint m4[]=

{ //《同桌的你》

252,251,251,251,231,241,251,272,0,

262,261,261,261,241,262,252,0,

252,251,251,251,271,261,251,241,0,

241,241,241,241,241,231,221,212,0,

252,251,251,251,231,241,251,272,0,

262,261,261,261,241,262,252,0,

252,251,251,251,271,261,251,241,0,

241,241,241,241,241,231,221,212,0,

311,311,311,312,251,261,311,311,332,0,

322,321,321,321,311,271,262,0,

272,271,271,271,311,321,252,0,

271,271,311,321,311,271,313,0,

311,311,311,312,251,261,311,311,332,0,

322,321,321,321,311,271,262,0,

272,271,271,271,311,321,252,0,

271,271,311,321,311,271,313,0,

8

};

code uint m5[]=

{ //《荷塘月色》

211,212,161,152,161,211,211,221,233,0,

221,222,211,221,221,252,251,231,231,221,233,0,

211,212,161,152,252,231,221,231,221,212,0,

222,221,211,221,221,232,221,211,161,221,212,0,

211,212,161,152,161,211,211,221,233,0,

221,222,211,221,221,252,251,231,231,221,233,0,

211,212,161,152,252,231,221,231,221,212,0,

222,221,211,221,221,232,221,211,161,221,212,0,

231,252,251,252,251,261,251,231,221,212,0,

261,311,261,251,231,221,211,162,221,221,232,221,0,

231,252,251,252,251,261,251,231,221,212,0,

162,211,161,151,222,231,212,0,

8

};

code uint m6[]= //《猪八戒背媳妇》

{

262,331,351,332,261,312,0,

261,311,261,311,332,331,321,332,311,262,0,

332,351,361,361,361,331,352,0,

332,351,332,351,361,361,362,331,352,0,

352,261,352,261,331,331,312,0,

321,0,321,0,321,311,321,332,351,361,432,331,432,0,

331,431,331,431,331,331,313,0,

321,0,321,0,322,311,321,331,351,364,0,

8

};

void musicdelay(int q)

{

while(--q);

}

/音乐播放程序/

void musicplay(uint a)

{

uint b,i,j,k,l,m,p;

uchar KEY=0;

TMOD=0x11;

p=0;

buz=1;

while(1) //如果其它键，停止播放音乐

{

if(a[p]==8)break; //判断休止符，结束播放

if(a[p]!=8) //音频识别与转换

{

i=a[p]/100;

j=a[p]%100/10;

l=a[p]%10;

if(a[p]!=0){b=ton[i][j-1];}; //转换后存入变量b中

if(a[p]==0){b=0;};

p++;

}

k=(230414/(0xffff-b))l; //拍数

/播放当前音节/

if(b!=0) //判断为正常音符，播放

{

TH1=0;TL1=0;TR1=1;

for(m=0;m<k;m++)

{

TH1=((b&0xff00)>>8); //装定时器初值

TL1=(b&0x00ff);

while(TF1==0);

buz=~buz; //实现一次蜂鸣器震动

TF1=0;

}

TR1=0;

buz=1;

}

//

if(b==0) //判断为0（停顿），延时一节拍

{

buz=1;

for(m=0;m<80;m++)

{

musicdelay(300);};

}

}

}

void musicplayc(uchar i)

{

if(i==1){musicplay(m1);};

if(i==2){musicplay(m2);};

if(i==3){musicplay(m3);};

if(i==4){musicplay(m4);};

if(i==5){musicplay(m5);};

if(i==6){musicplay(m6);};

}

下面用beep函数发音，按键 1，2，3，4，5，6，7，8 对应 多来米发少。。。

按换行键结束。03秒一个音，不要按得太快。

#include <windowsh>

#include <stdioh>

#include <stdlibh>

void main()

{

char p;

int i=0;

printf("input 12345678\n");

while ( i < 50 ){

p = getch();

if (p == '\r') break;

switch(p-'0'){

case 1: Beep(523,300);break;

case 2: Beep(587,300);break;

case 3: Beep(659,300);break;

case 4: Beep(698,300);break;

case 5: Beep(784,300);break;

case 6: Beep(880,300);break;

case 7: Beep(980,300);break;

case 8: Beep(1060,300);break;

default: break;

}

i++;

}

exit(0);

}

音乐聆听的程序性本质在于，它可以以精确的方式提供良好的音乐体验。它通过不同的技术来改变声音，以使它更加贴近音乐本身的原始情感；它也可以使声音更加清晰，以达到最佳的聆听效果。此外，程序性的音乐聆听还发挥了重要作用，可以根据用户的喜好，定制各种不同的音乐风格和音色，以获得更加个性化的音乐体验。

NUM EQU 30H

UP EQU P36

DN EQU P37

ORG     0000H

AJMP    START           ;Fosc＝12MHz

ORG     000BH           ;T0 中断入口地址

AJMP    INT_T0

ORG     001BH           ;T1 中断入口地址

AJMP    INT_T1

START:

MOV  SP, #60H

MOV TMOD, #11H

MOV IE, #8AH 

MOV IP, #08H          ;T1中断优先于T0中断

MOV TH1, #3CH

MOV TL1, #0BH        ;以上为系统初始化，T=60ms

W1: MOV P2, #01110001B    ;等待提示"F" ,01110001

LCALL GETKEY

CJNE  A, #0FFH, W1  

MOV  A, B

CJNE    A, #0AH, W2

LCALL   KEY_A            ;输入键是'A',转KEY_A

SJMP W1

W2: CJNE A, #0BH, W3

LCALL   KEY_B           ;输入键是'B',转KEY_B

W3: CJNE A, #0CH, W4

LCALL   KEY_C           ;输入键是'C',转KEY_C

W4: CJNE A, #0DH, W5

LCALL   KEY_D

    SJMP W1                ;输入键是'D',转KEY_D

W5: CJNE A,#0EH,W6 ;下一首

INC NUM

MOV A,NUM

CJNE A,#4,W51

W51:

JC W52

MOV NUM,#0

W52:

MOV A,NUM

SJMP D0

W6: CJNE A,#0FH,W7 ;上一首

MOV A,NUM

JNZ W61

MOV NUM,#4

W61:

DEC NUM

MOV A,NUM

SJMP D0

W7:

SJMP W1

KEY_A:                        ;从1～4按顺序播放

LCALL MUSIC1      ;乐曲《我和你》

LCALL MUSIC2       ;乐曲《万水千山总是情》

LCALL MUSIC3               ;乐曲《送别》

LCALL MUSIC4               ;乐曲《北京欢迎您》

RET

KEY_B:                         ;从1～4循环播放

T11: LCALL KEY_A

SJMP T11

RET

KEY_C:                        ;循环播放某一乐曲

T3: LCALL GETWORD

CJNE A, #0FFH, T3

MOV A, B

D0:

JNZ D1

SJMP E0

D1: DEC A

JNZ D2

SJMP E1

D2: DEC A

JNZ E3

SJMP E2

E0: LCALL MUSIC1            ;乐曲《我和你》

SJMP E0

E1: LCALL MUSIC2           ;乐曲《万水千山总是情》

SJMP E1

E2: LCALL MUSIC3           ;乐曲《送别》

SJMP E2

E3: LCALL MUSIC4           ;乐曲《北京欢迎您》

SJMP E3

RET

KEY_D:                      ;从某一乐曲开始播放，播放完后停止

T2: LCALL GETWORD

CJNE A, #0FFH, T2

MOV A, B

CJNE A, #00H, B1

SJMP C0

B1: CJNE A, #01H, B2

SJMP C1

B2: CJNE A, #02H, C3

SJMP C2

C0: LCALL MUSIC1               ;乐曲《我和你》

C1: LCALL MUSIC2               ;乐曲  《万水千山总是情》 

C2: LCALL MUSIC3               ;乐曲《送别》

C3: LCALL MUSIC4               ;乐曲《北京欢迎您》

RET

MUSIC1:                         ;第一首《我和你》

MOV  P2, #00000110B  ;显示1,00000110

MOV  R5, #11111001B

MOV  52H, #HIGH TABLE10

    MOV  53H, #LOW TABLE10

MOV NUM,#0

LCALL  music

RET

MUSIC2:     ;第二首《万水千山总是情》

MOV P2, #01011011B           ;显示2,01011011

MOV R5, #10100100B

MOV  52H, #HIGH TABLE20

    MOV  53H, #LOW TABLE20 

MOV NUM,#1

    LCALL  music

RET

MUSIC3:                   ;第三首《送别》

MOV P2, #01001111B   ;显示3,01001111

MOV R5, #10110000B

MOV  52H, #HIGH TABLE30

    MOV  53H, #LOW TABLE30 

MOV NUM,#2

    LCALL  music

RET

MUSIC4:                         ;第四首《北京欢迎您》

MOV P2, #01100110B     ;显示4,01100110

MOV R5, #10011001B

MOV  52H, #HIGH TABLE40

    MOV  53H, #LOW TABLE40 

MOV NUM,#3

    LCALL  music

RET 

music: MOV R3,#00H           ;音乐解码器

NEXT20:

MOV A,P3

ORL A,#0C0H

MOV P3,A

MOV A,P3

CPL A

ANL A,#0C0H

JZ NEXT21

POP ACC

POP ACC

LJMP W1

RET

NEXT21:

     MOV   A, R3

 MOV  DPH, 52H

 MOV  DPL, 53H

 MOVC A, @A+DPTR

 MOV  R2, A

 JZ  STOP

 ANL  A, #0FH

 MOV  R1, A

 MOV  A, R2

 SWAP  A

 ANL  A, #0FH

 JNZ  SING

 CLR  TR0

 JMP  W11

;----------------------------------------------------------

SING:

DEC  A

MOV  22H, A

RL   A

MOV  DPTR, #TABLE00

MOVC  A, @A+DPTR

MOV  TH0, A

MOV  21H, A

MOV  A, 22H

RL  A

INC  A

MOVC  A, @A+DPTR

MOV  TL0, A

MOV  20H, A

SETB  TR0

SETB   TR1

W11: 

LCALL  DELAY3

INC  R3

LJMP  NEXT20

;-----------------------------------------------------------

STOP:

CLR  TR0

CLR  TR1

    RET

;

;定时器0中断子程序

;

INT_T0: 

CLR  TR0

MOV  TL0, 20H

MOV  TH0, 21H

CPL  P30

SETB TR0

RETI

;

;定时器1中断子程序

;

INT_T1: 

CLR  TR1

CLR  TR0

LCALL KEY_E

MOV  TH1, #3CH

  MOV  TL1, #0BH

DJNZ  60H, OUT

    MOV  60H, #20

OUT:

SETB TR1

RETI                      

KEY_E:

JB P31, L2              ;中断键盘检测

LCALL DELAY2           ;消除抖动

JB  P31, L2           ;如果是高电平就跳到L2

JNB   P31, $           ;如果仍然是低电平就执行中断程序

MOV P2, #0111100B        ;让LED显示E,01111001

L3: JB P31, $           ;检测低电平，直到低电平时才跳出该指令

LCALL DELAY2

JB P31, L3

JNB  P31, $           ;如果再来一个高电平才跳出中断

MOV P2,R5

L2: SETB  TR0

RET

GETKEY:                ;读A B C D键盘子程序 

SA: JB P10, SB            ;读A,是高电平表示没有按键，跳转到SB

LCALL DELAY2

JB P10, SA

JNB  P10, $

MOV P2, #01110111B     ;显示A,01110111

MOV R5, #10001000B

MOV A, #0FFH

MOV B, #0AH

RET

SB: JB P11, C11              ;读B，是高电平表示没有按键按下，跳转到C11

LCALL DELAY2

JB P11, SB

JNB P11, $

MOV P2, #01111100B        ;显示B,01111100

MOV R5, #10000011B

MOV A, #0FFH

MOV B, #0BH

RET

C11:JB P12, ED1        ;读C

LCALL DELAY2

JB  P12, C11

JNB  P12, $

MOV P2, #00111001B ;显示C,00111001

MOV R5, #11000110B

MOV A, #0FFH

MOV B, #0CH

RET

ED1:

JB P13, L0             ;读D

LCALL DELAY2

JB  P13, ED1

JNB   P13, $

MOV P2, #01011110B   ;显示D,01011110

MOV R5, #10100001B

MOV A, #0FFH

MOV B,  #0DH

L0: JB UP,L01

LCALL DELAY2

JB UP,L01

JNB UP,$

MOV A,#0FFH

MOV B,#0EH

RET

L01:

JB DN,L02

LCALL DELAY2

JB DN,L02

JNB DN,$

MOV A,#0FFH

MOV B,#0FH

L02:

RET

GETWORD:                     ;读音乐序号子程序

S1: JB P14, S2         ;读1键

LCALL DELAY2

JB P14, S1

JNB P14, $

MOV P2, #00000110B    ;显示1

MOV R5, #11111001B

MOV A, #0FFH

MOV B, #00H

RET

S2: JB P15, S3            ;读2键

LCALL DELAY2

JB P15, S2

JNB P15, $

MOV P2, #01011011B    ;显示2

MOV R5, #10100100B

MOV A, #0FFH

MOV B, #01H

RET

S3: JB P16,S4           ;读3键

LCALL DELAY2

JB P16,S3

JNB P16,$

MOV P2,#01001111B    ;显示3

MOV R5,#10110000B

MOV A,#0FFH

MOV B,#02H

RET

S4: JB P17, L1           ;读4键

LCALL DELAY2

JB P17, S1

JNB P17, $

MOV P2, #01100110B ;显示4

MOV R5, #10011001B

MOV A, #0FFH

MOV B, #03H

L1: RET

DELAY:                          ;延时子程序

        PUSH    0               ;保存现场

        PUSH    1

        MOV     0, #0H

DELAY1: MOV     1, #0H

        DJNZ    1, $

        DJNZ    0, DELAY1

        POP     1               ;恢复现场

        POP     0

        RET

DELAY2: MOV 41H, #100        ;延时子程序2

F1: MOV 42H, #250

DJNZ 42H, $

DJNZ 41H, F1

RET

DELAY3:           ;延时子程序3 

MOV  R7, #2

W22: MOV  R4, #125

W33: MOV  R0, 248

DJNZ  R0, $

DJNZ  R4, W33

DJNZ  R7, W22

DJNZ  R1, DELAY3

RET

TABLE00:                       ;频率表

DW 64260,64400,64524,64580          ;简码值 低音5, 低音6, 低音7,1

DW 64684,64777,64820,64898          ; 简码值 2,3,4,5

DW 64968,65030,65058,65110          ; 简码值 6,7,高音1,高音

        DW 65157,65178,65217            ;简码值 高音3,高音4,高音5

;--------------------------------------------------------------------

;第一首《我和你》

;--------------------------------------------------------------------

TABLE10: DB 64H,82H,42H,48H

DB 54H,64H,18H

DB 44H,54H,64H,84H

DB 5CH

DB 64H,84H,44H,04H,42H

DB 54H,64H,28H

DB 54H,14H,54H,64H

DB 4CH

DB 98H,88H

DB 98H,48H

DB 64H,24H,64H,84H

DB 5CH

DB 64H,82H,42H,48H

DB 54H,64H, 28H

DB 54H,14H,54H,34H

DB 4CH

DB 00H

;--------------------------------------------------------------------

;第二首《万水千山总是情》

;--------------------------------------------------------------------

TABLE20: DB 64H,74H,84H,04H,82H,94H,84H,6CH

DB 54H,44H,04H,62H,54H,44H,2CH

DB 24H,18H, 44H,54H,64H,84H,94H,64H,5CH

DB 64H,74H,84H,04H,82H,94H,84H,6CH

DB 54H,44H,04H,62H,54H,44H,2CH

DB 24H,18H, 44H,64H,54H,04H,42H,24H,44H,4CH

DB 64H,84H,9CH,0A4H,94H,74H,84H,04H,92H,8CH,64H,88H

DB 64H,84H,9CH,0A4H,0A4H,94H,84H,64H,5CH

DB 64H,74H, 84H,04H,82H,94H,84H,6CH

DB 54H,44H,04H,62H,54H,44H,2CH

DB 24H,18H,44H,64H,54H,42H,24,44H,4CH

DB 00H

;--------------------------------------------------------------------

;第三首《送别》

;--------------------------------------------------------------------

TABLE30:   DB 84H,62H,82H,0B8H

DB 94H,0B2H,92H,88H

DB 84H,42H,52H,64H,52H,44H

        DB 5CH

        DB 84H,62H,82H,0B4H,04H,82H

DB 94H,0B4H, 88H

DB 84H,52H,62H,74H,04H,32H

DB 4CH

DB 94H,0B4H,0B8H

DB 0A4H,92H,0A2H,0B8H

DB 92H,0A2H,0B2H,92H,92H,82H,62H,42H

DB 5CH

DB 84H,62H,82H,0B4H,04H,0A2H

DB 94H,0B4H,88H

DB 84H,52H,62H,74H,04H,32H

DB 4CH

DB 00H

;--------------------------------------------------------------------

;第四首《北京欢迎您》

;--------------------------------------------------------------------

TABLE40:    DB 62H,82H,62H,52H,12H

DB 62H,52H,12H,64H

DB 62H,52H,22H,42H 

DB 62H,54H

DB 52H,42H,22H,42H

DB 52H,62H,82H,52H

DB 62H,92H,82H,12H

DB 52H,44H

DB 52H,42H,22H,42H

DB 52H,62H,82H,52H

DB 62H,92H,82H,82H

DB 68H

DB 52H,62H,52H,42H

DB 82H,92H,64H

DB 22H,62H,64H

DB 54H,64H

DB 64H,84H

DB 0B2H,82H,94H

DB 02H,92H,82H,62H

DB 62H, 82H,88H

DB 00H

END

//《世上只有妈妈好》51单片机C语言程序和音乐采灯程序

//此程序在硬件上调试通过

//本程序的单片机晶振采用11．0592MHZ

//此程序的流水灯随音乐的节拍的快慢而动

#include <reg51h>

sbit speaker=P2^0; //接音频放大电路,

//sbit speaker=P3^2;

sbit sw=P3^0; //电后位后,sw合上后就开始放音乐,灯开始闪动,sw断开,音乐停 止, 灯也同时停止闪动

unsigned char timer0h,timer0l,time,led=1,j=0;

unsigned char flagd=0;

//世上只有妈妈好数据表

code unsigned char sszymmh[]={ 6,2,3, 5,2,1, 3,2,2, 5,2,2, 1,3,2, 6,2,1, 5,2,1,

6,2,4, 3,2,2, 5,2,1, 6,2,1, 5,2,2, 3,2,2, 1,2,1,

6,1,1, 5,2,1, 3,2,1, 2,2,4, 2,2,3, 3,2,1, 5,2,2,

5,2,1, 6,2,1, 3,2,2, 2,2,2, 1,2,4, 5,2,3, 3,2,1,

2,2,1, 1,2,1, 6,1,1, 1,2,1, 5,1,6, 0,0,0

} ;

// 音阶频率表 高八位

code unsigned char FREQH[]={

0xF2,0xF3,0xF5,0xF5,0xF6,0xF7,0xF8,

0xF9,0xF9,0xFA,0xFA,0xFB,0xFB,0xFC,0xFC, //1,2,3,4,5,6,7,8,i

0xFC,0xFD,0xFD,0xFD,0xFD,0xFE,

0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFF,

} ;

// 音阶频率表 低八位

code unsigned char FREQL[]={

0x42,0xC1,0x17,0xB6,0xD0,0xD1,0xB6,

0x21,0xE1,0x8C,0xD8,0x68,0xE9,0x5B,0x8F, //1,2,3,4,5,6,7,8,i

0xEE,0x44, 0x6B,0xB4,0xF4,0x2D,

0x47,0x77,0xA2,0xB6,0xDA,0xFA,0x16,

};

void delay(unsigned char t)

{

unsigned char t1;

unsigned long t2;

for(t1=0;t1<t;t1++)

{

for(t2=0;t2<8000;t2++)

{

;

}

}

TR0=0;

}

void t0int() interrupt 1

{

TR0=0;

speaker=!speaker;

TH0=timer0h;

TL0=timer0l;

TR0=1;

}

void song()

{

TH0=timer0h;

TL0=timer0l;

TR0=1;

delay(time);

}

void main(void)

{

unsigned char k,i;

TMOD=1; //置CT0定时工作方式1

EA=1;ET0=1;//IE=0x82 //CPU开中断,CT0开中断

while(1)

{

i=0;

time=1;

sw=1;

while(time)

{

if(sw)

{P1=0;i=0;continue;}

if(j==8)

{

//led=1;

j=0;flagd=~flagd;

if(flagd)

{

led=0x80;

}

else

{

led=1;

}

}

else

{

P1=~led;

if(flagd)

{

led=led>>1;

}

else

{

led=le d<<1;

}

j++;

}

k=sszymmh[i]+7sszymmh[i+1]-1;

timer0h=FREQH[k];

timer0l=FREQL[k];

time=sszymmh[i+2];

i=i+3;

song();

}

}

}

以上就是关于跪求单片机51_C语言音乐程序，音乐是国际歌！谢谢！全部的内容，包括:跪求单片机51_C语言音乐程序，音乐是国际歌！谢谢！、如何用c语言编出能用键盘敲出音乐的的程序、音乐聆听的程序性本质存在于等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！