让蜂鸣器发出7个音阶的程序

uchar code DSY_CODE[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90}

//标准音符频率对应的延时表

uchar code HI_LIST[]={0,226,229,232,233,236,238,240,241,242,244,245,246,247,248}

uchar code LO_LIST[]={0,4,13,10,20,3,8,6,2,23,5,26,1,4,3}

//三段音乐的音符

uchar code Song[][50]=

{

{1,2,3,1,1,2,3,1,3,4,5,3,4,5,5,6,5,3,5,6,5,3,5,3,2,1,2,1,-1},

{3,3,3,4,5,5,5,5,6,5,3,5,3,2,1,5,6,53,3,2,1,1,-1},

{3,2,1,3,2,1,1,2,3,1,1,2,3,1,3,4,5,3,4,5,5,6,5,3,5,3,2,1,3,2,1,1,-1}

}

//三段音乐的节拍

uchar code Len[][50]=

{

{1,1,1,1,1,1,1,1,1,1,2,1,1,2,1,1,1,1,1,1,1,1,1,1,1,2,1,2,-1},

{1,1,1,1,1,1,2,1,1,1,1,1,1,1,2,1,1,1,1,1,1,2,2,-1},

{1,1,2,1,1,2,1,1,1,1,1,1,1,1,1,1,2,1,1,2,1,1,1,1,1,1,1,2,1,1,2,2,-1}

}

//外部中断0

void EX0_INT() interrupt 0

{

TR0=0//播放结束或者播放中途切换歌曲时停止播放

Song_Index=(Song_Index+1)%3//跳到下一首的开头

Tone_Index=0

P2=DSY_CODE[Song_Index] //数码管显示当前音乐段号

} void main()

{

P2=0xc0

SPK=0

TMOD=0x00 //T0 方式 0

IE=0x83

IT0=1

IP=0x02

while(1)

{

while(K1==1) //未按键等待

while(K1==0) //等待释放

TR0=1 //开始播放

Tone_Index=0 //从第0 个音符开始

//播放过程中按下 K1 可提前停止播放（K1=0）。

//若切换音乐段会触发外部中断，导致 TR0=0，播放也会停止

while(Song[Song_Index][Tone_Index]!=-1&&K1==1&&TR0==1)

{

DelayMS(300*Len[Song_Index][Tone_Index])//播放延时（节拍）

Tone_Index++ //当前音乐段的下一音符索引

}

TR0=0 //停止播放

while(K1==0)//若提前停止播放，按键未释放时等待

}

}

宫、商、角、徵、羽。

《礼记》记载：“宫音”代表天子，统帅“众音”，“商音”代表臣子，“角音”代表百姓，“征音”代表政事，“羽音”代表万物。

宫商角徵羽这五音是中国古乐基本音阶，，同西方有别。如用西乐的七个音阶对照一下的话，古中乐的“五音”相当于do、re、mi、sol、la少去了半音递升的“fa”和“ti”。

当然，古中乐的五音唱名，不可能同西乐的“哆、来、咪、索、拉”叫法一样，唐代时用“合、四、乙、尺、工”；更古则用“宫、商、角（读jué音）、徵（读zhǐ音）、羽”了。所以，如果我们稍加留意，正宗中国古乐曲，是没有“发（fa）”和“稀（ti）”两个音阶的。

比如，还时有听到的江南小调《茉莉花》即是古曲之一，它全曲若用唱名哼出，只有“哆、来、咪、索、拉”，全无“发、稀”两音；名古曲，岳飞词的《满江红》亦然。

听耳软件——Auralia澳大利亚软件厂商RISING以其优秀的Auralia(建议售价149美元)进入视唱练耳软件领域。它提供了交互式的学习环境，学生在软件的辅助下学习基本的视唱练耳课程，软件能够对学生的练习给以评判。 Auralia简单明了的布局便于用户 *** 作。26课分属于4个主要课题：音程和音阶，和弦，节奏，音高和旋律。你可以用菜单和工具条下方的大型按钮进行选择，称这些按钮为“课题组”，点击它们就展示其所包含的课程。例如选择和弦钮，这里显现有9课：Cadences(终止式), Chord Progressions(和弦进行), Jazz Chords(爵士和弦), Chord Recognition(和弦分辨), Advanced Chord Progressions(高级和弦进行), Jazz Chord Singing(唱爵士和弦), Chord Singing(唱和弦), Cluster Chords(和弦群), Jazz Chord Progressions(爵士和弦进行)。点击具体课程，训练就开始了。工具栏控制音量和速度，改变练习的难度，提供练习的评分。 自学 快速浏览给人留下的印象是学生会喜欢。我开始选择了音程和音阶课题组，然后选了7个课题之一的唱音程，这时出现了程度选择菜单（用数字表明），唱音程有7个程度，另有自定程度的选项让用户建立供测验用的自定音程集。程度选择菜单同时提供了使用教程的简要说明。 我选择了第7级，Auralia立即用钢琴音色演奏一个音符，提示我唱一个上方的三度音（你能够在Administration屏幕上改变所用的音色）。我唱出一个正确的音以后，屏幕上出现信息“Correct!”，并伴以一声愉快的号角声，红色的音符小人咧着嘴笑。在这一窗口还能选择在合成器上再一次听音程，选择下一个难度级别，或继续在这个级别练习；或者退出。检测音高的软件在许多部分工作得很好，仅偶尔似乎没有“听见”我唱，需要重唱一遍。 为了试验软件的判断能力，我故意唱了一些不正确的音，软件用呼啸着落下的炸d爆炸声和“Incorrect”信息作为响应，让你选择再来或退出。 我选择了继续，Auralia带我回到这一课的开始。当我再次唱错，程序显示出我所唱的错音并不让我再试。幸好你可以修改自定的允许出错次数，使它稍宽容一些。Auralia提供了大量在线帮助，每一课都有相关的理论背景和交互式教程，以及教程的使用法。 测验 Auralia为教师提供了大量可以自定的选择。虽然不能增加新的课题，但是可以加进新的和弦类型，编辑现有的和弦类型，改变某些术语。 用Auralia作测验非常简单。可以从菜单进入，让你为一次测验命名，决定哪一个课题和级别，题目的数量和允许出错的次数。学生登录以后程序就会通知他有一个测验，让他选择题目，同时显示他过去的测验成绩。 菜单中的“教授（Professor）”实际上只是一个助教，他能够根据学生做练习的情况向学生提出升级或降级的建议。 Auralia的管理工具保存或删除学生的记录、测验结果都很容易。Auralia也能够连成大的网络，供更多学生同时使用。 总的评价 卓有成效的练耳软件，适用于多种程度的用户。虽然可以自定某些内容，但有的用户更希望能够增加课题。检测音高的功能给程序增加了趣味。 编者按：中音公司已经获得RISING公司的授权，即将在国内销售Auralia软件。目前软件的汉化工作已经全部完成，不久就可以推出市场。性急的朋友可以到中音网下载英文版演示程序试用。 Auralia是一个视唱练耳教学软件，它功能全面，适合各个层次的学生，既可以用于课堂教学，也非常适合于学生的自学及课外辅导。其功能特点简介如下： ●包括26个章节，专业的视唱练耳课程，其中有音程、音阶、节奏、音高旋律、和弦及各种练习，覆盖从古典音乐到现代音乐中各种知识和能力的训练。26个章节分成四个大标题，列举如下： 1音程音阶 音程对比、音程听辨、音程视唱，音阶； 音阶视唱、复杂音阶，复杂音阶视唱。 2和弦 终止式、和弦听辨，和弦视唱； 和弦进行、复杂和弦进行，音束和弦 爵士和弦、爵士和弦听辨视唱，爵士和弦进行。 3节奏 拍号听辨、节奏听写，基本节奏型； 基本节奏型听写、节奏模仿，节奏风格。 4音高/旋律 对位视唱，旋律听写； 音符听辨，调音。 ●教学方法生动有趣，引人入胜 软件的每个章节都有相应的理论知识介绍，配有谱例及音响资料，非常直观。 最新版本：2.1 官方网站： http://www.risingsoftware.com/ 演示版下载： http://www.risingsoftware.com/auralia21/aur21samp.exe

---