[[2005/A3]]
*音の出るロボット [#o094c2ee]
**曲名『蛙の歌』 [#s745dd54]
製作者:さいえんてぃすと
 #define Do  523
 #define Re  587
 #define Mi  659
 #define Fa  698
 #define Sol 784
 #define Ra  880
 #define Shi 988
 task play_music()
  {
    while (true)
    {
      PlayTone(Do,20); Wait(25);
      PlayTone(Re,20); Wait(25);
      PlayTone(Mi,20); Wait(25);
      PlayTone(Fa,20); Wait(25);
      PlayTone(Mi,20); Wait(25);
      PlayTone(Re,20); Wait(25);
      PlayTone(Do,30); Wait(35);
      PlayTone(Mi,20); Wait(25);
      PlayTone(Fa,20); Wait(25);
      PlayTone(Sol,20); Wait(25);
      PlayTone(Ra,20); Wait(25);
      PlayTone(Sol,20); Wait(25);
      PlayTone(Fa,20); Wait(25);
      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,15); Wait(20);
      PlayTone(Do,15); Wait(20);
      PlayTone(Re,15); Wait(20);
      PlayTone(Re,15); Wait(20);
      PlayTone(Mi,15); Wait(20);
      PlayTone(Mi,15); Wait(20);
      PlayTone(Fa,15); Wait(20);
      PlayTone(Fa,15); Wait(20);
      PlayTone(Mi,35); Wait(40);
      PlayTone(Re,35); Wait(40);
      PlayTone(Do,45); Wait(50);
   while (true)
   {
      PlayTone(Do,30); Wait(35); SendMessage(1); 
      PlayTone(Re,30); Wait(35); SendMessage(2);
      PlayTone(Mi,30); Wait(35); SendMessage(1);
      PlayTone(Fa,30); Wait(35); SendMessage(2);
      PlayTone(Mi,30); Wait(35); SendMessage(1);
      PlayTone(Re,30); Wait(35); SendMessage(2);
      PlayTone(Do,40); Wait(50); SendMessage(1);
      PlayTone(Mi,30); Wait(35); SendMessage(2);
      PlayTone(Fa,30); Wait(35); SendMessage(1);
      PlayTone(Sol,30); Wait(35); SendMessage(2);
      PlayTone(Ra,30); Wait(35); SendMessage(1);
      PlayTone(Sol,30); Wait(35); SendMessage(2);
      PlayTone(Fa,30); Wait(35); SendMessage(1);
      PlayTone(Mi,45); Wait(55); SendMessage(2);
      PlayTone(Do,45); Wait(50); SendMessage(1);
      PlayTone(Do,45); Wait(50); SendMessage(2);
      PlayTone(Do,45); Wait(50); SendMessage(1); 
      PlayTone(Do,45); Wait(50); SendMessage(2);
      PlayTone(Do,25); Wait(30); SendMessage(1);
      PlayTone(Do,25); Wait(30); SendMessage(2);
      PlayTone(Re,25); Wait(30); SendMessage(1);
      PlayTone(Re,25); Wait(30); SendMessage(2);
      PlayTone(Mi,25); Wait(30); SendMessage(1);
      PlayTone(Mi,25); Wait(30); SendMessage(2);
      PlayTone(Fa,25); Wait(30); SendMessage(1);
      PlayTone(Fa,25); Wait(30); SendMessage(2);
      PlayTone(Mi,45); Wait(50); SendMessage(1);
      PlayTone(Re,45); Wait(50); SendMessage(2);
      PlayTone(Do,55); Wait(60); SendMessage(1);
      }
  } 
  task main()
 {
      start play_music ; 
   }
      start play_music ;
      while(true)
      {
       ClearTimer(0);
    while ( Timer(0) <= 30 ) { SendMessage(1); }  
    while ( Timer(0) <= 60 ) { SendMessage(2); }
      }
   } 
**感想 [#u21ea699]
簡単な曲だが、音の長さや間隔を調節するのが大変だった。

トップ   編集 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS