TC官方合作论坛

标题: 利用蜂鸣做的《生日快乐》之歌 [打印本页]
作者: venski    时间: 2015-5-18 11:27
标题: 利用蜂鸣做的《生日快乐》之歌
您也按以下格式，写一些自定义的歌曲，纯属娱乐：
（使用时，是利用机箱主板的小喇叭进行发声）




功能 生日快乐()
    //定义低音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)
结束


作者: DMAX    时间: 2015-5-18 11:29
叼。            
作者: 元芳    时间: 2015-5-18 11:35
叼炸天
作者: 忆辰辅助    时间: 2015-5-18 13:12
霸气
作者: fuxiaojun185    时间: 2015-5-18 15:11
闲的蛋疼
作者: 26666180    时间: 2015-5-18 16:04
我去，这都行
作者: 二叔.    时间: 2015-5-18 16:37
闲的蛋疼
作者: 千叶de悠一    时间: 2015-5-18 18:14
牛逼 不解释
作者: qw362534335    时间: 2015-5-18 18:49
牛叉
作者: z1481281370    时间: 2015-5-18 21:31
奉上小苹果代码
  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. 结束
复制代码
作者: 康师傅    时间: 2015-5-19 18:26
没看明白  哎  还是再学学吧
作者: good    时间: 2015-5-20 16:14
不是吧,楼主有才~



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1