TC官方合作论坛

 找回密码
 立即注册
查看: 870|回复: 11
打印 上一主题 下一主题

[源码分享] 利用蜂鸣做的《生日快乐》之歌

  [复制链接]
跳转到指定楼层
楼主
发表于 2015-5-18 11:27:29 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上加入TC

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
您也按以下格式,写一些自定义的歌曲,纯属娱乐:
(使用时,是利用机箱主板的小喇叭进行发声)




功能 生日快乐()
    //定义低音7音
    var A1=131
    var A2=147
    var A3=165
    var A4=175
    var A5=196
    var A6=220
    var A7=247
    //定义中音7音
    var B1=262
    var B2=296
    var B3=330
    var B4=349
    var B5=392
    var B6=440
    var B7=494
    //定义高音7音
    var C1=523
    var C2=587
    var C3=659
    var C4=698
    var C5=784
    var C6=880
    var C7=988
    //定义高二度7音
    var D1=1047
    var D2=1175
    var D3=1319
    var D4=1397
    var D5=1568
    var D6=1760
    var D7=1976   
    //开头
    遍历(var i=0;i<2;i++)
        蜂鸣(C5,400)
        蜂鸣(C5,400)
        蜂鸣(C6,400)
        蜂鸣(C5,400)
        蜂鸣(D1,400)
        蜂鸣(A1,800)
        等待(400)
    结束
    //**
    蜂鸣(C5,400)
    蜂鸣(D5,400)
    蜂鸣(D3,400)
    蜂鸣(D1,400)
    蜂鸣(C7,400)
    蜂鸣(C6,600)
    等待(400)
    蜂鸣(D4,400)
    蜂鸣(D4,400)
    蜂鸣(D3,400)
    蜂鸣(D1,400)
    蜂鸣(D2,400)
    蜂鸣(D1,1200)
结束


评分

参与人数 5威望 +45 金币 +35 收起 理由
mitchs + 10 很给力!
sam7894604 + 10 + 10 赞一个!
itcfan + 10 + 10 很给力!
18667006365 + 5 + 5 赞一个!
TC管理员 + 10 + 10 有创意 !

查看全部评分

回复

使用道具 举报

推荐
发表于 2015-5-18 21:31:06 | 只看该作者
奉上小苹果代码
  1. 功能 小苹果()
  2.     //定义低音7音
  3.     var A1=131
  4.     var A2=147
  5.     var A3=165
  6.     var A4=175
  7.     var A5=196
  8.     var A6=220
  9.     var A7=247
  10.     //定义中音7音
  11.     var B1=262
  12.     var B2=296
  13.     var B3=330
  14.     var B4=349
  15.     var B5=392
  16.     var B6=440
  17.     var B7=494
  18.     //定义高音7音
  19.     var C1=523
  20.     var C2=587
  21.     var C3=659
  22.     var C4=698
  23.     var C5=784
  24.     var C6=880
  25.     var C7=988
  26.     //定义高二度7音
  27.     var D1=1047
  28.     var D2=1175
  29.     var D3=1319
  30.     var D4=1397
  31.     var D5=1568
  32.     var D6=1760
  33.     var D7=1976   
  34.     //开头伴奏
  35.     蜂鸣(A6,200)
  36.     蜂鸣(A6,200)
  37.     蜂鸣(A6,200)
  38.     蜂鸣(A6,100)
  39.     蜂鸣(A7,100)
  40.     蜂鸣(B1,200)
  41.     蜂鸣(A7,200)
  42.     蜂鸣(A6,200)
  43.     蜂鸣(A3,200)
  44.     蜂鸣(B3,200)
  45.     蜂鸣(B2,200)
  46.     蜂鸣(B1,200)
  47.     蜂鸣(A6,200)
  48.     蜂鸣(A5,200)
  49.     蜂鸣(A6,400)
  50.     蜂鸣(B5,200)
  51.     蜂鸣(B3,200)
  52.     蜂鸣(B2,200)
  53.     蜂鸣(B1,100)
  54.     蜂鸣(B2,100)
  55.     蜂鸣(B2,200)
  56.     蜂鸣(B3,200)
  57.     蜂鸣(B2,200)
  58.     蜂鸣(A5,200)
  59.     蜂鸣(A6,400)
  60.     蜂鸣(A6,200)
  61.     蜂鸣(A6,100)
  62.     蜂鸣(A7,100)
  63.     蜂鸣(B1,200)
  64.     蜂鸣(B2,200)
  65.     蜂鸣(B5,200)
  66.     蜂鸣(B4,200)
  67.     蜂鸣(B3,200)
  68.     蜂鸣(B1,200)
  69.     蜂鸣(A3,200)
  70.     蜂鸣(A3,200)
  71.     蜂鸣(A5,200)
  72.     蜂鸣(A6,200)
  73.     蜂鸣(A6,200)
  74.     蜂鸣(A5,200)
  75.     蜂鸣(A6,400)
  76.     蜂鸣(B3,200)
  77.     蜂鸣(B2,200)
  78.     蜂鸣(B1,200)
  79.     蜂鸣(B1,100)
  80.     蜂鸣(B2,100)
  81.     蜂鸣(B2,200)
  82.     蜂鸣(B1,200)
  83.     蜂鸣(A6,200)
  84.     蜂鸣(A3,200)
  85.     蜂鸣(A5,200)
  86.     蜂鸣(B3,200)
  87.     蜂鸣(B2,200)
  88.     蜂鸣(B1,200)
  89.     蜂鸣(A6,200)
  90.     蜂鸣(A5,200)
  91.     蜂鸣(A6,400)
  92.     //歌曲开始
  93.     遍历(变量 i = 0; i < 2; i++)
  94.         蜂鸣(B1,200)
  95.         蜂鸣(B1,200)
  96.         蜂鸣(B1,200)
  97.         蜂鸣(B1,200)
  98.         蜂鸣(B1,200)
  99.         蜂鸣(B1,200)
  100.         蜂鸣(B1,200)
  101.         蜂鸣(A6,300)
  102.         等待(100)
  103.         蜂鸣(B1,200)
  104.         蜂鸣(B1,200)
  105.         蜂鸣(B1,200)
  106.         蜂鸣(B1,200)
  107.         蜂鸣(B1,200)
  108.         蜂鸣(B1,200)
  109.         蜂鸣(B1,200)
  110.         蜂鸣(A5,300)
  111.         等待(100)
  112.         蜂鸣(A5,200)
  113.         蜂鸣(A5,200)
  114.         蜂鸣(A5,200)
  115.         蜂鸣(A5,200)
  116.         蜂鸣(A5,200)
  117.         蜂鸣(A6,200)
  118.         蜂鸣(A5,200)
  119.         蜂鸣(A6,400)
  120.         等待(400)
  121.     结束
  122.    
  123.     遍历(变量 i1 = 0; i1 < 2; i1++)
  124.         蜂鸣(A6,200)
  125.         蜂鸣(A6,200)
  126.         蜂鸣(A6,200)
  127.         蜂鸣(A7,200)
  128.         蜂鸣(B1,200)
  129.         蜂鸣(B3,200)
  130.         蜂鸣(B2,200)
  131.         蜂鸣(B1,200)
  132.         蜂鸣(A7,200)
  133.         蜂鸣(A6,200)
  134.         蜂鸣(A7,200)
  135.         蜂鸣(A6,200)
  136.         蜂鸣(A7,400)
  137.         等待(400)
  138.         蜂鸣(A5,200)
  139.         蜂鸣(A5,200)
  140.         蜂鸣(A5,200)
  141.         蜂鸣(A6,200)
  142.         蜂鸣(A7,200)
  143.         蜂鸣(B2,200)
  144.         蜂鸣(B1,200)
  145.         蜂鸣(B1,200)
  146.         蜂鸣(A7,200)
  147.         蜂鸣(A6,200)
  148.         蜂鸣(A5,200)
  149.         蜂鸣(A6,200)
  150.         蜂鸣(A5,200)
  151.         蜂鸣(A6,400)
  152.         等待(400)
  153.     结束
  154.     等待(800)
  155.     遍历(变量 i2 = 0; i2 < 2; i2++)
  156.         蜂鸣(B3,400)
  157.         蜂鸣(B1,400)
  158.         蜂鸣(B2,400)
  159.         蜂鸣(A6,400)
  160.         蜂鸣(B3,200)
  161.         蜂鸣(B2,200)
  162.         蜂鸣(B1,200)
  163.         蜂鸣(B2,200)
  164.         蜂鸣(A6,400)
  165.         等待(400)
  166.         蜂鸣(B3,400)
  167.         蜂鸣(B1,400)
  168.         蜂鸣(B2,400)
  169.         蜂鸣(B2,400)
  170.         蜂鸣(B5,200)
  171.         蜂鸣(B3,200)
  172.         蜂鸣(A7,400)
  173.         蜂鸣(B1,400)
  174.         蜂鸣(B1,200)
  175.         蜂鸣(A7,200)
  176.         蜂鸣(A6,400)
  177.         蜂鸣(A7,200)
  178.         蜂鸣(B1,200)
  179.         蜂鸣(B2,400)
  180.         蜂鸣(A5,400)
  181.         蜂鸣(B6,400)
  182.         蜂鸣(B5,400)
  183.         蜂鸣(B3,400)
  184.         蜂鸣(B2,400)
  185.         蜂鸣(B1,400)
  186.         蜂鸣(B2,200)
  187.         蜂鸣(B3,200)
  188.         if(i2==0)
  189.             蜂鸣(B2,200)
  190.             蜂鸣(B3,200)
  191.             蜂鸣(B2,200)
  192.             蜂鸣(B3,100)
  193.             蜂鸣(B5,100)
  194.             
  195.             蜂鸣(B5,400)
  196.             蜂鸣(B5,200)
  197.             蜂鸣(B5,200)
  198.             蜂鸣(B5,200)
  199.             蜂鸣(B5,200)
  200.             蜂鸣(B5,400)
  201.         else
  202.             蜂鸣(B2,400)
  203.             蜂鸣(A5,400)
  204.             蜂鸣(A6,400)
  205.             蜂鸣(B1,400)
  206.             蜂鸣(A6,400)
  207.         end
  208.         
  209.     结束
  210. 结束
复制代码

评分

参与人数 1威望 +10 收起 理由
venski + 10 很给力!

查看全部评分

回复 支持 1 反对 0

使用道具 举报

沙发
发表于 2015-5-18 11:29:29 | 只看该作者
叼。            
回复 支持 反对

使用道具 举报

板凳
发表于 2015-5-18 11:35:51 | 只看该作者
叼炸天
回复

使用道具 举报

地板
发表于 2015-5-18 13:12:34 | 只看该作者
霸气
回复

使用道具 举报

5#
发表于 2015-5-18 15:11:37 | 只看该作者
闲的蛋疼
回复

使用道具 举报

6#
发表于 2015-5-18 16:04:11 | 只看该作者
我去,这都行
回复 支持 反对

使用道具 举报

7#
发表于 2015-5-18 16:37:55 | 只看该作者
闲的蛋疼
回复

使用道具 举报

8#
发表于 2015-5-18 18:14:36 | 只看该作者
牛逼 不解释
回复 支持 反对

使用道具 举报

9#
发表于 2015-5-18 18:49:32 | 只看该作者
牛叉
回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18043773号

GMT+8, 2025-9-17 04:00 , Processed in 0.298896 second(s), 24 queries .

Powered by 海安天坑软件科技有限公司

© 2001-2013 Comsenz Inc.

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