0
  • 聊天消息
  • 系统消息
  • 评论与回复
登录后你可以
  • 下载海量资料
  • 学习在线课程
  • 观看技术视频
  • 写文章/发帖/加入社区
创作中心

完善资料让更多小伙伴认识你,还能领取20积分哦,立即完善>

3天内不再提示

使用单片机编写的音乐程序

Wildesbeast 来源:福星电子网 作者:福星电子网 2020-01-21 12:18 次阅读

使用单片机编写的音乐程序


6=440Hz,#6=440*1.059463=466.2Hz,7=440*1.059463*1.059463=493.9Hz

#5=440÷1.059463=415.3Hz

5=440÷1.059463÷1.059463=392Hz

相邻半音阶的关系为1.059463倍,只要知道“A”=440Hz,即可算出其余半音阶的频率,比A高的用“*”,比A低的用“÷”

1.059463=12√2(即2开12次根)

440Hz为钢琴中央C组的A(即“6”音)

ok

这是本人一个产品中的音乐单元,很完整,供爱好者参考。

ORG 0000H

AJMP CSH 主程序进入点

ORG 000BH

LJMP TIM0 定时中断T0入口

;

;**********

;* 初始化 *

;**********

;

ORG 0020H

CSH: MOV R0,#7FH 内部RAM(00H~7FH)清零

CSH1: MOV @R0,#00H

DJNZ R0,CSH1

MOV SP,#60H 堆栈60H~7FH,【使用89C51】

MOV TMOD,#01H TMOD=11H,T0作16位计数器(4M晶振)

CLR TCON.4 T0禁止动作

SETB IE.1 T0允许中断

SETB PT0 T0中断优先

SETB IE.7 系统允许中断

;

;**********

;* 主程序 *

;**********

;

MAIN: MOV 5CH,#00 取简码谱指针

LCALL MUSIC

MOV 5CH,#49 取简码谱指针

LCALL MUSIC

MOV 5CH,#66 取简码谱指针

LCALL MUSIC

MOV 5CH,#100 取简码谱指针

LCALL MUSIC

MOV 5CH,#108 取简码谱指针

LCALL MUSIC

MOV 5CH,#136 取简码谱指针

LCALL MUSIC

MOV 5CH,#174 取简码谱指针

LCALL MUSIC

AJMP MAIN

;

;*************************

;* 音乐子程序 MUSIC *

;* 入口: 5CH←简码谱指针 *

;*************************

;

MUSIC: MOV A,5CH 简码谱指针装入A

MOV DPTR,#TABLE 至TABLE取简码

MOVC A,@A+DPTR

MOV R2,A 取到的简码暂存于R2

JZ END1 是否取到00(结束码)?

ANL A,#0FH 不是,则取低四位(节拍码)

MOV R6,A 将节拍码存入R6

MOV A,R2 将取到的简码再装入R2

SWAP A 高低四位交换

ANL A,#0FH 取低四位(音符码)

JNZ SING 取到的音符码是否为0?

CLR TR0 是,则不发音

AJMP D1 跳到D1

;

SING: DEC A 取到的音符码减1

MOV 4BH,A 存入(4BH)

RL A 乘2

MOV DPTR,#TABLE1 至TABLE1取相对的高字节计数值

MOVC A,@A+DPTR

MOV TH0,A 取到的高字节存入TH0

MOV 4AH,A 取到的高字节存入(4AH)

MOV A,4BH 再装入取到的音符码

RL A 乘2

INC A 加1

MOVC A,@A+DPTR 至TABLE1取相对的低位

MOV TL0,A 取到的低字节存入TL0

MOV 49H,A 取到的低字节存入(49H)

SETB TR0 启动TIMER0

D1: CALL DELAY 基本单位时间1/4拍187毫秒

INC 5CH 取简码谱指针加1

AJMP MUSIC 取下一个码

DD1: RET

;

STOP: NOP

; JB P3.7,STOP1 在软件延时中掺插做其他动作

; SETB P2.7 P2.7←“1”

NOP

NOP

STOP0: NOP

RET

STOP1: NOP

; JB P3.6,STOP0 在软件延时中掺插做其他动作

; SETB P2.6 P2.6←“1”

RET

;

END1: CLR TR0 停止TIMER0

RET

;

TIM0: PUSH A 将A的值暂存于堆栈区

PUSH PSW 将PSW的值暂存于堆栈区

MOV TL0,49H 重设计数值

MOV TH0,4AH

CPL P1.7 将输出端P1.1取反(P1.7接至无源蜂鸣器)

POP PSW 至堆栈区取回PSW的值

POP A 至堆栈区取回A的值

RETI 返回主程序

;

DELAY: MOV R7,#02 187毫秒

D2: MOV R4,#24

D3: MOV R3,#48

DJNZ R3,$

ACALL STOP 在软件延时中掺插做其他动作

DJNZ R4,D3

DJNZ R7,D2

DJNZ R6,DELAY 决定节拍

RET

; .5 .6 .7 1

TABLE1: DW 65111,65150,65199,65217 4M晶振时的定时中断时间常数

; 2 3 4 5 若采用其它频率,则要根据乐音的

DW 65252,65283,65297,65323 频率计算,例中央C的A音为440Hz,

; 6 7 1` 2` 440Hz=2.273ms,把T0设置为2.273ms

DW 65347,65367,65377,65394 中断即可发出A音。

; 3` 4` #6

DW 65410,65417,65357

;

;***************************************************************

;* 音符代码 1 2 3 4 5 6 7 8 9 A B C D E F 0 *

;* 音高 .5 .6 .7 1 2 3 4 5 6 7 1` 2` 3` 4` 5` 休止 *

;*-------------------------------------------------------------*

;* 节拍代码 1 2 3 4 5 6 8 A C F *

;* 节拍 1/4 2/4 3/4 1 1(1/4) 1(1/2) 2 2(1/2) 3 3(3/4) *

;*-------------------------------------------------------------*

;* 结束代码 00H *

;*-------------------------------------------------------------*

;* 乐谱格式 每字节的高字节为音符代码,低字节为节拍代码 *

;*-------------------------------------------------------------*

;* 例子: ⑴ ⑵ ⑶ ⑷ ⑸ ⑹ ⑺ ⑻ ⑼ ⑽ ⑾ *

;* DB A4H,02H,84H,02H,A4H,02H,84H,02H,D8H,04H,00H *

;* ⑴ A→唱“7” , 4→ 1 拍 *

;* ⑵ 0→休止 , 2→2/4拍 *

;* ⑶ 8→唱“5” , 4→ 1 拍 *

;* ⑷ 0→休止 , 2→2/4拍 *

;* ⑸ A→唱“7” , 4→ 1 拍 *

;* ⑹ 0→休止 , 2→2/4拍 *

;* ⑺ 8→唱“5” , 4→ 1 拍 *

;* ⑻ 0→休止 , 2→2/4拍 *

;* ⑼ D→唱“3`”, 8→ 2 拍 *

;* ⑽ 0→休止 , 4→ 1 拍 *

;* ⑾ 00H→乐曲结束 *

;***************************************************************

;

TABLE:

;【00】

DB 98H,02H,B4H,01H,94H,01H,68H,02H,94H,01H

DB 64H,01H,48H,02H,64H,01H,44H,01H,28H,02H

DB 64H,01H,94H,01H,B4H,01H,94H,01H,B4H,01H

DB 94H,01H,B4H,01H,D4H,01H,94H,01H,64H,01H

DB 44H,01H,64H,01H,98H,02H,01H,01H,00H

;【49】

DB A4H,02H,84H,02H,A4H,02H,84H,02H,D8H,04H

DB C8H,01H,01H,01H,01H,01H,00H

;【66】

DB 42H,52H,62H,72H,82H,92H,A2H,B2H,42H,52H

DB 62H,72H,82H,92H,A2H,B2H,00H

;【100】

DB 61H,81H,B1H,D1H,B1H,81H,61H,00H

;【108】

DB 11H,41H,61H,81H,61H,41H,11H,00H

;【136】

DB 24H,04H,34H,04H,44H,04H,54H,04H,64H,04H,44H,04H,64H,04H,94H,04H

DB 83H,01H,93H,01H,83H,01H,63H,01H,46H,02H,66H,02H

DB 91H,21H,91H,21H,91H,21H,91H,21H,94H,00H

;【174】

DB 94H,04H,A4H,04H,B4H,04H,C4H,04H,D4H,04H

DB B4H,04H,D8H,08H,C4H,04H,F4H,04H,CCH,00H

;

END
责任编辑 LK

声明:本文内容及配图由入驻作者撰写或者入驻合作网站授权转载。文章观点仅代表作者本人,不代表电子发烧友网立场。文章及其配图仅供工程师学习之用,如有内容侵权或者其他违规问题,请联系本站处理。 举报投诉
  • 单片机
    +关注

    关注

    5998

    文章

    43956

    浏览量

    620629
  • 程序
    +关注

    关注

    114

    文章

    3630

    浏览量

    79500
收藏 人收藏

    评论

    相关推荐

    keil5mdk怎么编写51单片机程序

    编写51单片机程序需要以下步骤: 编写程序框架:首先,你需要定义程序所需要的变量和常量,以及设置中断向量和寄存器的初始状态。这些信息可以根据
    的头像 发表于 12-25 14:54 454次阅读

    怎样给单片机编写bootloader?

    怎样给单片机编写bootloader
    发表于 10-30 07:45

    如何用51单片机编写一个时钟程序

    用51单片机做时钟程序,怎么写代码让才能让蜂鸣器整点报时?
    发表于 10-28 08:29

    单片机制作音乐

    电子发烧友网站提供《单片机制作音乐盒.pdf》资料免费下载
    发表于 10-10 09:17 8次下载
    <b class='flag-5'>单片机</b>制作<b class='flag-5'>音乐</b>盒

    用51单片机DIY音乐频谱显示

    该资源是手把手教你用51单片机DIY音乐频谱显示
    发表于 09-27 07:42

    单片机音乐喷泉喇叭声音沙沙的是什么原因?

    单片机音乐喷泉喇叭声音沙沙的是什么原因?怎么调试?
    发表于 09-26 07:36

    基于51单片机音乐喷泉设计频谱彩灯音乐盒播放器源代码分享

    基于51单片机音乐喷泉设计频谱彩灯音乐盒播放器源代码
    发表于 09-26 07:16

    干货分享 | 《使用面向对象的思想编写单片机程序

    本文内容转自百问科技,原文: 百问网新作《使用面向对象的思想编写单片机程序》 自2005年以来,我一直从事Linux开发,但对于单片机始终没有产生兴趣,原因是觉得
    的头像 发表于 07-17 12:10 1072次阅读
    干货分享 | 《使用面向对象的思想<b class='flag-5'>编写</b><b class='flag-5'>单片机</b><b class='flag-5'>程序</b>》

    如何与PIC单片机建立PICKit3程序编写电路?

     在本文中,主要解释如何与PIC单片机建立PICKit3程序编写电路,以下图电路为例,组装在试验板上的程序编写电路是以下电路图的红色部分。
    的头像 发表于 07-10 11:19 1386次阅读
    如何与PIC<b class='flag-5'>单片机</b>建立PICKit3<b class='flag-5'>程序</b><b class='flag-5'>编写</b>电路?

    单片机控制蜂鸣器音乐资料分享

    单片机控制蜂鸣器音乐
    发表于 06-05 09:31 40次下载

    基于单片机电子音乐Proteus仿真程序

    基于单片机电子音乐Proteus仿真设计资料
    发表于 05-22 15:35 0次下载

    如何使用Java编写单片机程序

    单片机
    YS YYDS
    发布于 :2023年05月16日 22:29:05

    基于AT89C51单片机按键选播电子音乐Proteus仿真及程序

    基于AT89C51单片机按键选播电子音乐Proteus仿真及程序
    发表于 05-04 15:59 4次下载

    基于51单片机的播放音乐实验设计资料源程序文件

    基于51单片机的播放音乐实验设计资料源程序文件 经常看到一些刚学单片机的朋友对单片机演奏音乐
    发表于 04-27 15:06 1次下载

    基于51单片机单片机播放音乐实验设计资料源程序

    经常看到一些刚学单片机的朋友对单片机演奏音乐比较有兴趣,本人也曾是这 样。在此,本人将就这方面的知识做一些简介,但愿能对单片机演奏音乐比较
    发表于 04-26 15:38 0次下载