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

QQ登錄

只需一步,快速開(kāi)始

搜索
查看: 4149|回復(fù): 2
打印 上一主題 下一主題
收起左側(cè)

蜂鳴器16鍵電子琴

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:244356 發(fā)表于 2017-10-30 21:20 | 只看該作者 |只看大圖 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式

            電子琴


         
         
  C語(yǔ)言源程序
#include <AT89X51.H>
unsigned char code table[]={0x3f,0x06,0x5b,0x4f,
                            0x66,0x6d,0x7d,0x07,
                            0x7f,0x6f,0x77,0x7c,
                            0x39,0x5e,0x79,0x71};
unsigned char temp;
unsigned char key;
unsigned char i,j;
unsigned char STH0;
unsigned char STL0;
unsigned int code tab[]={64021,64103,64260,64400,
                          64524,64580,64684,64777,
                          64820,64898,64968,65030,
                          65058,65110,65157,65178};
void main(void)
{
  TMOD=0x01;
  ET0=1;
  EA=1;
  while(1)
    {
      P3=0xff;
      P3_4=0;
      temp=P3;
      temp=temp & 0x0f;
      if (temp!=0x0f)
        {
          for(i=50;i>0;i--)
          for(j=200;j>0;j--);
          temp=P3;
          temp=temp & 0x0f;
          if (temp!=0x0f)
            {
              temp=P3;
              temp=temp & 0x0f;              
              switch(temp)
                {
                  case 0x0e:
                    key=0;
                    break;
                  case 0x0d:
                    key=1;
                    break;
                  case 0x0b:
                    key=2;
                    break;
                  case 0x07:
                    key=3;
                    break;
                }
              temp=P3;
              P1_0=~P1_0;
              P0=table[key];
              STH0=tab[key]/256;
              STL0=tab[key]%256;
              TR0=1;
              temp=temp & 0x0f;              
              while(temp!=0x0f)
                {
                  temp=P3;
                  temp=temp & 0x0f;              
                }
              TR0=0;
            }
        }
  
      P3=0xff;
      P3_5=0;
      temp=P3;
      temp=temp & 0x0f;
      if (temp!=0x0f)
        {
          for(i=50;i>0;i--)
          for(j=200;j>0;j--);
          temp=P3;
          temp=temp & 0x0f;
          if (temp!=0x0f)
            {
              temp=P3;
              temp=temp & 0x0f;              
              switch(temp)
                {
                  case 0x0e:
                    key=4;
                    break;
                  case 0x0d:
                    key=5;
                    break;
                  case 0x0b:
                    key=6;
                    break;
                  case 0x07:
                    key=7;
                    break;
                }
              temp=P3;
              P1_0=~P1_0;
              P0=table[key];
              STH0=tab[key]/256;
              STL0=tab[key]%256;
              TR0=1;
              temp=temp & 0x0f;              
              while(temp!=0x0f)
                {
                  temp=P3;
                  temp=temp & 0x0f;              
                }
              TR0=0;
            }
        }
  
      P3=0xff;
      P3_6=0;
      temp=P3;
      temp=temp & 0x0f;
      if (temp!=0x0f)
        {
          for(i=50;i>0;i--)
          for(j=200;j>0;j--);
          temp=P3;
          temp=temp & 0x0f;
          if (temp!=0x0f)
            {
              temp=P3;
              temp=temp & 0x0f;              
              switch(temp)
                {
                  case 0x0e:
                    key=8;
                    break;
                  case 0x0d:
                    key=9;
                    break;
                  case 0x0b:
                    key=10;
                    break;
                  case 0x07:
                    key=11;
                    break;
                }
              temp=P3;
              P1_0=~P1_0;
              P0=table[key];
              STH0=tab[key]/256;
              STL0=tab[key]%256;
              TR0=1;
              temp=temp & 0x0f;              
              while(temp!=0x0f)
                {
                  temp=P3;
                  temp=temp & 0x0f;              
                }
              TR0=0;
            }
        }
      P3=0xff;
      P3_7=0;
      temp=P3;
      temp=temp & 0x0f;
      if (temp!=0x0f)
        {
          for(i=50;i>0;i--)
          for(j=200;j>0;j--);
          temp=P3;
          temp=temp & 0x0f;
          if (temp!=0x0f)
            {
              temp=P3;
              temp=temp & 0x0f;              
              switch(temp)
                {
                  case 0x0e:
                    key=12;
                    break;
                  case 0x0d:
                    key=13;
                    break;
                  case 0x0b:
                    key=14;
                    break;
                  case 0x07:
                    key=15;
                    break;
                }
              temp=P3;
              P1_0=~P1_0;
              P0=table[key];
              STH0=tab[key]/256;
              STL0=tab[key]%256;
              TR0=1;
              temp=temp & 0x0f;              
              while(temp!=0x0f)
                {
                  temp=P3;
                  temp=temp & 0x0f;              
                }
              TR0=0;
            }
        }      
    }
}
  
void t0(void) interrupt 1 using 0
{
  TH0=STH0;
  TL0=STL0;
  P1_0=~P1_0;
}
 
 
 

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂 踩
回復(fù)

使用道具 舉報(bào)

沙發(fā)
ID:244329 發(fā)表于 2017-10-31 10:00 | 只看該作者
資源給力,謝謝樓主分享
回復(fù)

使用道具 舉報(bào)

板凳
ID:416900 發(fā)表于 2018-10-29 00:54 | 只看該作者
親,有高清圖嗎?
回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

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

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

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