找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 1523|回复: 2
打印 上一主题 下一主题
收起左侧

51单片机proteus仿真电子琴生日快乐

[复制链接]
跳转到指定楼层
楼主
ID:550077 发表于 2019-6-27 20:50 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
原C程序代码如下:仅供学习之用!!!
#include<reg52.h>
#include<intrins.h>

#define uchar unsigned char
#define uint unsigned int

sbit SPK = P2^7;

uchar tone_h;                //高音
uchar tone_l;                //低音
uint note = 1;                //音符
uchar beat;                        //节拍

uchar code chuzhi[3][16]={  //音调对应的计数初值
         0xff,0xff,//占0位
         0xf8,0x8c,//低1  
         0xf9,0x5b,//  2                
         0xfa,0x15,//  3                
         0xfa,0x67,//  4                
         0xfb,0x04,//  5                
         0xfb,0x90,//  6                
         0xfc,0x0c,//低7
       
         0xff,0xff,//占0位
         0xfc,0x44,//中1   
         0xfc,0xac,//  2
         0xfd,0x09,//  3
         0xfd,0x34,//  4
         0xfd,0x82,//  5
         0xfd,0xc8,//  6
         0xfe,0x06,//中7   
       
         0xff,0xff,//占0位
         0xfe,0x22,//高1                           
         0xfe,0x56,//        2               
         0xfe,0x85,//        3               
         0xfe,0x9a,//        4               
         0xfe,0xc1,//        5               
         0xfe,0xe4,//        6               
         0xff,0x03 //高7                            
        };       

//****** 测试曲谱 ****** 个位:音调 ,十位:低中高音 对应 0 1 2,千百位:节拍 1~16
uint code test2[] = {        120, //曲速 暂时未用到
        401,402,403,404,405,406,407,
        611,612,613,614,615,616,617,
        821,822,823,824,825,826,827,
        0xffff        //0xffff表示结尾
};

//****** 生日快乐 ******
uint code test[] = { 120,
        205,205,406,405,411,807,
        205,205,406,405,412,811,
        205,205,415,413,411,407,406,
        314,114,413,411,413,812,
        305,105,406,405,411,807,
        305,105,406,405,412,811,
        305,105,415,413,411,
        407,406,314,114,413,411,412,811,410,
        0xffff       
};
       
void delayms(uint ms)          /*ms 等于1时,延时1ms 等于2时,延时2ms,以此类推*/
{       
        uchar a,b,c;                                   //+3
        while(ms--)
    {
         for(c=1;c>0;c--)                        //         1+2 = 3
        for(b=142;b>0;b--)                  //        1*( 1+142*2)) = 285       
            for(a=2;a>0;a--);        //         142*(1+2*2) = 710
        }
}

void delay125ms(uint pai)  //延时 ?*125ms 即?个节拍
{
    uchar a,b,c;
        while(pai--)
        {
        for(c=239;c>0;c--)
                for(b=104;b>0;b--)
                        for(a=1;a>0;a--);
        }
}
void timer0() interrupt 1
{
        TH0 = tone_h;
        TL0 = tone_l;
        SPK = ~SPK;
}


void timer_init()
{
        EA = 1;
        ET0 = 1;
        PT0 = 1;
        TMOD = 0x11;
        TH0 = 255;
        TL0 = 255;
}
void main()
{       
        timer_init();
        note = 1;
       
        while(1)
        {       
                if(test[note] == 0xffff)
                {       
                        note = 1;
                }               
                if(test[note]%10 != 0)        //音调不为0 【音调为0时表示不发声,但有节拍】
                {
                        tone_h = TH0 = chuzhi[test[note]%100/10][(test[note]%10)*2 ];                //音调高位
                        tone_l = TL0 = chuzhi[test[note]%100/10][(test[note]%10)*2 + 1];        //音调低位
                        TR0 = 1;
                }
                delay125ms(test[note]/100);        //节拍
                TR0 = 0;
                delayms(30);
                note++;                        //下一个音符
               
        }
       
}

生日快乐歌proteus仿真.rar

40.6 KB, 下载次数: 37, 下载积分: 黑币 -5

51单片机仿真实例

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 分享淘帖 顶 踩
回复

使用道具 举报

沙发
ID:582362 发表于 2019-7-11 15:53 | 只看该作者
谢谢楼主
回复

使用道具 举报

板凳
ID:399007 发表于 2019-8-6 22:06 | 只看该作者
你的乐谱初值是什么软件得到的?
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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