让蜂鸣器发出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）”两个音阶的。

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

---