サウンド

カエルの合唱

#define Do  262
#define Re  294
#define Mi  330
#define Fa  349
#define Sol 392
#define Ra  440

task main()

{

while(true)
{

 PlayTone(Do,15);Wait(20);
 PlayTone(Re,15);Wait(20);
 PlayTone(Mi,15);Wait(20);
 PlayTone(Fa,15);Wait(20);
 PlayTone(Mi,15);Wait(20);
 PlayTone(Re,15);Wait(20);
PlayTone(Do,35);Wait(40);

PlayTone(Mi,15);Wait(20);
PlayTone(Fa,15);Wait(20);
PlayTone(Sol,15);Wait(20);
PlayTone(Ra,15);Wait(20);
PlayTone(Sol,15);Wait(20);
PlayTone(Fa,15);Wait(20);
PlayTone(Mi,35);Wait(40);

PlayTone(Do,35);Wait(40);
PlayTone(Do,35);Wait(40);
PlayTone(Do,35);Wait(40);
PlayTone(Do,35);Wait(40);

PlayTone(Do,5);Wait(10);
PlayTone(Do,5);Wait(10);
PlayTone(Re,5);Wait(10);
PlayTone(Re,5);Wait(10);
PlayTone(Mi,5);Wait(10);
PlayTone(Mi,5);Wait(10);
PlayTone(Fa,5);Wait(10);
PlayTone(Fa,5);Wait(10);

PlayTone(Mi,15);Wait(20);
PlayTone(Re,15);Wait(20);
PlayTone(Do,35);Wait(40);
Wait(40);
}
}

ヴィバルディ四季より春

#define Do  523
#define Re  587
#define Mi  659
#define Fa  698
#define Sol 784

task main()
{
PlayTone(Do,55);Wait(60);
PlayTone(Mi,55);Wait(60);
PlayTone(Mi,55);Wait(60);
PlayTone(Mi,55);Wait(60);
PlayTone(Re,25);Wait(30);
PlayTone(Do,25);Wait(30);
PlayTone(Sol,175);Wait(180);
PlayTone(Sol,25);Wait(30);
PlayTone(Fa,25);Wait(30);
PlayTone(Mi,55);Wait(60);
PlayTone(Mi,55);Wait(60);
PlayTone(Mi,55);Wait(60);
PlayTone(Re,25);Wait(30);
PlayTone(Do,25);Wait(30);
PlayTone(Sol,175);Wait(180);
PlayTone(Sol,25);Wait(30);
PlayTone(Fa,25);Wait(30);
PlayTone(Mi,55);Wait(60);
PlayTone(Fa,25);Wait(30); 
PlayTone(Sol,25);Wait(30);
PlayTone(Fa,55);Wait(60);
PlayTone(Mi,55);Wait(60);
PlayTone(Re,175);Wait(180);
}

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-07-04 (火) 19:37:42