2005/A2/課題5

ええじゃないか

#define Si 494

#define Do 523

#define Re 587

#define Mi 659

#define Fa 698

#define Sol 784

#define ra 880

#define si 988

#define Do2 1047

#define Re2 1175 task play_music() {

  while (true)
  {
     PlayTone(ra,25); Wait(30);//ええ
     PlayTone(Do2,12); Wait(17);//じゃ
     PlayTone(Do2,25); Wait(30);//ない
     PlayTone(Do2,12); Wait(17);//か
     PlayTone(Re2,25); Wait(30);//ええ
     PlayTone(Do2,12); Wait(17);//じゃ
     PlayTone(ra,25); Wait(30);//ない
     PlayTone(Fa,12); Wait(17);//か
     PlayTone(Mi,25); Wait(30);//ええ
     PlayTone(Fa,12); Wait(17);//じゃ
     PlayTone(Mi,25); Wait(30);//な
     PlayTone(Re,12); Wait(17);//い
     PlayTone(Do,37); Wait(42);//か
     Wait(5);
     PlayTone(Do,35); Wait(40);//い     
     PlayTone(Re,60); Wait(65);//せ
     PlayTone(Mi,22); Wait(27);//の
     PlayTone(Fa,45); Wait(50);//め
     PlayTone(Mi,37); Wait(42);//い
     PlayTone(Re,42); Wait(47);//ぶ
     PlayTone(Si,25); Wait(30);//つ
     Wait(5);
     PlayTone(ra,25); Wait(30);//あ
     PlayTone(Do2,12); Wait(17);//か
     PlayTone(Do2,25); Wait(30);//ふ
     PlayTone(Do2,12); Wait(17);//く
     Wait(10);
     PlayTone(Do2,10); Wait(15);//も
     PlayTone(si,25); Wait(30);//ち
     PlayTone(ra,12); Wait(17);//は
     PlayTone(Mi,25); Wait(30);//ええ
     PlayTone(Fa,12); Wait(17);//じゃ
     PlayTone(Mi,25); Wait(30);//な
     PlayTone(Re,12); Wait(17);//い
     PlayTone(Do,30); Wait(35);//か
     PlayTone(Do2,5); Wait(10);//
     Wiat(30)
     }

}

task main()

{

  start play_music ; 
}

コメントをどうぞ



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