2005/A3

音の出るロボット

曲名『蛙の歌』

製作者:さいえんてぃすと

#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,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 ;
     while(true)
     {
      ClearTimer(0);
   while ( Timer(0) <= 30 ) { SendMessage(1); }  
   while ( Timer(0) <= 60 ) { SendMessage(2); }
     }
  } 

感想

簡単な曲だが、音の長さや間隔を調節するのが大変だった。


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-12-26 (月) 14:22:52 (4988d)