


版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、?单音#include <reg51. h> sbit beep 二 Pl"0;Sdefine soundT 65058 void tOinit ()TMODX 0x01;THO二 soundT/256;TL0=soundT%256;EA 二 1;ETO二 1;TRO 二 1;void tOserv() interrupt 1THO二 soundT/256;TL0=soundT%256;beep"beep;void main()tOinitO ;while(1);二?八个音#include <reg5l ? h>#define uint unsign
2、ed int#define uchar unsigned charuint codettable = 64580, 64684, 64777, 64820, 6489& 6496& 65030, 65058; uint soundT;sbit beep 二 FlOsbit keyl 二 P2P;sbit key2 二 P2l;sbit key3 二 P2"2;sbit key4 二 P23;sbit key5 二 P2"4;sbit key6=P2*'5;sbit key7 二 P2"6;sbit key8 二 P2"7;void
3、 delay(uint x)uint i, j;for (i=x;i>0;i-)for(j=U0;j>0;j-); void tOinit ()TMOM 0x01;THC二 soundT/256;TL0=soundT%256;EA 二 1;TRO=1;void tOserv() interrupt 1THO二 soundT/256;TL0=soundT%256;beep 二'beep;void keytest ()辻(P2!=0xff)辻(keyl=0)delay (5);辻(keyl -0) soundT=ttable0;if(key2=0)delay (5);辻(key
4、2=0) soundT=ttablel;if (key3=0)delay (5);辻(key3=0) soundT=ttable 2;if(key4=0)delay (5);辻(key4=0) soundT=ttable 3;if(key5=0) delay (5);辻 (key5=0) soundT=ttable4;if(key6=0)delay(5);i.f (key6=0) soundT=ttable5:if(key7=0)delay (5);辻 (key7=0) soundT=ttable6;if(key8=0)辻 (key80) soundT=ttable 7;TRO=1;else
5、TRO 二 0;void main()tOinitO ;while(1) keytest ();三. 播放音乐#include <reg51 ? h>#define uchar unsigned char#define uint unsigned intsbit beep 二 Pl/0;uint soundT, yjsj;uint code ttable = 0, 64580, 64684, 64777, 64820, 6489& 6496& 65030;uchar code mtable = 0xl2, 0x22, 0x32, 0x12,0x12,0x22, 0x
6、32, 0x12, 0x32,0x42,0x54, 0x32, 0x42, 0x54,0x51, 0x61, 0x51, 0x41, 0x32,0x12, 0x51, 0x61, 0x51, 0x41,0x32,0x12, 0;uchar mnum, temp, yj;void delay(uint x)uint i, j;for(i=x;i>0;i-)for(j=U0;j>0;j);void tOinit ()TH0=soundT/256;TL0=soundT%256;EA=1;ETO=1;TRO二 1;void tOserv() interrupt 1TH0=soundT/25
7、6;TL0=soundT%256;beep 二'beep;void main()tOinit ();TRO二 1;temp=mtablemnum;yj=temp>>4;yjsj= (temp&OxOf) *200;soundT 二 ttableyj;delay (yjsj);mnum+;TRO二 0;while(1);四?简易电子琴#include <reg51 ? h>#define uint unsigned int#define uchar unsigned char uchar code table = 0x3f, 0x06, 0x5b, 0x4
8、f, 0x66, 0x6d, 0x7d, 0x07, 0x7f, 0x6f, 0x77, 0x7c, 0x39, Oxoe, 0x79, 0x71, 0 xOO);uint code ttable = 64400, 64524,64580,64684,64777, 64820, 64898, 64968, 65030,6505& 65110,65157, 6517& 65217, 65252, 65283; void keytest ();sbit beep 二 P20;uchar keynum=16, temp, jia, yj;uint soundT;void keytes
9、t ()Pl 二 OxOf; temp 二 Pl; temp=temp OxfO;Pl 二 temp; temp 二 Pl; switch(temp) case Oxee: keynum=0; break;case Oxed: keynum=l; break;case Oxeb: keynum=2;break;case 0xe7: keynum=3;break;case Oxde: keynum=4;break;case Oxdd: keynum=5;break;case Oxdb: keynum=6;break;case 0xd7: keynum=7;break;case Oxbe: key
10、num=8;break;case Oxbd: keynum=9;break;case Oxbb: keynum 二10; break;case 0xb7: keynum=ll;break;case 0x7e: keynum=12;break;case Ox7d: keynum=13;break;case 0x7b: keynum=14;break;case 0x77: keynum=15;break;default: break;void intinit()TMODX 0x21;THO二 soundT/256;TL0=soundT%256;TH1=253;TL1=253;TR1=1;PC0N=0x00;二 0x50;EA=1;ES=1;ETO=1;TRO=O;void tOserv() interrupt 1TH0=soundT/256;TL0=soundT%256; beep 二 'beep ; void spserO interrupt 4 if(RI=l) RI=0;temp=SBUF;SBUF=temp;if (temp 二二 '+')jia+;辻 (jia>=5) jia=5; if (temp 二二 ' 一 ')jia ;jia>=6) jia=O;辻(jiav=O)
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025年工业互联网平台雾计算协同机制下的工业设备性能评估报告
- 2025年制造业工业机器人产业发展现状与未来趋势分析报告
- 2025年中药炮制新技术在中药炮制过程中药效可控性鉴定报告
- 细菌性肝脓肿病人护理
- 工业互联网平台网络切片技术在教育信息化领域的实践应用报告
- 2025年水上乐园游乐设施水上运动设备设计评估报告
- 常见病照护课件:循环系统常见疾病的照护
- 教育行业人才流失与吸引机制:2025年行业深度剖析报告
- 体育活动设计课件
- DB36/T 857-2015公路隧道LED照明设计规范
- 初中八年级信息技术课件-计算机网络基础知识
- 年产3000吨猕猴桃果酒工厂设计
- 养老护理员房间整理课件
- 青光眼的治疗与护理
- 25题退役军人事务员岗位常见面试问题含HR问题考察点及参考回答
- 光伏功率预测物理模型
- 招标备案表填写范本
- 排水管网清淤疏通方案(技术方案)
- 压力性损伤临床防治-国际指南2019-预防要点-终版
- 酒精度数、浓度、密度对照表
- 江苏省苏州市某中学2022-2023学年八年级下学期期末语文试题
评论
0/150
提交评论