找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

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

用AT89C51來制作簡單電子琴

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:548138 發(fā)表于 2019-5-29 12:46 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
#include <REGX51.H>
sbit key1=P0^0;
sbit key2=P0^1;
sbit key3=P0^2;
sbit key4=P0^3;
sbit key5=P0^4;
sbit key6=P0^5;
sbit key7=P0^6;
sbit key8=P0^7;
sbit beep=P2^7;
bit mode;
unsigned char TH,TL;
code unsigned int music[]={3816,3401,3030,2857,2551,2272,2024,        958,852,759,714,638,568,506};

void delay_ms(unsigned char ms)
{
        unsigned char i;
        while(ms--)
        for(i=0;i<123;i++);
}
unsigned char key_scan()
{
        unsigned char key_no=14;
        if(key1==0)
        {
        delay_ms(10);
        if(key1==0)
        {
        mode=!mode;
        }
        while(!key1);
        }
        if(mode==0)
        {
         if(key2==0) key_no=0;
        if(key3==0) key_no=1;
        if(key4==0) key_no=2;
        if(key5==0) key_no=3;
        if(key6==0) key_no=4;
        if(key7==0) key_no=5;
        if(key8==0) key_no=6;
        }else
        {
        if(key2==0) key_no=7;
        if(key3==0) key_no=8;
        if(key4==0) key_no=9;
        if(key5==0) key_no=10;
        if(key6==0) key_no=11;
        if(key7==0) key_no=12;
        if(key8==0) key_no=13;
        }
        return key_no;
}
void main()
{
        unsigned char key_no;
        TMOD=0x00;
        ET0=1;
        TR0=0;
        EA=1;
        while(1)
        {
        key_no=key_scan();
         if(key_no!=14)
         {
         TR0=1;
         TH=65536-music[key_no]/256;
         TL=65536-music[key_no]%256;
         }else
         {
         TR0=0;
         }
        }
}
void time0() interrupt 2
{
        TH0=TH;
        TL0=TL;
        beep=!beep;
}

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

使用道具 舉報

沙發(fā)
ID:1 發(fā)表于 2019-5-29 18:22 | 只看該作者
本帖需要重新編輯補全電路原理圖,源碼,詳細說明與圖片即可獲得100+黑幣(帖子下方有編輯按鈕)
回復(fù)

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

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

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

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