keil5电子琴代码

时间: 2023-12-12 22:04:02 浏览: 28
以下是一个基于Keil5的51单片机电子琴代码的示例: ```c #include <reg52.h> #define uint unsigned int #define uchar unsigned char uchar code table[] = {0xfe, 0xfd, 0xfb, 0xf7, 0xef, 0xdf, 0xbf, 0x7f}; // 数码管显示表 uchar code music[] = {0x3c, 0x3c, 0x42, 0x42, 0x42, 0x42, 0x3c, 0x00}; // 音符表 sbit beep = P1^5; // 蜂鸣器控制引脚 sbit key1 = P2^0; // 按键1 sbit key2 = P2^1; // 按键2 sbit key3 = P2^2; // 按键3 sbit key4 = P2^3; // 按键4 sbit key5 = P2^4; // 按键5 sbit key6 = P2^5; // 按键6 sbit key7 = P2^6; // 按键7 sbit key8 = P2^7; // 按键8 void delay(uint i) // 延时函数 { uint j, k; for(j = i; j > 0; j--) for(k = 125; k > 0; k--); } void main() { uchar i = 0; while(1) { if(key1 == 0) // 按键1按下 { beep = 1; // 蜂鸣器响 P0 = music[0]; // 数码管显示第一个音符 delay(100); // 延时 beep = 0; // 蜂鸣器停止响 P0 = table[7]; // 数码管不显示 } if(key2 == 0) // 按键2按下 { beep = 1; P0 = music[1]; delay(100); beep = 0; P0 = table[7]; } if(key3 == 0) // 按键3按下 { beep = 1; P0 = music[2]; delay(100); beep = 0; P0 = table[7]; } if(key4 == 0) // 按键4按下 { beep = 1; P0 = music[3]; delay(100); beep = 0; P0 = table[7]; } if(key5 == 0) // 按键5按下 { beep = 1; P0 = music[4]; delay(100); beep = 0; P0 = table[7]; } if(key6 == 0) // 按键6按下 { beep = 1; P0 = music[5]; delay(100); beep = 0; P0 = table[7]; } if(key7 == 0) // 按键7按下 { beep = 1; P0 = music[6]; delay(100); beep = 0; P0 = table[7]; } if(key8 == 0) // 按键8按下 { beep = 1; P0 = music[7]; delay(100); beep = 0; P0 = table[7]; } } } ``` 该代码使用了P0口控制数码管显示,使用了P1.5口控制蜂鸣器,使用了P2口控制按键输入。按下不同的按键会发出不同的音调。你可以根据需要修改音符表和延时时间来调整音调和音长。

相关推荐

最新推荐

recommend-type

KEIL5调试时没有箭头.docx

解决了keil5的配置问题 调试时代码窗口没有三角键 调试时代码窗口没有三角键
recommend-type

直流电机控制Keil c51源代码

直流电机控制Keil c51源代码:函数声明,变量定义、定义管脚等等。 #include #include #include ..........
recommend-type

zigbee-cluster-library-specification

最新的zigbee-cluster-library-specification说明文档。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

实现实时数据湖架构:Kafka与Hive集成

![实现实时数据湖架构:Kafka与Hive集成](https://img-blog.csdnimg.cn/img_convert/10eb2e6972b3b6086286fc64c0b3ee41.jpeg) # 1. 实时数据湖架构概述** 实时数据湖是一种现代数据管理架构,它允许企业以低延迟的方式收集、存储和处理大量数据。与传统数据仓库不同,实时数据湖不依赖于预先定义的模式,而是采用灵活的架构,可以处理各种数据类型和格式。这种架构为企业提供了以下优势: - **实时洞察:**实时数据湖允许企业访问最新的数据,从而做出更明智的决策。 - **数据民主化:**实时数据湖使各种利益相关者都可
recommend-type

SPDK_NVMF_DISCOVERY_NQN是什么 有什么作用

SPDK_NVMF_DISCOVERY_NQN 是 SPDK (Storage Performance Development Kit) 中用于查询 NVMf (Non-Volatile Memory express over Fabrics) 存储设备名称的协议。NVMf 是一种基于网络的存储协议,可用于连接远程非易失性内存存储器。 SPDK_NVMF_DISCOVERY_NQN 的作用是让存储应用程序能够通过 SPDK 查询 NVMf 存储设备的名称,以便能够访问这些存储设备。通过查询 NVMf 存储设备名称,存储应用程序可以获取必要的信息,例如存储设备的IP地址、端口号、名称等,以便能
recommend-type

JSBSim Reference Manual

JSBSim参考手册,其中包含JSBSim简介,JSBSim配置文件xml的编写语法,编程手册以及一些应用实例等。其中有部分内容还没有写完,估计有生之年很难看到完整版了,但是内容还是很有参考价值的。
recommend-type

"互动学习:行动中的多样性与论文攻读经历"

多样性她- 事实上SCI NCES你的时间表ECOLEDO C Tora SC和NCESPOUR l’Ingén学习互动,互动学习以行动为中心的强化学习学会互动,互动学习,以行动为中心的强化学习计算机科学博士论文于2021年9月28日在Villeneuve d'Asq公开支持马修·瑟林评审团主席法布里斯·勒菲弗尔阿维尼翁大学教授论文指导奥利维尔·皮耶昆谷歌研究教授:智囊团论文联合主任菲利普·普雷教授,大学。里尔/CRISTAL/因里亚报告员奥利维耶·西格德索邦大学报告员卢多维奇·德诺耶教授,Facebook /索邦大学审查员越南圣迈IMT Atlantic高级讲师邀请弗洛里安·斯特鲁布博士,Deepmind对于那些及时看到自己错误的人...3谢谢你首先,我要感谢我的两位博士生导师Olivier和Philippe。奥利维尔,"站在巨人的肩膀上"这句话对你来说完全有意义了。从科学上讲,你知道在这篇论文的(许多)错误中,你是我可以依
recommend-type

实现实时监控告警系统:Kafka与Grafana整合

![实现实时监控告警系统:Kafka与Grafana整合](https://imgconvert.csdnimg.cn/aHR0cHM6Ly9tbWJpei5xcGljLmNuL21tYml6X2pwZy9BVldpY3ladXVDbEZpY1pLWmw2bUVaWXFUcEdLT1VDdkxRSmQxZXB5R1lxaWNlUjA2c0hFek5Qc3FyRktudFF1VDMxQVl3QTRXV2lhSWFRMEFRc0I1cW1ZOGcvNjQw?x-oss-process=image/format,png) # 1.1 Kafka集群架构 Kafka集群由多个称为代理的服务器组成,这
recommend-type

Windows 运行Python脚本

要在 Windows 上运行 Python 脚本,你需要先安装 Python。可以从官网下载 Python 安装包并按照提示进行安装。安装完成后,就可以在命令行中输入 `python` 命令,进入 Python 解释器环境。 接着,你可以编写 Python 脚本,保存为 `.py` 后缀的文件。在命令行中进入脚本所在的目录,输入 `python script.py` 命令来运行脚本。其中 `script.py` 是你的脚本文件名。 如果你想在 Windows 上运行一个 Python 程序,但不想打开命令行窗口,可以将脚本文件拖动到 Python 可执行文件 `python.exe` 上,