2004/A4/11班

#define Do  523
#define Re  587
#define Mi  659
#define Fa  698
#define Sol 784
#define Ra  880
#define Ti  988


task play_music()   
{
   while (true)
   {
       PlayTone(Sol,30); Wait(40);  
       PlayTone(Fa,30); Wait(40);  
       PlayTone(Mi,40); Wait(50);   
      
       PlayTone(Re,15); Wait(20);
       PlayTone(Mi,15); Wait(20);
       PlayTone(Fa,15); Wait(20);
       PlayTone(Re,15); Wait(20);
       PlayTone(Do,40); Wait(40);
       
       PlayTone(Mi,15); Wait(20);
       PlayTone(Fa,15); Wait(20);
       PlayTone(Sol,15); Wait(20);
       PlayTone(Mi,15); Wait(20);
       
       PlayTone(Re,15); Wait(20);
       PlayTone(Mi,15); Wait(20);
       PlayTone(Fa,15); Wait(20);
       PlayTone(Re,15); Wait(20);
       
       PlayTone(Mi,15); Wait(20);
       PlayTone(Fa,15); Wait(20);
       PlayTone(Sol,15); Wait(20);
       PlayTone(Mi,15); Wait(20);
       
       PlayTone(Re,15); Wait(20);
       PlayTone(Mi,15); Wait(20);
       PlayTone(Fa,15); Wait(20);
       PlayTone(Re,15); Wait(20);
       
       Wait(20);
   }
}

task main()
{
   SetSensor(SENSOR_1, SENSOR_TOUCH);

   start play_music ;    
   OnFwd(OUT_A+OUT_B);   

   until (SENSOR_1 == 1);
   stop play_music ;   
   Off(OUT_A+OUT_B);  
}

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2004-12-24 (金) 16:00:50