找回密碼
 立即注冊(cè)

QQ登錄

只需一步,快速開始

搜索
查看: 4219|回復(fù): 6
收起左側(cè)

簡易電子琴程序

[復(fù)制鏈接]
ID:71870 發(fā)表于 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();  
}
  
}

評(píng)分

參與人數(shù) 1黑幣 +50 收起 理由
admin + 50 共享資料的積分獎(jiǎng)勵(lì)!

查看全部評(píng)分

回復(fù)

使用道具 舉報(bào)

ID:1 發(fā)表于 2015-1-18 10:28 來自手機(jī) | 顯示全部樓層
謝謝樓主分享,補(bǔ)充一下,P3^6接喇叭,p2口接8個(gè)按鍵
回復(fù)

使用道具 舉報(bào)

ID:72435 發(fā)表于 2015-1-18 15:35 來自手機(jī) | 顯示全部樓層
樓主大好人啊,改天有時(shí)間做電路測(cè)試一下。
回復(fù)

使用道具 舉報(bào)

ID:73218 發(fā)表于 2015-2-3 19:04 | 顯示全部樓層
硬件呢?
回復(fù)

使用道具 舉報(bào)

ID:157972 發(fā)表于 2016-12-27 11:26 | 顯示全部樓層
有圖嗎
回復(fù)

使用道具 舉報(bào)

ID:196179 發(fā)表于 2017-5-3 19:36 | 顯示全部樓層
O(∩_∩)O謝謝
回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表