2005/A4/課題5

サッカーのテーマソング

#define Do 523

#define Re 587

#define Mi 659

#define Fa 698

#define Sol 392

task main() {

       while (true)
   {
       PlayTone(Sol,60); Wait(10);
       PlayTone(Do,180); 
       PlayTone(Re,20); 
       PlayTone(Sol,20); 
       PlayTone(Re,20);
      
       PlayTone(Mi,180); 
       Wait(60);
       PlayTone(Mi,20); 
       PlayTone(Fa,20); 
       PlayTone(Re,20);
       PlayTone(Mi,60);
       Wait(30);
       PlayTone(Re,30); 
       PlayTone(Do,60);      
       Wait(60);
       PlayTone(Re,30); 
       PlayTone(Mi,30); 
       PlayTone(Mi,45); 
       PlayTone(Re,15); 
       PlayTone(Do,60); 
       PlayTone(Re,30); Wait(20);
       PlayTone(Mi,30); Wait(10);
       PlayTone(Mi,60); Wait(10);
       PlayTone(Re,30); Wait(20);
       PlayTone(Mi,30); Wait(10);
       PlayTone(Mi,60); Wait(10);
       PlayTone(Re,20); 
       PlayTone(Mi,20); 
       PlayTone(Re,20); 
       PlayTone(Do,180); 
       Wait(20);
   }

}


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