#define Do 523

#define Re 587

#define Mi 659

#define Fa 698

#define Sol 784

#define La 880

#define one_time 12

#define two_time 24

task play_music () {

   while(true)
   {
        
        SendMessage(1);
        PlayTone(Do,20);wait(one_time);
        PlayTone(Re,20);wait(one_time);
        PlayTone(Mi,20);wait(one_time);
        PlayTone(Fa,20);wait(one_time);
        PlayTone(Mi,20);wait(one_time);
        PlayTone(Re,20);wait(one_time);
        PlayTone(Do,20);wait(one_time);
        
	 wait(5);
	 
	 PlayTone(Mi,20);wait(one_time);
        PlayTone(Fa,20);wait(one_time);
        PlayTone(Sol,20);wait(one_time);
        PlayTone(La,20);wait(one_time);
        PlayTone(Sol,20);wait(one_time);
        PlayTone(Fa,20);wait(one_time);
        PlayTone(Mi,20);wait(one_time);
        
	 wait(5);
	 
	 PlayTone(Do,30);wait(two_time);
        PlayTone(Do,30);wait(two_time);
        PlayTone(Do,30);wait(two_time);
        PlayTone(Do,30);wait(two_time);
        
	 PlayTone(Do,20);wait(one_time);
        PlayTone(Re,20);wait(one_time);
	 PlayTone(Mi,20);wait(one_time);
	 PlayTone(Fa,20);wait(one_time);
	 PlayTone(Mi,20);wait(one_time);
        PlayTone(Re,20);wait(one_time);
        PlayTone(Do,20);wait(one_time);
  
      Wait(1000);
  }	 

}

task main () {

      start play_music ;

}


トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-02-20 (月) 12:36:50