/************************************************************************??
[文件名]??C51音樂程序（八月桂花）??
[功能]????通過單片機演奏音樂??
??
/**********************************************************************/???
#include?????
#include?????
//本例采用89C52?晶振為12MHZ????
//關于如何編制音樂代碼?其實十分簡單各位可以看以下代碼.????
//頻率常數即音樂術語中的音調而節拍常數即音樂術語中的多少拍;????
//所以拿出譜子?試探編吧!????

sbit?Beep?=??P2^1?;?
???
unsigned?char?n=0;??//n為節拍常數變量????
unsigned?char?code?music_tab[]?={???
0x18?0x30?0x1C??0x10?//格式為:?頻率常數?節拍常數?頻率常數?節拍常數????
0x20?0x40?0x1C??0x10???
0x18?0x10?0x20??0x10???
0x1C?0x10?0x18??0x40???
0x1C?0x20?0x20??0x20???
0x1C?0x20?0x18??0x20???
0x20?0x80?0xFF??0x20???
0x30?0x1C?0x10??0x18???
0x20?0x15?0x20??0x1C???
0x20?0x20?0x20??0x26???
0x40?0x20?0x20??0x2B???
0x20?0x26?0x20??0x20???
0x20?0x30?0x80??0xFF???
0x20?0x20?0x1C??0x10???
0x18?0x10?0x20??0x20???
0x26?0x20?0x2B??0x20???
0x30?0x20?0x2B??0x40???
0x20?0x20?0x1C??0x10???
0x18?0x10?0x20??0x20???
0x26?0x20?0x2B??0x20???
0x30?0x20?0x2B??0x40???
0x20?0x30?0x1C??0x10???
0x18?0x20?0x15??0x20???
0x1C?0x20?0x20??0x20???
0x26?0x40?0x20??0x20???
0x2B?0x20?0x26??0x20???
0x20?0x20?0x30??0x80???
0x20?0x30?0x1C??0x10???
0x20?0x10?0x1C??0x10???
0x20?0x20?0x26??0x20???
0x2B?0x20?0x30??0x20???
0x2B?0x40?0x20??0x15???
0x1F?0x05?0x20??0x10???
0x1C?0x10?0x20??0x20???
0x26?0x20?0x2B??0x20???
0x30?0x20?0x2B??0x40???
0x20?0x30?0x1C??0x10???
0x18?0x20?0x15??0x20???
0x1C?0x20?0x20??0x20???
0x26?0x40?0x20??0x20???
0x2B?0x20?0x26??0x20???
0x20?0x20?0x30??0x30???
0x20?0x30?0x1C??0x10???
0x18?0x40?0x1C??0x20???
0x20?0x20?0x26??0x40???
0x13?0x60?0x18??0x20???
0x15?0x40?0x13??0x40???
0x18?0x80?0x00???
};???
???
void?int0（）??interrupt?1???//采用中斷0?控制節拍????
{??TH0=0xd8;???
???TL0=0xef;???
???n--;???
}???
???
void?delay?（unsigned?char?m）???//控制頻率延時????
{???
?unsigned?i=3*m;???
?while（--i）;???
}???
???
void?delayms（unsigned?char?a）??//豪秒延時子程序????
{???
??while（--a）;??????????????????//采用while（--a）?不要采用while（a--）;?各位可編譯一下看看匯編結果就知道了!????
}???
???
void?main（）???
{?unsigned?char?pm;???//m為頻率常數變量????
??unsigned?char?i=0;???
??TMOD&=0x0f;???
??TMOD|=0x01;???
??TH0=0xd8;TL0=0xef;???
??IE=0x82;???
play:???
???while（1）???
????{???
????a:?p=music_tab[i];???
???????if（p==0x00）???????{?i=0?delayms（1000）;?goto?play;}?????//如果碰到結束符延時1秒回到開始再來一遍????
???????else?if（p==0xff）??{?i=i+1;delayms（100）TR0=0;?goto?a;}??//若碰到休止符延時100ms繼續取下一音符????
????????????else?????????{m=music_tab[i++]?n=music_tab[i++];}??//取頻率常數?和?節拍常數????
?????????????TR0=1;?????????????????????????????????????????????//開定時器1????
???????????while（n!=0）?Beep=~Beepdelay（m）;?????????????????????????//等待節拍完成?通過P1口輸出音頻（可多聲道哦!）????
???????TR0=0;?????????????????????????????????????????????//關定時器1????
????}

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2015-07-14?20:47??6.蜂鳴器音樂之八月桂花?-?副本\
?????文件????????5115??2013-03-13?09:27??6.蜂鳴器音樂之八月桂花?-?副本\STARTUP.A51
?????文件???????11665??2014-06-21?09:59??6.蜂鳴器音樂之八月桂花?-?副本\STARTUP.LST
?????文件?????????749??2014-06-21?09:59??6.蜂鳴器音樂之八月桂花?-?副本\STARTUP.OBJ
?????文件????????3965??2015-07-14?18:42??6.蜂鳴器音樂之八月桂花?-?副本\beep
?????文件????????5562??2015-07-14?18:42??6.蜂鳴器音樂之八月桂花?-?副本\beep.LST
?????文件????????6374??2015-07-14?18:42??6.蜂鳴器音樂之八月桂花?-?副本\beep.M51
?????文件????????3626??2015-07-14?18:42??6.蜂鳴器音樂之八月桂花?-?副本\beep.OBJ
?????文件????????1024??2014-11-27?11:11??6.蜂鳴器音樂之八月桂花?-?副本\beep.Opt
?????文件????????2154??2013-03-13?09:27??6.蜂鳴器音樂之八月桂花?-?副本\beep.Uv2.bak
?????文件??????????34??2015-07-14?18:42??6.蜂鳴器音樂之八月桂花?-?副本\beep.__i
?????文件????????3246??2015-01-07?16:42??6.蜂鳴器音樂之八月桂花?-?副本\beep.c
?????文件????????1385??2015-07-14?18:42??6.蜂鳴器音樂之八月桂花?-?副本\beep.hex
?????文件??????????56??2015-07-14?18:42??6.蜂鳴器音樂之八月桂花?-?副本\beep.lnp
?????文件????????1025??2013-03-13?09:27??6.蜂鳴器音樂之八月桂花?-?副本\beep.opt.bak
?????文件?????????187??2015-07-14?20:46??6.蜂鳴器音樂之八月桂花?-?副本\beep.plg
?????文件???????68470??2015-01-07?16:42??6.蜂鳴器音樂之八月桂花?-?副本\beep.uvgui.Administrator
?????文件???????68470??2015-01-07?16:42??6.蜂鳴器音樂之八月桂花?-?副本\beep.uvgui_Administrator.bak
?????文件????????6503??2015-01-07?16:42??6.蜂鳴器音樂之八月桂花?-?副本\beep.uvopt
?????文件???????13416??2015-01-07?16:42??6.蜂鳴器音樂之八月桂花?-?副本\beep.uvproj
?????文件????????1025??2013-03-13?09:27??6.蜂鳴器音樂之八月桂花?-?副本\beep_Opt.Bak
?????文件????????2024??2013-03-13?09:27??6.蜂鳴器音樂之八月桂花?-?副本\beep_Uv2.Bak
?????文件???????73670??2014-06-21?10:05??6.蜂鳴器音樂之八月桂花?-?副本\beep_uvopt.bak
?????文件???????13386??2013-04-19?11:20??6.蜂鳴器音樂之八月桂花?-?副本\beep_uvproj.bak