- 1、本文档共11页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
单片机歌曲(国外英语资料)
单片机歌曲(国外英语资料)
# ifndef _ _ soundplay _ H _ Review _ First _ _
# defines _ _ soundplay _ H _ Review _ First _ _
* * * * / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
# defines System _ OSC / / 定义晶振频z# _ Sound defines Space 4 / / / 5 / / 定义普通音符演奏的长度分率, 每4分音符间隔
Beepio itbfs ^ 7 = 3; / / 定义输出管脚
Unsigned int Code fretab 262277294311330349369392415440466494 [12] = {}; / / 原始频率表
Unsigned Char Code signtab 0,2,4,5,7,9,11 [7] = {}; / / 1 ~ 7在频率表中的位置
Unsigned Char Code lengthtab 1,2,4,8,16,32,64 [7] = {};
Unsigned Char temp Sound _ _ th0, Sound _ temp _ TL0; / / 音符定时器初值暂存
Unsigned Char _ Sound Sound _ temp temp _ Th1, TL1 _; / / 音长定时器初值暂存
* * * * / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Initialsound void (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 _ temp = Sound _ Th1;
TL1 = Sound _ temp _ TL1;
TMOD | = 0x11;
ET0 = 1;
ET1 = 0;
Tr0 = 0;
TR1 = 0;
Ea = 1;
}
Beeptimer0 void (void) interrupt 1 / / 音符发生中断
{
Beepio =! Beepio;
_ th0 th0 = Sound _ temp;
TL0 = Sound _ temp _ TL0;
}
* * * * / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Void play (unsigned char * Sound Signature, unsigned Char, unsigned int unsigned octachord, Speed)
{
Unsigned int newfretab [12]; / / 新的频率表
Unsigned char I, J;
Unsigned int Point, ldiv, ldiv0, ldiv1, ldiv2, ldiv4, currentfre _ T, temp, soundlength;
Unsigned Char Tone, length, SL, sh, SM, as they head out, XG, FD;
For (i = 0; I 12; I + +) / / 根据调号及升降八度来生成新的频率表
{
J = I + Signature;
If (J 11)
{
J = J - 12;
Newfretab [I] = [j] fretab * 2;
}
Else
Newfretab [I] = fretab [j].
If (octachord = = 1)
Newfretab [I] = 2;
Else if (octachord = = 3)
Newfretab [I] = 2;
}
Soundlength = 0;
While (soundlength Sound []. / / 计算歌曲长度 = 0x00)
{
Soundlength + = 2;
}
Point = 0;
Tone Sound Point = [];
Length = Sound Point + [1
您可能关注的文档
- 冲出深圳立交迷宫!-深圳车友会-关闭保存-搜狐社区(国外英语资料).doc
- 决定你穷富的12个准则(国外英语资料).doc
- 净网先锋游戏监管平台安装必读(国外英语资料).doc
- 减少经前头痛的方法(国外英语资料).doc
- 决定—反决定学说(第一门学说)的实质(国外英语资料).doc
- 减肥小技巧(国外英语资料).doc
- 冯敬尧(国外英语资料).doc
- 几十个最新正版软件(附注册码)2(国外英语资料).doc
- 几种人工流产介绍(国外英语资料).doc
- 几种因素导致缺钙(国外英语资料).doc
- 护理学相关知识复习测试卷共三套.doc
- 护理学相关知识复习试题含答案(3套).doc
- 2025届高考语文复习:补写句子 课件.pptx
- 气压带和风带对气候的影响(第1课时)(教学设计).docx
- 气压带和风带对气候影响教学设计2024-2025学年高中地理人教版(2019)选择性必修1.docx
- 《故都的秋》课件 2024-2025学年统编版高中语文必修上册.pptx
- 《屈原列传》课件 2024-2025学年统编版高中语文选择性必修中册.pptx
- 《巫溪家乡文化》课件-2024-2025学年高一语文同步备课课件(统编版必修上册).pptx
- 《苏武传》课件 2023-2024学年统编版高中语文选择性必修中册.pptx
- 郑州中控ZKTime8.3 WEB考勤软件培训文档.pptx
最近下载
- 第20课 走进大自然(课件)-2024冀美版美术二年级上册.pptx
- 05系列建筑标准设计05N6图集.pptx
- Module 3(复习课件)五年级英语上册(外研版三起).pptx
- 中亚(48张ppt).ppt
- EPS7100工业以太网交换机安装说明书V1.01.pdf VIP
- 《中国工程企业海外合规经营与风险防范》微解.ppt
- 2024年国家开放大学《形势与政策》大作业:中华民族现代文明有哪些鲜明特质?建设中华民族现代文明的路径是什么?[附4份答案]供参考.docx
- 洒水车租赁协议书(标准版).docx VIP
- 3119005234赖宇轩《路由与交换技术》实训课实验报告2022 (2).docx VIP
- 基于决策树的可疑交易账户预警模型.pdf VIP
文档评论(0)