找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 7817|回复: 1
收起左侧

天空之城 单片机c语言代码

[复制链接]
ID:349080 发表于 2018-6-10 22:38 | 显示全部楼层 |阅读模式
天空之城音乐代码
  1. #include <REG51.H>
  2. #define uchar unsigned char
  3. sbit beepIO=P1^0;
  4. uchar m,n;
  5. uchar code T[49][2]={{0,0},
  6. {0xF8,0x8B},{0xF8,0xF2},{0xF9,0x5B},{0xF9,0xB7},{0xFA,0x14},{0xFA,0x66},{0xFA,0xB9},{0xFB,0x03},{0xFB,0x4A},{0xFB,0x8F},{0xFB,0xCF},{0xFC,0x0B},
  7. {0xFC,0x43},{0xFC,0x78},{0xFC,0xAB},{0xFC,0xDB},{0xFD,0x08},{0xFD,0x33},{0xFD,0x5B},{0xFD,0x81},{0xFD,0xA5},{0xFD,0xC7},{0xFD,0xE7},{0xFE,0x05},
  8. {0xFE,0x21},{0xFE,0x3C},{0xFE,0x55},{0xFE,0x6D},{0xFE,0x84},{0xFE,0x99},{0xFE,0xAD},{0xFE,0xC0},{0xFE,0x02},{0xFE,0xE3},{0xFE,0xF3},{0xFF,0x02},
  9. {0xFF,0x10},{0xFF,0x1D},{0xFF,0x2A},{0xFF,0x36},{0xFF,0x42},{0xFF,0x4C},{0xFF,0x56},{0xFF,0x60},{0xFF,0x69},{0xFF,0x71},{0xFF,0x79},{0xFF,0x81}
  10. };
  11. uchar code music[][2]={{0,4},
  12. {0,4},{24,4},{24,4},{21,4},{19,4},{21,4},{14,8},{19,4},{21,4},{24,4},{21,4},{19,16},{0,4},{24,4},{24,4},{21,4},{19,4},{21,4},{12,8},{19,4},{21,4},{24,4},{19,4},{17,16},{0,4},{17,4},{19,4},{21,4},
  13. {24,4},{26,4},{24,4},{22,4},{24,4},{21,4},{21,4},{19,4},{19,16},{0,4},
  14. {17,4},{19,4},{17,4},{17,4},{19,4},{17,4},{19,4},{19,4},{21,8},{24,4},{21,4},{21,12},{0,4},{24,4},{24,4},{21,4},{19,4},{21,4},{14,8},{19,4},{21,4},{24,4},{21,4},{19,16},{0,4},{24,4},{24,4},{21,4},
  15. {19,4},{21,4},{12,8},{19,4},{21,4},{24,4},{19,4},{17,16},{0,4},{17,4},{19,4},{21,4},{24,4},{26,4},{24,4},{22,4},{24,4},{21,4},{21,4},{19,4},{19,12},{12,4},{21,8},{19,4},{19,8},{17,16},
  16. {0xFF,0xFF}};
  17. void delay(uchar p)
  18. {
  19. uchar i,j;
  20. for(;p>0;p--)
  21. for(i=181;i>0;i--)
  22. for(j=181;j>0;j--);
  23. }
  24. void pause()
  25. {
  26. uchar i,j;
  27. for(i=150;i>0;i--)
  28. for(j=150;j>0;j--);
  29. }
  30. void T0_int() interrupt 1
  31. {
  32. beepIO=!beepIO;
  33. TH0=T[m][0]; TL0=T[m][1];
  34. }
  35. void main()
  36. {
  37. uchar i=0;
  38. TMOD=0x01; EA=1; ET0=1;
  39. while(1)
  40. {
  41. m=music[i][0];n=music[i][1];
  42. if(m==0x00)
  43. {TR0=0;delay(n);i++;}
  44. else if(m==0xFF)
  45. {TR0=0;delay(30);i=0;}
  46. else if(m==music[i+1][0])
  47. {TR0=1;delay(n);TR0=0;pause();i++;}
  48. else
  49. {TR0=1;delay(n);i++;}
  50. }
  51. }
复制代码


蜂鸣器.rar

19.21 KB, 下载次数: 11, 下载积分: 黑币 -5

音乐代码

回复

使用道具 举报

ID:689551 发表于 2020-2-2 21:09 | 显示全部楼层
不是天空之城呀!是青花瓷!!!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表