


全文预览已结束
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
#includetypedef unsigned char uint8;typedef unsigned int uint16;uint8 Count,i;sbit Speak =P12; /蜂鸣器器控制脚 sbit key1 =P32;/按键控制引脚sbit key2 =P33;sbit key3 =P34; /*以下数组是音符编码*/uint8 code SONG = 0xff,0x39,0x30,0x33,0x30,0xff,0x30,0x30,0x00,;void Time0_Init()/定时器T0方式1,定时10msTMOD = 0x01;IE = 0x82;TH0 = 0xDC;TL0 = 0x00;void Time0_Int() interrupt 1TH0 = 0xDC;TL0 = 0x00;Count+;void delay (uint8 k)/按键防抖延时uint8 j;while(k-)!=0) for(j=0;j125;j+); void Delay_xMs(uint8 x)/发声延时 uint8 i,j; for(i=0; ix; i+) for(j=0; j3; j+); void Play_Song(uint8 i)/蜂鸣器发声函数uint8 Temp1,Temp2;uint8 Addr;Count = 0;/中断计数器清0Addr = i *3;while(1)Temp1 = SONGAddr+; if (Temp1 = 0xFF) /休止符 TR0 = 0; Delay_xMs(100); else if (Temp1 = 0x00) /歌曲结束符 return; else Temp2 = SONGAddr+; TR0 = 1; while(1) Speak = Speak; Delay_xMs(Temp1); if(Temp2 = Count) Count = 0; break; void keyscan (void)/按键切换声音函数 if(key1=0) delay(10);if(key1=0) i=0; if(key2=0) delay(10); if(key2=0) i=1; if(key3=0) delay(10); if(key3=0) i=2; void Main()Time
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 摔跤课件简介
- 摄影社团教学课件
- 江苏省南京市联合体2024-2025学年八年级下学期期末语文试题(解析版)
- 摄影学员基础知识培训课件
- 数控技术试题及答案文库
- 2025合同纠纷频发:恶意诉讼成职场新现象
- 摄像设备基础知识培训课件
- 公司销售培训产品知识课件
- 公司财务知识培训通知课件
- 公司财务知识培训制度课件
- DB35T 2078-2022 沼液还田土地承载力测算技术规范
- 供货及时性保证措施
- 梨白粉病抗性鉴定技术规程
- 医院污水处理运维服务投标方案(技术方案)
- 雅马哈RX-V365使用说明书
- 2023-2024学年江苏省盐城市盐都区八年级(下)期末物理试卷(含答案)
- (1000题)中级消防设施操作员模拟试题及答案
- 预制箱梁架设监理实施细则
- JTG-QB-003-2003公路桥涵标准图钢筋混凝土盖板涵
- (高清版)JTG 6310-2022 收费公路联网收费技术标准
- 安全生产费用年度使用分析
评论
0/150
提交评论