[[2005/A2/課題5]]

*ええじゃないか [#d5841840]


#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 ; 
 }

コメントをどうぞ
#comment

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