找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 3805|回复: 6
收起左侧

简易电子琴程序

[复制链接]
ID:71870 发表于 2015-1-18 08:28 | 显示全部楼层 |阅读模式
#include<reg52.h>
#define uint unsigned int
#define uchar unsigned char
sbit BEEP=P3^6 ;
//sbit duan=P3^3 ;
uint j=0,flag=0;
uint tab1[]={  0x48,  //"0"
                0x7E,  //"1"
                0xC4,  //"2"
                0x54,  //"3"
                0x72,  //"4"
                0x51,  //"5"
                0x41,  //"6"
                0x7C,  //"7"
                0x40,  //"8"
     };
uint tab2[] = { 64021,64103,64260,64400,64524,64580,64684,64777,   
        64820,64898,64968,65030,65058,65110,65157,65178};
void display(j)
{
//duan=0;
P1=tab1[j];
//duan=1;
}
void Timer0_Play_Music() interrupt 1
{  
  TH0 = tab2[ j ] / 256;  
  TL0 = tab2[ j ] % 256;  
  BEEP = ~BEEP;
   flag++;
   if(flag==2)
  {flag=0;
   BEEP=0;
   TR0=0;}
  
}
void T1_timer() interrupt 3
{    uint z;      
        TH0 = (65536 - 50000)/256;
        TL0 = (65536 - 50000)%256;
       z++;
        if( z== 20)
      {   
           z = 0;
           j++;   
    display(j);
    TR0=1;
    TR1=0;
    if(j==7)
    { TR1=0;
     j=0;}
        }
}
void keyscan()
{
uint k=P2;  
  switch (k)
  {
   case 0xfe:j=1;TR0=1;display(j);break;
   case 0xfd:j=2;TR0=1;display(j);break;
   case 0xfb:j=3;TR0=1;display(j);break;
   case 0xf7:j=4;TR0=1;display(j);break;
   case 0xef:j=5;TR0=1;display(j);break;
   case 0xdf:j=6;TR0=1;display(j);break;
   case 0xbf:;j=7;TR0=1;display(j);break;
   case 0x7f:TR1=1;j=0;break;                          
     default : break;
  }
}
void main()
{ BEEP=0;   
TMOD=0x11;
EA=1;
ET0=1;
ET1=1;
TH0 = tab2[ j ] / 256;
TL0 = tab2[ j ] % 256;
TH1 = (65536 - 50000)/256;
  TL1 = (65536 - 50000)%256;
// P1=0x00;
while(1)
{
   keyscan();  
}
  
}

评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的积分奖励!

查看全部评分

回复

使用道具 举报

ID:1 发表于 2015-1-18 10:28 来自手机 | 显示全部楼层
谢谢楼主分享,补充一下,P3^6接喇叭,p2口接8个按键
回复

使用道具 举报

ID:72435 发表于 2015-1-18 15:35 来自手机 | 显示全部楼层
楼主大好人啊,改天有时间做电路测试一下。
回复

使用道具 举报

ID:73218 发表于 2015-2-3 19:04 | 显示全部楼层
硬件呢?
回复

使用道具 举报

ID:157972 发表于 2016-12-27 11:26 | 显示全部楼层
有图吗
回复

使用道具 举报

ID:196179 发表于 2017-5-3 19:36 | 显示全部楼层
O(∩_∩)O谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

Powered by 单片机教程网

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