搜索

台湾应广单片机编程第五季03nokiatune

[复制链接]
168|1
 楼主 | 2020-6-27 23:21 | 显示全部楼层
/*******************PMS150G************************/
/******************N0kia_tune**********************/
/*****************QQ774145445**********************/
/******************20200627************************/
#include        "extern.h"
feng                bit                pa.5;
anjian                bit                pa.6
void        gao();                //高电平时间固定
void        di();                //低电平时间
void        chang();        //音阶长度
void        yue();                //音乐
word        x;                        //音阶长度
word        y,ya;                //低电平时间
/**************************************************/
void        FPPA0 (void)
{
.ADJUST_IC        SYSCLK=IHRC/2                //        SYSCLK=IHRC/4

$                feng                out,Low;        //Out_Low, Out_High
$                anjian                in,High;
paph.6=1;
yue();
while(1)
{
nop;
if(!anjian)
{
yue();
}

}
}

/**************************************************/

void        gao()                //高电平时间
{
feng                =1;
.delay                700;//400+300;
feng                =0;
}

/**************************************************/
void        di()                //低电平时间
{
ya        =y;
while(ya)
{
ya--;
nop; nop; nop;
}
}

/**************************************************/
void        chang()                //音节阶长度
{
while(x)
{
x--;
gao();                //高电平时间固定
di();                //低电平时间
}
}

/**************************************************/
void        yue()                //音乐
{
/**************************************************/ //5
x=167;                //音阶长度
y=590;                //低电平时间
chang();
/**************************************************/ //4
x=145;                //音阶长度
y=680;                //低电平时间
chang();
/**************************************************/ //6
x=183;                //音阶长度
y=1202;                //低电平时间
chang();
/**************************************************/ //7
x=207;                //音阶长度
y=1020;                //低电平时间
chang();
/**************************************************/ //3
x=137;                //音阶长度
y=726;                //低电平时间
chang();
/**************************************************/ //2
x=125;                //音阶长度
y=862;                //低电平时间
chang();
/**************************************************/ //4
x=146;                //音阶长度
y=1519;                //低电平时间
chang();
/**************************************************/ //5
x=164;                //音阶长度
y=1338;                //低电平时间
chang();
/**************************************************/ //2
x=122;                //音阶长度
y=839;                //低电平时间
chang();
/**************************************************/ //1
x=110;                //音阶长度
y=952;                //低电平时间
chang();
/**************************************************/ //3
x=139;                //音阶长度
y=1610;                //低电平时间
chang();
/**************************************************/ //5
x=164;                //音阶长度
y=1338;                //低电平时间
chang();
/**************************************************/ //1
x=661;                //音阶长度
y=970;                //低电平时间
chang();
/**************************************************/
}

/**************************************************/

使用特权

评论回复
扫描二维码,随时随地手机跟帖
您需要登录后才可以回帖 登录 | 注册

本版积分规则

我要发帖 投诉建议 创建版块 申请版主

快速回复

您需要登录后才可以回帖
登录 | 注册
高级模式

论坛热帖

关闭

热门推荐上一条 /6 下一条

在线客服 快速回复 返回顶部 返回列表