单片机8键电子琴源程序+PCB工程+Proteus仿真

ID:675778 · 发表于 2019-12-27 23:01

制作出来的实物图如下：

Altium Designer画的原理图和PCB图如下：(51hei附件中可下载工程文件)

单片机电子琴仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）

单片机源程序如下:

#include <reg52.H>
unsigned char temp;
unsigned char key;
unsigned char i,j;
unsigned char STH0;
unsigned char STL0;
unsigned int code tab[]= {64820,64898,64968,65030,65058,65110,65157,65178}; //音符表 do re mi fa sol la xi duo
sbit K1=P1^0; //音符按键
sbit K2=P1^1;
sbit K3=P1^2;
sbit K4=P1^3;
sbit K5=P1^4;
sbit K6=P1^5;
sbit K7=P1^6;
sbit K8=P1^7;
sbit Speak=P2^0; //喇叭
/***********************1ms*****************************/
void delay_1ms(unsigned int q)
{
unsigned int i,j;
for(i=0;i<q;i++)
for(j=0;j<120;j++);
}
void main(void) //主程序
{
TMOD=0x01;
ET0=1;
EA=1;
while(1)
{
if(!K1)
{
delay_1ms(20);//延时去抖
if(!K1)
{
key=0;//将音乐的值赋值给定时器以便发出对应的声音
P0=0xC0;//显示0
STH0=tab[key]/256; //计算音符对应的定时器计数值
STL0=tab[key]%256;
TR0=1;
while(!K1)
;
}
}
if(!K2)
{
delay_1ms(20);//延时去抖
if(!K2)
{
key=1;
P0=0xF9;//显示1
STH0=tab[key]/256; //计算音符对应的定时器计数值
STL0=tab[key]%256;
TR0=1;
while(!K2)
;
}
}
if(!K3)
{
delay_1ms(20);//延时去抖
if(!K3)
{
key=2;
P0=0xA4;//显示2
STH0=tab[key]/256; //计算音符对应的定时器计数值
STL0=tab[key]%256;
TR0=1;
while(!K3)
;
}
}
if(!K4)
{
delay_1ms(20);//延时去抖
if(!K4)
{
key=3;
P0=0xB0;//显示3
STH0=tab[key]/256; //计算音符对应的定时器计数值
STL0=tab[key]%256;
TR0=1;
while(!K4)
;
}
}
if(!K5)
{
delay_1ms(20);//延时去抖
if(!K5)
{
key=4;
P0=0x99;//显示4
STH0=tab[key]/256; //计算音符对应的定时器计数值
STL0=tab[key]%256;
TR0=1;
while(!K5)
;
}
}
if(!K6)
{
delay_1ms(20);//延时去抖
if(!K6)
{
key=5;
P0=0x92;//显示5
STH0=tab[key]/256; //计算音符对应的定时器计数值
STL0=tab[key]%256;
TR0=1;
while(!K6)
;
}
}
if(!K7)
{
delay_1ms(20);//延时去抖
if(!K7)
{
key=6;
P0=0x82;//显示6
STH0=tab[key]/256; //计算音符对应的定时器计数值
STL0=tab[key]%256;
TR0=1;
while(!K7)
;
}
}
if(!K8)
{
delay_1ms(20);//延时去抖
if(!K8)
{
key=7;
P0=0xF8;//显示7
STH0=tab[key]/256; //计算音符对应的定时器计数值
STL0=tab[key]%256;
TR0=1;
while(!K8)
;
}
}
delay_1ms(20);
TR0=0;
Speak=1;//当按键弹起的时候，蜂鸣器停止发音
}
}
void t0(void) interrupt 1 using 0 { //定时器T0中断服务函数
TH0=STH0;
TL0=STL0;
Speak=~Speak; //产生方波
}

复制代码

所有资料51hei提供下载:

电子琴（8键）.7z (414.72 KB, 下载次数: 254)

ID:732282 · 发表于 2020-4-19 15:20

真的能够发声？

ID:599032 · 发表于 2020-5-20 08:33

楼主借下您的贴我做个eagle软件的使用教学

ID:775452 · 发表于 2020-6-10 20:48

请问楼主实物是自己焊接的吗？？？？有没有什么地方可以焊接？？？

ID:790142 · 发表于 2020-6-29 19:39

能解释一下原理图那个电源部分是什么吗

ID:793527 · 发表于 2020-6-30 10:03

这个电子琴的21种音调嘛？

ID:1039225 · 发表于 2022-7-12 10:13

我需要这个文档，有没有性价比更高的？》

帐号		自动登录	找回密码
密码			立即注册

单片机8键电子琴源程序+PCB工程+Proteus仿真

评分