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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 电子技术分类讨论区 › 资料共享 › 51单片机空气钢琴程序
返回列表 发新帖
查看: 1730|回复: 1
打印 上一主题 下一主题
收起左侧

51单片机空气钢琴程序

[复制链接]
跳转到指定楼层
楼主
ID:364311 发表于 2018-7-3 20:26 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
空气钢琴单片机源程序如下:
  1. #include<reg52.h>
  2. #define unchar unsigned char
  3. #define unint unsigned int

  5. sbit echo=P2^3;
  6. sbit trig=P2^4;

  8. sbit voi=P2^0;


  11. unchar i;
  12. unint a;



  16. void getdist()
  17. {
  18.         trig=1;       
  19.         i=4;
  20.         while(i--);
  21.         trig=0;
  22.         while(i<8)
  23.         {
  24.                 if(echo==1)
  25.                 {
  26.                         while(echo);
  27.                         i++;
  28.                 }
  29.         }
  30.         a=0;
  31.         while(echo==0);
  32.         TR0=1;
  33.         while(echo==1)
  34.         {
  35.                 if(a>5000)
  36.                 {
  37.                         i=55;
  38.                         break;
  39.                 }
  40.         }
  41.         TR0=0;
  42.         //a=a/100;   //距离单位mm
  43. }
  44. void main()
  45. {
  46.         //unchar j=1;
  47.         TMOD &= 0xF0;                //设置定时器模式
  48.         TMOD |= 0x02;                //设置定时器模式
  49.         TL0 = 0x55;                //设置定时初值
  50.         TH0 = 0x55;                //设置定时初值
  51.         TF0 = 0;                //清除TF0标志
  52.         ET0=1;
  53.         EA=1;
  54.         voi=0;
  55.         voi=0;
  56.         while(1)
  57.         {
  58.                 getdist();
  59.                 if(i==55)
  60.                 a=100;
  61.                 while(a--);
  62.                 if(voi==1)
  63.                 voi=0;
  64.                 else
  65.                 voi=1;
  66.         }

  68. }

  70. void delay50us() interrupt 1
  71. {
  72.         a++;
  73. }



复制代码

所有资料51hei提供下载:
空气钢琴.rar (18.27 KB, 下载次数: 6)


分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 顶顶 踩踩
回复

使用道具 举报

沙发
ID:399179 发表于 2019-3-20 20:43 来自触屏版 | 只看该作者
能不能详细说明一下？
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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