C语言实现音乐的播放，并使用proteus仿真

用C程序和proteus仿真音乐播放 void main() { unchar i,j; unint code f[]={dao,re,mi,dao, dao,re,mi,dao, mi,fa,sao, mi,fa,sao, sao,la,sao,fa,mi,dao, sao,la,sao,fa,mi,dao, dao,sao,dao, dao,sao,dao, 0xff };//以0xff作为音调的结束标志 unchar code JP[]={ 4,4,4

#include
#define unchar unsigned char
#define unint unsigned int
sbit sound=P2^7;
unint C;
#define l_dao 262
#define l_re 286
#define l_mi 311
#define l_fa 349
#define l_sao 392
#define l_la 440
#define l_xi 494
#define dao 523
#define re 587
#define mi 659
#define fa 698
#define sao 784
#define la 880
#define xi 987
#define h_dao 1046
#define h_re 1175
#define h_mi 1318
#define h_fa 1397
#define h_sao 1568
#define h_la 1760
#define h_xi 1967
/*一个单位延时200ms*/
void delay（）
{
 unchar ab;
  for（a=0;a<150;a++）
    for（b=0;b<150;b++）
	  ;
 }
/*主函数*/
void main（）
{
 unchar ij;
 unint code f[]={daoremidao
                  daoremidao
				  mifasao
				  mifasao
				  saolasaofamidao
				  saolasaofamidao
				  daosaodao
				  daosaodao
				  0xff
				  };//以0xff作为音调的结束标志
 unchar code JP[]={	4444
                    4444
					448
					448
					616144
					616144
					448

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1412  2010-10-08 16:06  音乐播放器\音乐播放.c

     文件        215  2010-10-14 17:40  音乐播放器\音乐播放.plg

     文件       2152  2010-09-15 16:06  音乐播放器\音乐播放_Uv2.Bak

     文件       1649  2010-10-08 16:05  音乐播放器\音乐播放.hex

     文件         33  2010-10-08 16:05  音乐播放器\音乐播放.lnp

     文件         33  2010-09-15 16:06  音乐播放器\音乐播放（1）.lnp

     文件       5332  2010-10-08 16:05  音乐播放器\音乐播放.M51

     文件       1434  2011-04-25 19:15  音乐播放器\音乐播放.PWI

     文件       2157  2010-09-15 20:05  音乐播放器\音乐播放.Uv2

     文件       3969  2010-10-08 16:05  音乐播放器\音乐播放.LST

     文件       1459  2010-10-08 16:05  音乐播放器\音乐播放.OBJ

     文件       1489  2010-10-08 16:05  音乐播放器\音乐播放

     文件        987  2010-10-08 16:06  音乐播放器\音乐播放_Opt.Bak

     文件       3536  2010-10-08 18:42  音乐播放器\两只老虎.gif

     文件      70598  2010-10-08 19:49  音乐播放器\Last Loaded 音乐播放.DBK

     文件      75790  2010-10-14 17:03  音乐播放器\音乐播放.DSN

     文件        987  2010-10-14 17:40  音乐播放器\音乐播放.Opt

     目录          0  2011-05-16 09:42  音乐播放器

----------- ---------  ---------- -----  ----

               173232                    18