2004/B6/33班

音楽をならすロボット


#define Do  523
#define re  587
#define mi  659
#define fa  698
#define so  784
#define ra  880
#define si  988
task play_music()
{
 while (true)
 {
  PlayTone(Do,20); Wait(25);
  PlayTone(re,20); Wait(25);  
  PlayTone(mi,20); Wait(45); 
  PlayTone(Do,20); Wait(25);
  PlayTone(re,20); Wait(25);  
  PlayTone(mi,20); Wait(45);
  PlayTone(so,20); Wait(25);
  PlayTone(mi,20); Wait(25);
  PlayTone(re,20); Wait(25);
  PlayTone(Do,20); Wait(25);
  PlayTone(re,20); Wait(25);
  PlayTone(mi,20); Wait(25);
  PlayTone(re,20); Wait(45);
  PlayTone(Do,20); Wait(25);
  PlayTone(re,20); Wait(25);  
  PlayTone(mi,20); Wait(45); 
  PlayTone(Do,20); Wait(25);
  PlayTone(re,20); Wait(25);  
  PlayTone(mi,20); Wait(45);
  PlayTone(so,20); Wait(25);
  PlayTone(mi,20); Wait(25);
  PlayTone(re,20); Wait(25);
  PlayTone(Do,20); Wait(25);
  PlayTone(re,20); Wait(25);
  PlayTone(mi,20); Wait(25);
  PlayTone(Do,20); Wait(45);
  PlayTone(ra,20); Wait(25);
  PlayTone(ra,20); Wait(25);
  PlayTone(so,20); Wait(25);
  PlayTone(ra,20); Wait(25);
  PlayTone(ra,20); Wait(25);
  PlayTone(ra,20); Wait(25);
  PlayTone(so,20); Wait(45);
  PlayTone(mi,20); Wait(25);
  PlayTone(mi,20); Wait(25);
  PlayTone(re,20); Wait(25);
  PlayTone(re,20); Wait(25);
  PlayTone(Do,20); Wait(40);
 }
}
task main()
{
 start play_music;
}


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-02-07 (月) 19:33:09