欢迎来到三一办公! | 帮助中心 三一办公31ppt.com(应用文档模板下载平台)
三一办公
全部分类
  • 办公文档>
  • PPT模板>
  • 建筑/施工/环境>
  • 毕业设计>
  • 工程图纸>
  • 教育教学>
  • 素材源码>
  • 生活休闲>
  • 临时分类>
  • ImageVerifierCode 换一换
    首页 三一办公 > 资源分类 > DOCX文档下载  

    基于51单片机的简单电子琴代码.docx

    • 资源ID:3384939       资源大小:37.40KB        全文页数:9页
    • 资源格式: DOCX        下载积分:6.99金币
    快捷下载 游客一键下载
    会员登录下载
    三方登录下载: 微信开放平台登录 QQ登录  
    下载资源需要6.99金币
    邮箱/手机:
    温馨提示:
    用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)
    支付方式: 支付宝    微信支付   
    验证码:   换一换

    加入VIP免费专享
     
    账号:
    密码:
    验证码:   换一换
      忘记密码?
        
    友情提示
    2、PDF文件下载后,可能会被浏览器默认打开,此种情况可以点击浏览器菜单,保存网页到桌面,就可以正常下载了。
    3、本站不支持迅雷下载,请使用电脑自带的IE浏览器,或者360浏览器、谷歌浏览器下载即可。
    4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰。
    5、试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。

    基于51单片机的简单电子琴代码.docx

    基于51单片机的简单电子琴代码#include <AT89X52.h>sbit P10=P10;/高音阶,红灯sbit P11=P11;/中音阶,黄灯sbit P12=P12;/低音阶,绿灯sbit P13=P13;/蜂鸣器控制端口sbit P31=P30;/低音阶按键行sbit P32=P31;/中音阶按键行sbit P33=P32;/高音阶按键行sbit P35=P34;/播放音乐按键unsigned int i,j,k=0,l=0;unsigned char count1=0xff,count0=0x50;/*数码管码表(P0)*/unsigned char Tab=0XBF,0X06,0X5B,0X4F,0X66,/数码管040X6D,0X7D,0X07,0X7F,0X6F,/数码管590X77,0X7C,0X39,0X5E,0X79,0X71,0X00;/数码管AF/*音阶控制*/music_data_high=0xf8,0xf9,0xfa,0xfa,0xfb,0xfb,0xfc,/数组06 低音0xfc,0xfc,0xfd,0xfd,0xfd,0xfd,0xfe,/数组713 中音0xfe,0xfe,0xfe,0xfe,0xfe,0xfe,0xff;/数组1420 高音music_data_low=0xf3,0xb8,0x15,0xb9,0x4a,0xcf,0x0c,/数组06 低音0x44,0xac,0x09,0x34,0x82,0xc8,0x05,/数组713 中音0x4c,0x6d,0x94,0xad,0xd2,0xf3,0x02;/数组1420 高音/*函数名:delayms*参数:n延时毫秒数*功能:延时N毫秒*/void delayms(unsigned char n)unsigned char a,b;for(a=100;a>0;a-)for(b=10*n;b>0;b-);/*函数名:key_check*参数:无*功能:扫描按键并运行对应功能*/void key_check(void)P2=0xff;P3=0xfe;if(P2!=0xff)delayms(20);if(P2!=0xff)P10=1;P11=1;P12=0;switch(P2)case 0xfe:EA=1;count1=0xf8;count0=0xf3;P0=Tab1;delayms(50);break;case 0xfd:EA=1;count1=0xf9;count0=0xb8;P0=Tab2;delayms(50);break;case 0xfb:EA=1;count1=0xfa;count0=0x15;P0=Tab3;delayms(50);break;case 0xf7:EA=1;count1=0xfa;count0=0xb9;P0=Tab4;delayms(50);break;case 0xef:EA=1;count1=0xfb;count0=0x4a;P0=Tab5;delayms(50);break;case 0xdf:EA=1;count1=0xfb;count0=0xcf;P0=Tab6;delayms(50);break;case 0xbf:EA=1;count1=0xfc;count0=0x0c;P0=Tab7;delayms(50);break;defaule:break;/else EA=0;P13=1;P2=0xff;P3=0xfd;if(P2!=0xff)delayms(20);if(P2!=0xff)P10=1;P11=0;P12=1;switch(P2)case 0xfe:EA=1;count1=0xfc;count0=0x79;P0=Tab1;delayms(50);break;case 0xfd:EA=1;count1=0xfc;count0=0xbc;P0=Tab2;delayms(50);break;case 0xfb:EA=1;count1=0xfd;count0=0x09;P0=Tab3;delayms(50);break;case 0xf7:EA=1;count1=0xfd;count0=0x44;P0=Tab4;delayms(50);break;case 0xef:EA=1;count1=0xfd;count0=0xa2;P0=Tab5;delayms(50);break;case 0xdf:EA=1;count1=0xfd;count0=0xd8;P0=Tab6;delayms(50);break;case 0xbf:EA=1;count1=0xfe;count0=0x05;P0=Tab7;delayms(50);break;/defaule:break;/else EA=0;P13=1;P2=0xff;P3=0xfb;if(P2!=0xff)delayms(20);if(P2!=0xff)P10=0;P11=1;P12=1;switch(P2)case 0xfe:EA=1;count1=0xfe;count0=0x4c;P0=Tab1;delayms(50);break;case 0xfd:EA=1;count1=0xfe;count0=0x6d;P0=Tab2;delayms(50);break;case 0xfb:EA=1;count1=0xfe;count0=0x9f;P0=Tab3;delayms(50);break;case 0xf7:EA=1;count1=0xfe;count0=0xad;P0=Tab4;delayms(50);break;case 0xef:EA=1;count1=0xfe;count0=0xd2;P0=Tab5;delayms(50);break;case 0xdf:EA=1;count1=0xfe;count0=0xf3;P0=Tab6;delayms(50);break;case 0xbf:EA=1;count1=0xff;count0=0x02;P0=Tab7;delayms(50);break;/defaule:break;if(P2=0xff) EA=0;P13=1;/*函数名:play_music*参数:无*功能:播放音乐*/void play_music(void)count1=music_data_high0;count0=music_data_low0;EA=1;delayms(50);EA=0;delayms(5);/*函数名:TIM0_init*参数:无*功能:定时器0初始化*/void TIM0_init(void)TMOD=0x01;TH0=count1;TL0=count0;EA=1;ET0=1;TR0=1;void timer0(void) interrupt 1 using 0TH0=count1;TL0=count0;P13=!P13;/*函数名:main*参数:无*功能:开跑程序*/void main(void)P35=1;TIM0_init;/play_music;/while(1)if(P35=0) delayms(20);P35=1;play_music;key_check;

    注意事项

    本文(基于51单片机的简单电子琴代码.docx)为本站会员(牧羊曲112)主动上传,三一办公仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知三一办公(点击联系客服),我们立即给予删除!

    温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载不扣分。




    备案号:宁ICP备20000045号-2

    经营许可证:宁B2-20210002

    宁公网安备 64010402000987号

    三一办公
    收起
    展开