设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › 51单片机 › 单片机8键电子琴C程序
返回列表 发新帖
查看: 4981|回复: 0
打印 上一主题 下一主题
收起左侧

单片机8键电子琴C程序

[复制链接]
跳转到指定楼层
楼主
ID:140343 发表于 2016-9-25 17:05 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
8键电子琴.zip (11.86 KB, 下载次数: 23)

  1. /*********************************************************************************************
  2. 程序名： 　　 8键电子琴C程序
  3. 编写人： 　　 杜洋　
  4. 编写时间：　　5月18日
  5. 硬件支持：　　STC系列单片机 12MHz
  6. 接口说明：　　  
  7. 修改日志：　　
  8. 　　NO.1-                                                               
  9. /*********************************************************************************************
  10. 说明：

  12. /*********************************************************************************************/

  14. #include <AT89X51.H>

  16. sbit SPEAKER  = P3^7;
  17. #define KEY  P1
  18. unsigned char MUSIC;
  19. unsigned char STH0;
  20. unsigned char STL0;
  21. unsigned int code tab[]={
  22. 64021,64103,64260,64400,//低音3开始
  23. 64524,64580,64684,64777,
  24. 64820,64898,64968,65030,
  25. 65058,65110,65157,65178
  26. };

  28. void main(void){
  29.         TMOD=0x01;
  30.         ET0=1;
  31.         EA=1;
  32.         KEY = 0xff;
  33.         while(1){        
  34.                 if(KEY != 0xff){
  35.                 switch (~KEY){//显示的列位置               
  36.                                 case 0x01://                       
  37.                                         MUSIC = 7;       
  38.                                         break;//               
  39.                                 case 0x02://                       
  40.                                         MUSIC = 6;       
  41.                                         break;//               
  42.                                 case 0x04://                       
  43.                                         MUSIC = 5;       
  44.                                         break;//               
  45.                                 case 0x08://                       
  46.                                         MUSIC = 4;       
  47.                                         break;//               
  48.                                 case 0x10://                       
  49.                                         MUSIC = 3;       
  50.                                         break;//               
  51.                                 case 0x20://                       
  52.                                         MUSIC = 2;       
  53.                                         break;//               
  54.                                 case 0x40://                       
  55.                                         MUSIC = 1;       
  56.                                         break;//               
  57.                                 case 0x80://                       
  58.                                         MUSIC = 0;       
  59.                                         break;//               
  60.                 }       

  62.                     STH0=tab[MUSIC]/256;
  63.                     STL0=tab[MUSIC]%256;
  64.                     TR0=1;
  65.                 }else{
  66.                     SPEAKER = 1;
  67.                         TR0=0;
  68.                 }
  69.     }
  70. }
  71. void t0(void) interrupt 1 using 0{
  72.   TH0=STH0;
  73.   TL0=STL0;
  74.   SPEAKER=~SPEAKER;
  75. }
  76. /*************************************************************
  77. * 杜洋工作室 DoYoung Studio
  78. * 与电子爱好者同行
  79. /*************************************************************/
复制代码


电子琴, 单片机, 程序
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 顶顶 踩踩

相关帖子
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表