[[2004/A2/練習問題]

ver.1

#define Do 523

#define Re 587

#define Mi 659

#define Fa 698

#define Sol 784

task play_music() {

   while (true)
   {
       PlayTone(Mi,25); Wait(30);  
       PlayTone(Re, 5); Wait(10);  
       PlayTone(Do,15); Wait(20);  
       PlayTone(Re,15); Wait(20);
       PlayTone(Mi,15); Wait(20);
       PlayTone(Mi,15); Wait(20);
       PlayTone(Mi,35); Wait(40);
       PlayTone(Re,15); Wait(20);
       PlayTone(Re,15); Wait(20);
       PlayTone(Re,35); Wait(40);
       PlayTone(Mi,15); Wait(20);
       PlayTone(Sol,15); Wait(20);
       PlayTone(Sol,35); Wait(40);
       PlayTone(Mi,25); Wait(30);
       PlayTone(Re, 5); Wait(10);
       PlayTone(Do,15); Wait(20);
       PlayTone(Re,15); Wait(20);
       PlayTone(Mi,15); Wait(20);
       PlayTone(Mi,15); Wait(20);
       PlayTone(Mi,35); Wait(40);
       PlayTone(Re,15); Wait(20);
       PlayTone(Re,15); Wait(20);
       PlayTone(Mi,25); Wait(30);
       PlayTone(Re, 5); Wait(10);
       PlayTone(Do,55); Wait(60);
       Wait(20);
   }

}

task main() {

   SetSensor(SENSOR_1, SENSOR_TOUCH);
   while(true)
  {
   start play_music ;    
   OnFwd(OUT_B);   
   until (SENSOR_1 == 1);
   stop play_music;
   PlaySound(SOUND_DOUBLE_BEEP);
   OnRev(OUT_B);
   Wait(300);}

}


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-01-07 (金) 14:39:42