2004/B2/演奏するロボット

#define Fl 349
#define Gl 392
#define Al 440
#define Bl 494 
#define C  523
#define D  587
#define E  659
#define F  698
#define FS 740
#define G  784
#define A  880
#define AS 932
#define B  988
#define Ch 1047
       task play_music()//空も飛べるはず (スピッツ)
           {
            while (true)
           {
             PlayTone(C,30);Wait(35);
             PlayTone(D,30);Wait(35);
             PlayTone(E,60);Wait(65);
             PlayTone(E,60);Wait(65);
             PlayTone(D,30);Wait(35);
             PlayTone(c,30);Wait(35);
             PlayTone(Bl,60);Wait(65);
             PlayTone(C,60);Wait(65);
             PlayTone(Bl,30);Wait(35);
             PlayTone(Al,60);Wait(65);
             
             PlayTone(C,30);Wait(35);
             PlayTone(D,30);Wait(35);
             PlayTone(E,60);Wait(65);
             PlayTone(E,60);Wait(65);
             PlayTone(D,30);Wait(35);
             PlayTone(E,30);Wait(35);
             PlayTone(F,60);Wait(65);
             PlayTone(E,60);Wait(105);
             PlayTone(A,60);Wait(65);
             PlayTone(G,30);Wait(35);
             
             PlayTone(C,30);Wait(35);
             PlayTone(D,30);Wait(35);
             PlayTone(E,60);Wait(65);
             PlayTone(E,60);Wait(65);
             PlayTone(D,30);Wait(35);
             PlayTone(C,30);Wait(35);
             PlayTone(Bl,60);Wait(65);
             PlayTone(C,60);Wait(65);
             PlayTone(Bl,30);Wait(35);
             PlayTone(Al,60);Wait(65);
             PlayTone(Bl,30);Wait(35);
             PlayTone(C,30);Wait(35);
             PlayTone(G,300);Wait(305);
            }
           }
  task main()         
{  
  start play_music ; 

}


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-02-15 (火) 17:50:11 (5300d)