全文预览已结束
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
#include#include #define uchar unsigned char#define uint unsigned intsbit BEEP=P15;/生日快乐歌的音符频率表,不同频率由不同的延时来决定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 xms)/延时程序uint i,j;for(i=xms;i0;i-)for(j=110;j0;j-); void xg0()/效果0 uint a,b;a=0xee;delayms(1000);/延时1秒for(b=4;b0;b-)/点亮次数P0=a;/灯1和5亮delayms(1000);a=_crol_(a,1);/循环左移1位void xg1()/效果1 uint a,b;a=0x77;delayms(1000);for(b=4;b0;b-)P0=a;/灯4和8亮delayms(1000);a=_cror_(a,1);/循环右移1位void xg2()/效果2P0=0xe7;/灯4与5亮delayms(1000);P0=0xdb;/灯3和6亮delayms(1000);P0=0xbd;/灯2和7亮delayms(1000);P0=0x7e;/灯1和8亮delayms(1000);void xg3()/效果3P0=0x7e;/灯1和8亮delayms(1000);P0=0xbd;/灯2和7亮delayms(1000);P0=0xdb;/灯3和6亮delayms(1000);P0=0xe7;/灯4与5亮delayms(1000);/播放函数void PlayMusic() uint i=0,j,k;while(SONG_LONGi!=0|SONG_TONEi!=0) /播放各个音符,SONG_LONG 为拍子长度for(j=0;jSONG_LONGi*20;j+)BEEP=BEEP;/SONG_TONE 延时表决定了每个音符的频率for(k=0;kSONG_TONEi/3;k+);delayms(10);i+; void main()BEEP=0;while(1)PlayMusic(); /播放生日快乐BEEP=1;xg0();P0=0xff;delayms(1000);xg1();P0=0xff;delayms(1000);
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 机场地勤人员岗位职责及培训方案
- 咖啡策划活动方案参考
- 合肥秋分活动策划方案
- 雪碧落地活动策划方案
- lol比赛活动策划方案
- 门店春季活动策划方案
- 疫情寝室活动方案策划
- 凯迪拉克周末活动方案策划
- 幼儿园春季社会活动教案设计
- 银行外派营销方案
- 2025-2026华为ICT大赛-基础软件赛道理论考试题库(核心500题)
- 2025-2026学年上学期初中地理人教版七年级期中必刷常考题之地球的运动
- 国内中青年股骨颈骨折治疗的文献综合剖析与展望
- JJF 2321-2025激光标线仪校准装置校准规范
- DCS系统安全管理培训课件
- 日本经营管理讲解课件
- (正式版)DB36∕T 2169-2025 《公路工程固化土应用技术规范》
- 抖音品牌授权协议书范本
- 耕地建房排查培训课件
- 国际展览会策划与执行指南
- 心脑血管疾病科普课件
评论
0/150
提交评论