TC官方合作论坛

 找回密码
 立即注册
查看: 3019|回复: 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 | 显示全部楼层
霸气
回复

使用道具 举报

发表于 2015-5-18 15:11:37 | 显示全部楼层
闲的蛋疼
回复

使用道具 举报

发表于 2015-5-18 16:04:11 | 显示全部楼层
我去,这都行
回复 支持 反对

使用道具 举报

发表于 2015-5-18 16:37:55 | 显示全部楼层
闲的蛋疼
回复

使用道具 举报

发表于 2015-5-18 18:14:36 | 显示全部楼层
牛逼 不解释
回复 支持 反对

使用道具 举报

发表于 2015-5-18 18:49:32 | 显示全部楼层
牛叉
回复

使用道具 举报

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

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

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

GMT+8, 2024-5-29 17:05 , Processed in 0.042750 second(s), 24 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

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