找回密码
 马上注册

QQ登录

只需一步,快速开始

查看: 3544|回复: 1

用NXC写了一首曲子供大家娱乐

[复制链接]
发表于 2014-4-7 22:14:00 | 显示全部楼层 |阅读模式
最近用NXC写了一首《樱花开》的曲子供大家娱乐,选这首曲子是因为它比较短又为人熟知。本人非音乐专业,不到之处请大家指正。代码献上:

// yinhuakai樱花开音乐 20140407shi
void yinhuakai()  //yinhuakai樱花开音乐
{
int a1=1397;
int a2=1568;
int a3=1760;
int a4=1975;
int a5=2093;
int a6=2349;
int a7=2637;
int w1=400;
int w2=480;
int w3=800;
int w4=1280;
  PlayTone(a6,w1);
  Wait(w2);
  PlayTone(a6,w1);
  Wait(w2);
  PlayTone(a7,w3);
  Wait(w3);
  PlayTone(a6,w1);
  Wait(w2);
  PlayTone(a6,w1);
  Wait(w2);
  PlayTone(a7,w3);
  Wait(w3);
  PlayTone(a6,w1);
  Wait(w2);
  PlayTone(a7,w1);
  Wait(w2);
  PlayTone(a1,w1);
  Wait(w2);
  PlayTone(a7,w1);
  Wait(w2);
  PlayTone(a6,w1);
  Wait(w2);
  PlayTone(a7,w1);
  Wait(w1);
  PlayTone(a6,w1);
  Wait(w2);
  PlayTone(a4,w3);   //6764-
  Wait(w3);
  PlayTone(a3,w3);
  Wait(w2);
  PlayTone(a1,w1);
  Wait(w2);
  PlayTone(a3,w1);
  Wait(w2);
  PlayTone(a4,w1);  //3134
  Wait(w2);
  PlayTone(a3,w1);
  Wait(w2);
  PlayTone(a3,w1);
  Wait(w1);
  PlayTone(a1,w1);
  Wait(w2);
  PlayTone(a7,w3);
  Wait(w3);
  PlayTone(a6,w3);
  Wait(w2);
  PlayTone(a7,w1);
  Wait(w2);
  PlayTone(a1,w1);
  Wait(w2);
  PlayTone(a7,w1);
  Wait(w2);
  PlayTone(a6,w1);
  Wait(w2);
  PlayTone(a7,w1);
  Wait(w1);
  PlayTone(a6,w1);
  Wait(w2);
  PlayTone(a4,w3);    //6764--
  Wait(w3);
PlayTone(a3,w3);
  Wait(w2);
  PlayTone(a1,w1);
  Wait(w2);
  PlayTone(a3,w1);
  Wait(w2);
  PlayTone(a4,w1);  //3134
  Wait(w2);
  PlayTone(a3,w1);
  Wait(w2);
  PlayTone(a3,w1);
  Wait(280);
  PlayTone(a1,w1);
  Wait(w2);
  PlayTone(a7,w3);
  Wait(w3);
  PlayTone(a6,w1);
  Wait(w2);
  PlayTone(a6,w1);
  Wait(w2);
  PlayTone(a7,w3);
  Wait(w3);
  PlayTone(a6,w3);
  Wait(w2);
  PlayTone(a6,w1);
  Wait(w2);
  PlayTone(a7,w3); //667-
  Wait(w3);
  PlayTone(a3,w3);
  Wait(w2);
  PlayTone(a4,w1);
  Wait(w2);
  PlayTone(a7,w1);
  Wait(w1);
  PlayTone(a6,w1);
  Wait(w2);
  PlayTone(a4,w3);
  Wait(w3);
  PlayTone(a3,1200);
  Wait(w4);
  }
  task main()
   {
    yinhuakai() ;   //yinhuakai樱花开音乐
    }



如果您觉得我的帖子对您有用,请不吝给我一个“赞”!
发表于 2014-5-12 11:12:38 | 显示全部楼层
重写吧,来首东方红,不要樱花........
如果您觉得我的帖子对您有用,请不吝给我一个“赞”!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 马上注册

本版积分规则

QQ|手机版|中文乐高 ( 桂ICP备13001575号-7 )

GMT+8, 2024-5-6 08:24 , Processed in 0.168026 second(s), 19 queries .

Powered by Discuz! X3.5

Copyright © 2001-2020, Tencent Cloud.

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