机械1301明水程序源码

1、#include#include #define GPIO_DIG P0sbit IRIN = P32;sbit Beep=P15;/*unsigned char code DIG_CODE17=0 x3f,0 x06,0 x5b,0 x4f,0 x66,0 x6d,0 x7d,0 x07,/这是共阴极数码管0 x7f,0 x6f,0 x77,0 x7c,0 x39,0 x5e,0 x79,0 x71; /0、1、2、3、4、5、6、7、8、9、A、b、C、d、E、F 的显示码/unsigned char DisplayData8; /用来存放要显示的 8 位数的值*/unsigned cha

2、r code DIG_CODE17=0 xc0,0 xf9,0 xa4,0 xb0,0 x99,0 x92,0 x82,0 xf8,/这是共阳极数码管0 x80,0 x90,0 x88,0 x83,0 xc6,0 xa1,0 x86,0 x8e;unsigned char IrValue6;/用来存放到的红外值unsigned char Time;unsignedn=0;unsignedyl=3;unsignedzjz=0;voidDigDisplay(); /数码管显示函数voidIrInit();/初始化红外线接收voidDelayMs(unsigned); / 延时函数 0.14ms 误

3、差 0usvoiddelay(unsigned char m);voiddelaym(unsigned char a);voidyi();voider();voidsan();voidsi();voidwu();voidliu();voidqi();voidba();voidjiu();void main()IrInit();while(1)DigDisplay();void DelayMs(unsignedx)/延时函数 0.14ms 误差 0usunsigned char i;while(x-)for (i = 0; i0)/等待前面 9ms 的低电平过去DelayMs(1);err-;i

4、f(IRIN=1)/如果正确等到 9ms 低电平err=500;while(IRIN=1)&(err0)/等待 4.5ms 的起始过去DelayMs(1);err-;for(k=0;k4;k+)/共有 4 组数据for(j=0;j0)/等待信号前面的 560us 低电平过去DelayMs(1);err-;err=500;while(IRIN=1)&(err0)/计算的时间长度。DelayMs(1);/0.14msTime+;err-;if(Time30)EX0=1;return;IrValuek=1;/k 表示第几组数据if(Time=8)/如果出现大于 565us，那么是 1IrValuek

5、|=0 x80;Time=0;/用完时间要重新赋值if(IrValue2!=IrValue3)return;void DigDisplay()/使用数码管显示switch(IrValue2)case(0 x0C):GPIO_DIG=DIG_CODE1;zjz=1;yi();break;/显示 1case(0 x18):GPIO_DIG=DIG_CODE2;zjz=2;er();break;/显示 2case(0 x5E):GPIO_DIG=DIG_CODE3;zjz=3;san();break;/显示 3case(0 x08):GPIO_DIG=DIG_CODE4;zjz=4;si();bre

6、ak;/显示 4case(0 x1c):GPIO_DIG=DIG_CODE5;zjz=5;wu();break;/显示 5case(0 x5a):GPIO_DIG=DIG_CODE6;zjz=6;liu();break;/显示 6case(0 x42):GPIO_DIG=DIG_CODE7;zjz=7;qi();break;/显示 7case(0 x52):GPIO_DIG=DIG_CODE8;zjz=8;ba();break;/显示 8case(0 x4a):GPIO_DIG=DIG_CODE9;zjz=9;jiu();break;/显示 9case(0 x45):GPIO_DIG=0 xr

7、eak;/关闭case(0 x43):/下一首zjz+;if(zjz=10)zjz=1;GPIO_DIG=DIG_CODEzjz;switch(zjz)case 1 :yi();IrValue2=0 x0c;break;case 2 :er();IrValue2=0 x18;break;case 3:san();IrValue2=0 x5e;break;case 4 :si();IrValue2=0 x08;break;case 5 :wu();IrValue2=0 x1c;break;case 6 :liu();IrValue2=0 x5a;break;case 7 :qi();IrValu

8、e2=0 x42;break;case 8 :ba();IrValue2=0 x52;break;case 9 :jiu();IrValue2=0 x4a;break;break;case(0 x40):/上一首zjz-;if(zjz=0)zjz=9;GPIO_DIG=DIG_CODEzjz;switch(zjz)case 1 :yi();IrValue2=0 x0c;break;case 2 :er();IrValue2=0 x18;break;case 3:san();IrValue2=0 x5e;break;case 4 :si();IrValue2=0 x08;break;case 5

9、 :wu();IrValue2=0 x1c;break;case 6 :liu();IrValue2=0 x5a;break;case 7 :qi();IrValue2=0 x42;break;case 8 :ba();IrValue2=0 x52;break;case 9 :jiu();IrValue2=0 x4a;break;break;void0()errupt 1/采用中断 0 控制节拍 TH0=0 xd8;TL0=0 xef;n-;void delay (unsigned char m)/控制频率延时unsigned i=yl*m;while(-i);void delaym(unsi

10、gned char a) /豪秒延时子程序while(-a);void yi()unsigned char code music_tab =/格式为: 频率常数, 节拍常数, 频率常数, 节拍常数,0 xff,0 x39,0 x80,0 x26,0 x30,0 x2b,0 x40,0 x2b,0 x10,0 x30,0 x20,0 x30,0 x80,0 x33,0 x80,0 x2b,0 x30,0 x4c,0 x40,0 x30,0 x10,0 x39,0 x20,0 x39,0 x80,0 x26,0 x80,0 x1c,0 x30,/路在何方0 x26,0 x40,0 x1c,0 x1

11、0,0 x20,0 x20,0 x24,0 x20,0 x26,0 x80,0 x30,0 x10,0 x2b,0 x20,0 x26,0 x80,0 x2b,0 xc0,0 x2b,0 x40,0 x39,0 x10,0 x26,0 x20,0 x2b,0 x80,0 x00;unsigned char p,m;/m 为频率常数变量unsigned char i=0;play1:while(1)a1: p=music_tabi;if(IrValue2!=0 x0c)if(IrValue2!=0 x15)&(IrValue2!=0 x09)&(IrValue2!=0 x44)return;if

12、(IrValue2=0 x15)yl+;IrValue2=0 x0c;if(IrValue2=0 x09)yl-;if(yl=0)yl=1;IrValue2=0 x0c;if(IrValue2=0 x44)IrValue2=0 x0c;while(1)if(IrValue2=0 x44)IrValue2=0 x0c;goto play1;if(p=0 x00)再来一遍 i=0, delaym(1000); goto play1;/如果碰到结束符,延时 1 秒,回到开始else if(p=0 xff) i=i+1;delaym(100),TR0=0; goto a1;/若碰到休止符,延时 100

13、ms,继续取下一音符elsem=music_tabi+, n=music_tabi+;/取频率常数 和 节拍常数TR0=1;/开定时器 1while(n!=0) Beep=Beep,delay(m);音频(可多声道哦!)/等待节拍完成, 通过P1 口输出TR0=0;/关定时器 1void er()unsigned char code music_tab =0 xff,0 x15,0 x10,0 x13,0 x20,0 x10,0 x20,0 x10,0 x30,0 x26,0 x40,0 x2b,0 x40,0 x26,0 x80,0 x2b,0 x30,0 x26,0 x40,0 x2b,0

14、 x40,0 x30,0 xc0,0 x39,0 x40,0 x30,0 x40,0 x2b,0 x10,0 x26,0 x20,0 x2b,0 x30,0 x30,0 x30,0 x39,0 x40,0 x30,0 x40,0 x40,0 xc0,0 x26,0 x40,/两只蝴蝶0 x2b,0 x40,0 x26,0 x80,0 x2b,0 x30,0 x26,0 x40,0 x2b,0 x40,0 x30,0 xc0,0 x39,0 x40,0 x30,0 x40,0 x2b,0 x10,0 x26,0 x20,0 x2b,0 x30,0 x30,0 x30,0 x39,0 x40,0

15、x30,0 x40,0 x40,0 xc0,0 x26,0 x40,0 x2b,0 x40,0 x26,0 x80,0 x2b,0 x30,0 x26,0 x40,0 x2b,0 x40,0 x30,0 xc0,0 x39,0 x40,0 x30,0 x40,0 x2b,0 x10,0 x26,0 x20,0 x2b,0 x30,0 x30,0 x30,0 x39,0 x40,0 x30,0 x40,0 x00;unsigned char p,m;/m 为频率常数变量unsigned char i=0;play2:while(1)a2: p=music_tabi;if(IrValue2!=0

16、x18)if(IrValue2!=0 x15)&(IrValue2!=0 x09)&(IrValue2!=0 x44)return;if(IrValue2=0 x15)yl+;IrValue2=0 x18;if(IrValue2=0 x09)yl-;if(yl=0)yl=1;IrValue2=0 x18;if(IrValue2=0 x44)IrValue2=0 x18;while(1)if(IrValue2=0 x44)IrValue2=0 x18;goto play2;if(p=0 x00)再来一遍 i=0, delaym(1000); goto play2;/如果碰到结束符,延时 1 秒,

17、回到开始else if(p=0 xff) i=i+1;delaym(100),TR0=0; goto a2;/若碰到休止符,延时 100ms,继续取下一音符elsem=music_tabi+, n=music_tabi+;/取频率常数 和 节拍常数TR0=1;/开定时器 1while(n!=0) Beep=Beep,delay(m);音频(可多声道哦!)/等待节拍完成, 通过P1 口输出TR0=0;/关定时器 0void san()unsigned char code music_tab =0 xff,0 x26,0 x10,0 x30,0 x20,0 x2b,0 x30,0 x39,0 x4

18、0,0 x26,0 x10,0 x2b,0 x10,0 x30,0 x20,0 x2b,0 x20,0 x39,0 x80,0 x26,0 x10,0 x30,0 x20,0 x2b,0 x30,0 x2b,0 x40,0 x20,0 x10,0 x26,0 x10,0 x33,0 x20,0 x30,0 x30,0 x30,0 x40,0 x33,0 x40,0 x39,0 x10,0 x33,0 x20,0 x30,0 x20,0 x2b,0 x30,0 x40,0 x40,0 x39,0 x10,0 x40,0 x10,0 x4c,0 x20,0 x26,0 x30,/小苹果0 x2b,

19、0 x40,0 x30,0 x10,0 x2b,0 x20,0 x26,0 x20,0 x2b,0 x30,0 x26,0 x30,0 x2b,0 x40,0 x26,0 x40,0 x20,0 x40,0 x20,0 x10,0 x20,0 x20,0 x20,0 x20,0 x20,0 x30,0 x20,0 x30,0 x20,0 x40,0 x00;unsigned char p,m;/m 为频率常数变量unsigned char i=0;play3:while(1)a3: p=music_tabi;if(IrValue2!=0 x5e)if(IrValue2!=0 x15)&(IrV

20、alue2!=0 x09)&(IrValue2!=0 x44)return;if(IrValue2=0 x15)yl+;IrValue2=0 x5e;if(IrValue2=0 x09)yl-;if(yl=0)yl=1;IrValue2=0 x5e;if(IrValue2=0 x44)IrValue2=0 x5e;while(1)if(IrValue2=0 x44)IrValue2=0 x5e;goto play3;if(p=0 x00)再来一遍 i=0, delaym(1000); goto play3;/如果碰到结束符,延时 1 秒,回到开始else if(p=0 xff) i=i+1;d

21、elaym(100),TR0=0; goto a3;/若碰到休止符,延时 100ms,继续取下一音符elsem=music_tabi+, n=music_tabi+;/取频率常数 和 节拍常数TR0=1;/开定时器 1while(n!=0) Beep=Beep,delay(m);音频(可多声道哦!)/等待节拍完成, 通过P1 口输出TR0=0;/关定时器 0void si()unsigned char code music_tab =0 xff,0 x40,0 x80,0 x30,0 x30,0 x26,0 x30,0 x30,0 x30,0 x2b,0 x30,0 x30,0 xc0,0 x

22、40,0 x80,0 x30,0 x30,0 x26,0 x30,0 x30,0 x30,0 x26,0 x30,0 x2b,0 xc0,0 x00;unsigned char p,m;/m 为频率常数变量unsigned char i=0;play4:while(1)a4: p=music_tabi;if(IrValue2!=0 x08)if(IrValue2!=0 x15)&(IrValue2!=0 x09)&(IrValue2!=0 x44)return;if(IrValue2=0 x15)yl+;IrValue2=0 x08;if(IrValue2=0 x09)yl-;if(yl=0)

23、yl=1;IrValue2=0 x08;if(IrValue2=0 x44)IrValue2=0 x08;while(1)if(IrValue2=0 x44)IrValue2=0 x08;goto play4;if(p=0 x00)再来一遍 i=0, delaym(1000); goto play4;/如果碰到结束符,延时 1 秒,回到开始else if(p=0 xff) i=i+1;delaym(100),TR0=0; goto a4; /若碰到休止符,延时 100ms,继续取下一音符elsem=music_tabi+, n=music_tabi+;/取频率常数 和 节拍常数TR0=1;/开

24、定时器 1while(n!=0) Beep=Beep,delay(m);音频(可多声道哦!)/等待节拍完成, 通过P1 口输出TR0=0;/关定时器 0void wu()unsigned char code music_tab =0 xff,0 x18,0 x30,0 x1C,0 x10,0 x20,0 x40,0 x1C,0 x10,0 x18,0 x10,0 x20,0 x10,0 x1C,0 x10,0 x18,0 x40,0 x1C,0 x20,0 x20,0 x20,0 x1C,0 x20,0 x18,0 x20,0 x20,0 x80,0 xFF,0 x20,0 x30,0 x1C

25、,0 x10,0 x18,0 x20,0 x15,0 x20,0 x1C,0 x20,0 x20,0 x20,0 x26,0 x40,0 x20,0 x20,0 x2B,0 x20,0 x26,0 x20,0 x20,0 x20,0 x30,0 x80,0 xFF,0 x20,0 x20,0 x1C,0 x10,0 x18,0 x10,0 x20,0 x20,0 x26,0 x20,0 x2B,0 x20,0 x30,0 x20,0 x2B,0 x40,0 x20,0 x20,0 x1C,0 x10,0 x18,0 x10,0 x20,0 x20,0 x26,0 x20,0 x2B,0 x20

26、,0 x30,0 x20,0 x2B,0 x40,0 x20,0 x30,0 x1C,0 x10,0 x18,0 x20,0 x15,0 x20,0 x1C,0 x20,0 x20,0 x20,0 x26,0 x40,0 x20,0 x20,/八月桂花0 x2B,0 x20,0 x26,0 x20,0 x20,0 x20,0 x30,0 x80,0 x20,0 x30,0 x1C,0 x10,0 x20,0 x10,0 x1C,0 x10,0 x20,0 x20,0 x26,0 x20,0 x2B,0 x20,0 x30,0 x20,0 x00;unsigned char p,m;/m 为频率

27、常数变量unsigned char i=0;play5:while(1)a5: p=music_tabi;if(IrValue2!=0 x1c)if(IrValue2!=0 x15)&(IrValue2!=0 x09)&(IrValue2!=0 x44)return;if(IrValue2=0 x15)yl+;IrValue2=0 x1c;if(IrValue2=0 x09)yl-;if(yl=0)yl=1;IrValue2=0 x1c;if(IrValue2=0 x44)IrValue2=0 x1c;while(1)if(IrValue2=0 x44)IrValue2=0 x1c;goto

28、play5;if(p=0 x00) i=0, delaym(1000); goto play5;/碰到结束符,延时 1 秒,再来一遍else if(p=0 xff) i=i+1;delaym(100),TR0=0; goto a5; /若碰到休止符,延时 100ms,继续取elsem=music_tabi+, n=music_tabi+;/取频率常数 和 节拍常数TR0=1;/开定时器 1while(n!=0) Beep=Beep,delay(m);/等待节拍完成,TR0=0;/关定时器 0void liu()unsigned char code music_tab =0 xff,0 x1c,

29、0 x30,0 x19,0 x30,0 x18,0 x40,0 x19,0 x30,0 x18,0 x30,0 x13,0 x30,0 x19,0 x80,0 x26,0 x30,0 x26,0 x30,0 x1c,0 x40,0 x20,0 x30,0 x1c,0 x30,0 x18,0 x30,0 x20,0 x60,0 x26,0 x30,0 x26,0 x30,0 x24,0 x40,0 x26,0 x30,0 x24,0 x30,0 x18,0 x40,0 x26,0 x60,0 x18,0 x20,0 x18,0 x20,0 x18,0 x20,0 x19,0 x40,0 x24,

30、0 x30,0 x24,0 x30,0 x19,0 x30,0 x19,0 x60,0 x1c,0 x30,0 x19,0 x30,0 x18,0 x40,0 x19,0 x30,0 x18,0 x30,0 x13,0 x30,0 x19,0 x60,0 x26,0 x30,0 x26,0 x30,0 x1c,0 x40,0 x20,0 x30,0 x1c,0 x30,0 x18,0 x30,/天空之城0 x20,0 x80,0 x26,0 x30,0 x24,0 x30,0 x24,0 x30,0 x18,0 x30,0 x19,0 x20,0 x19,0 x30,0 x18,0 x30,0

31、 x15,0 x20,0 x15,0 x20,0 x13,0 x20,0 x18,0 x40,0 x18,0 x30,0 x19,0 x30,0 x1c,0 x20,0 x1c,0 x20,0 x19,0 x30,0 x20,0 x30,0 x1c,0 x60,0 x18,0 x30,0 x15,0 x30,0 x13,0 x40,0 x15,0 x30,0 x13,0 x30,0 x10,0 x30,0 x15,0 x60,0 x20,0 x30,0 x20,0 x30,0 x18,0 x30,0 x19,0 x30,0 x18,0 x30,0 x13,0 x30,0 x13,0 x60,0

32、 x1c,0 x20,0 x19,0 x20,0 x18,0 x30,0 x19,0 x30,0 x15,0 x20,0 x15,0 x20,0 x18,0 x40,0 x20,0 x30,0 x20,0 x30,0 x00;unsigned char p,m;/m 为频率常数变量unsigned char i=0;play6:while(1)a6: p=music_tabi;if(IrValue2!=0 x5a)if(IrValue2!=0 x15)&(IrValue2!=0 x09)&(IrValue2!=0 x44)return;if(IrValue2=0 x15)yl+;IrValue

33、2=0 x5a;if(IrValue2=0 x09)yl-;if(yl=0)yl=1;IrValue2=0 x5a;if(IrValue2=0 x44)IrValue2=0 x5a;while(1)if(IrValue2=0 x44)IrValue2=0 x5a;goto play6;if(p=0 x00)再来一遍 i=0, delaym(1000); goto play6;/如果碰到结束符,延时 1 秒,回到开始else if(p=0 xff) i=i+1;delaym(100),TR0=0; goto a6; /若碰到休止符,延时 100ms,继续取下一音符elsem=music_tabi

34、+, n=music_tabi+;/取频率常数 和 节拍常数TR0=1;/开定时器 1while(n!=0) Beep=Beep,delay(m);音频(可多声道哦!)/等待节拍完成, 通过P1 口输出TR0=0;/关定时器 0void qi()unsigned char code music_tab =0 xff,0 x30,0 x1C,0 x10,0 x20,0 x40,0 x1C,0 x10,0 x18,0 x10,0 x20,0 x10,0 x1C,0 x10,0 x18,0 x40,0 x1C,0 x20,0 x20,0 x20,0 x1C,0 x20,0 x18,0 x20,0 x

35、20,0 x80,0 xFF,0 x20,0 x30,0 x1C,0 x10,0 x18,0 x20,0 x15,0 x20,0 x1C,0 x20,0 x20,0 x20,0 x26,0 x40,0 x20,0 x20,0 x2B,0 x20,0 x26,0 x20,0 x20,0 x20,0 x30,0 x80,0 xFF,0 x20,0 x20,0 x1C,0 x10,0 x18,0 x10,0 x20,0 x20,0 x26,0 x20,0 x2B,0 x20,/路边的野花不要采0 x30,0 x20,0 x2B,0 x40,0 x20,0 x20,0 x1C,0 x10,0 x18,

36、0 x10,0 x20,0 x20,0 x26,0 x20,0 x2B,0 x20,0 x30,0 x20,0 x2B,0 x40,0 x20,0 x30,0 x1C,0 x10,0 x18,0 x20,0 x15,0 x20,0 x1C,0 x20,0 x20,0 x20,0 x26,0 x40,0 x20,0 x20,0 x2B,0 x20,0 x26,0 x20,0 x20,0 x20,0 x30,0 x80,0 x20,0 x30,0 x1C,0 x10,0 x20,0 x10,0 x1C,0 x10,0 x20,0 x20,0 x26,0 x20,0 x2B,0 x20,0 x30,

37、0 x20,0 x2B,0 x40,0 x20,0 x15,0 x1F,0 x05,0 x20,0 x10,0 x1C,0 x10,0 x20,0 x20,0 x26,0 x20,0 x2B,0 x20,0 x30,0 x20,0 x2B,0 x40,0 x20,0 x30,0 x1C,0 x10,0 x18,0 x20,0 x15,0 x20,0 x1C,0 x20,0 x20,0 x20,0 x26,0 x40,0 x20,0 x20,0 x2B,0 x20,0 x26,0 x20,0 x20,0 x20,0 x30,0 x30,0 x20,0 x30,0 x1C,0 x10,0 x18,

38、0 x40,0 x1C,0 x20,0 x20,0 x20,0 x26,0 x40,0 x13,0 x60,0 x18,0 x20,0 x15,0 x40,0 x13,0 x40,0 x18,0 x80,0 x00;unsigned char p,m;/m 为频率常数变量unsigned char i=0;play7:while(1)a7: p=music_tabi;if(IrValue2!=0 x42)if(IrValue2!=0 x15)&(IrValue2!=0 x09)&(IrValue2!=0 x44)return;if(IrValue2=0 x15)yl+;IrValue2=0 x

39、42;if(IrValue2=0 x09)yl-;if(yl=0)yl=1;IrValue2=0 x42;if(IrValue2=0 x44)IrValue2=0 x42;while(1)if(IrValue2=0 x44)IrValue2=0 x42;goto play7;if(p=0 x00) i=0, delaym(1000); goto play7;/碰到结束符,延时 1 秒,再来一遍else if(p=0 xff) i=i+1;delaym(100),TR0=0; goto a7; /碰到休止符,延时继续取下一音符elsem=music_tabi+, n=music_tabi+;/取

40、频率常数 和 节拍常数TR0=1;/开定时器 1while(n!=0) Beep=Beep,delay(m);/等待节拍完成, 通过 P1 口输TR0=0;/关定时器 0void ba()unsigned char code music_tab =0 xff,0 x17,0 x02, 0 x17,0 x03, 0 x18,0 x03, 0 x19,0 x02, 0 x15,0 x03,0 x16,0 x03,0 x17,0 x03,0 x17,0 x03,0 x17,0 x03,0 x18,0 x03,0 x19,0 x02,0 x16,0 x03,0 x17,0 x03,0 x18,0 x0

41、2,0 x18,0 x03,0 x17,0 x03,0 x15,0 x02,0 x18,0 x03,0 x17,0 x03,0 x18,0 x02,0 x10,0 x03,0 x15,0 x03,0 x16,0 x02,0 x15,0 x03,0 x16,0 x03,0 x17,0 x02,0 x17,0 x03,0 x18,0 x03,0 x19,0 x02,0 x1A,0 x03,0 x1B,0 x03,0 x1F,0 x03,0 x1F,0 x03,0 x17,0 x03,0 x18,0 x03,0 x19,0 x02,0 x16,0 x03,0 x17,0 x03,0 x18,0 x0

42、3,0 x17,0 x03,/挥着翅膀的0 x18,0 x03,0 x1F,0 x03,0 x1F,0 x02,0 x16,0 x03,0 x17,0 x03,0 x18,0 x03,0 x17,0 x03,0 x18,0 x03,0 x20,0 x03,0 x20,0 x02,0 x1F,0 x03,0 x1B,0 x03,0 x1F,0 x66,0 x20,0 x03,0 x21,0 x03,0 x20,0 x03,0 x1F,0 x03,0 x1B,0 x03,0 x1F,0 x66,0 x1F,0 x03,0 x1B,0 x03,0 x19,0 x03,0 x19,0 x03,0 x1

43、5,0 x03,0 x1A,0 x66,0 x1A,0 x03,0 x19,0 x03,0 x15,0 x03,0 x15,0 x03,0 x17,0 x03,0 x16,0 x66,0 x17,0 x04,0 x18,0 x04,0 x18,0 x03,0 x19,0 x03,0 x1F,0 x03,0 x1B,0 x03,0 x1F,0 x66,0 x20,0 x03,0 x21,0 x03,0 x20,0 x03,0 x1F,0 x03,0 x1B,0 x03,0 x1F,0 x66,0 x1F,0 x03,0 x1B,0 x03,0 x19,0 x03,0 x19,0 x03,0 x1

44、5,0 x03,0 x1A,0 x66,0 x1A,0 x03,0 x19,0 x03,0 x19,0 x03,0 x1F,0 x03,0 x1B,0 x03,0 x1F,0 x00,0 x1A,0 x03,0 x1A,0 x03,0 x1A,0 x03,0 x1B,0 x03,0 x1B,0 x03,0 x1A,0 x03,0 x19,0 x03,0 x19,0 x02,0 x17,0 x03,0 x15,0 x17,0 x15,0 x03,0 x16,0 x03,0 x17,0 x03,0 x18,0 x03,0 x17,0 x04,0 x18,0 x0E,0 x18,0 x03,0 x1

45、7,0 x04,0 x18,0 x0E,0 x18,0 x66,0 x17,0 x03,0 x18,0 x03,0 x17,0 x03,0 x18,0 x03,0 x20,0 x03,0 x20,0 x02,0 x1F,0 x03,0 x1B,0 x03,0 x1F,0 x66,0 x20,0 x03,0 x21,0 x03,0 x20,0 x03,0 x1F,0 x03,0 x1B,0 x03,0 x1F,0 x66,0 x1F,0 x04,0 x1B,0 x0E,0 x1B,0 x03,0 x19,0 x03,0 x00;unsignedchar p,m;/m 为频率常数变量unsigne

46、dchar i=0;play8:while(1)a8: p=music_tabi;if(IrValue2!=0 x52)if(IrValue2!=0 x15)&(IrValue2!=0 x09)&(IrValue2!=0 x44)return;if(IrValue2=0 x15)yl+;IrValue2=0 x52;if(IrValue2=0 x09)yl-;if(yl=0)yl=1;IrValue2=0 x52;if(IrValue2=0 x44)IrValue2=0 x52;while(1)if(IrValue2=0 x44)IrValue2=0 x52;goto play8;if(p=0

47、 x00) i=0, delaym(1000); goto play8;/碰到结束符,延时 1 秒,再来一遍else if(p=0 xff) i=i+1;delaym(100),TR0=0; goto a8; /休止符,延时 100ms,继续取下一音符elsem=music_tabi+, n=music_tabi+; /取频率常数 和 节拍常数TR0=1;/开定时器 1while(n!=0) Beep=Beep,delay(m);TR0=0;/关定时器 0void jiu()unsigned char code music_tab =0 xff,0 x01,0 x15,0 x02,0 x16,0 x02,0 x17,0 x66,0 x18,0 x03,