2004/B1/28班練習問題

演奏ロボット

#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define So 784
#define Ra 880
#define Si 988

task play_music1()
{
   while (true)
   {
       PlayTone(Do,20); Wait(25);
       PlayTone(Re,20); Wait(25);  
       PlayTone(Mi,20); Wait(25); 
       PlayTone(Fa,20); Wait(25);
       PlayTone(Mi,20); Wait(25);  
       PlayTone(Re,20); Wait(25);
       PlayTone(Do,20); Wait(45);

       PlayTone(Mi,20); Wait(25);
       PlayTone(Fa,20); Wait(25);
       PlayTone(So,20); Wait(25);
       PlayTone(Ra,20); Wait(25);
       PlayTone(So,20); Wait(25);
       PlayTone(Fa,20); Wait(25);
       PlayTone(Mi,20); Wait(45);

       PlayTone(Do,20); Wait(45);
       PlayTone(Do,20); Wait(45);
       PlayTone(Do,20); Wait(45);
       PlayTone(Do,20); Wait(45);

       PlayTone(Do,10); Wait(15);  
       PlayTone(Do,10); Wait(15); 
       PlayTone(Re,10); Wait(15);
       PlayTone(Re,10); Wait(15);  
       PlayTone(Mi,10); Wait(15);
       PlayTone(Mi,10); Wait(15);
       PlayTone(Fa,10); Wait(15);
       PlayTone(Fa,10); Wait(15);
       PlayTone(Mi,20); Wait(25);
       PlayTone(Re,20); Wait(25);
       PlayTone(Do,20); Wait(25);
   }
}

task play_music2()
{
   while (true)
   {
       PlayTone(Do,20); Wait(25);
       PlayTone(Re,20); Wait(25);  
       PlayTone(Mi,20); Wait(45);

       PlayTone(Do,20); Wait(25);
       PlayTone(Re,20); Wait(25);  
       PlayTone(Mi,20); Wait(45);

       PlayTone(So,20); Wait(25);
       PlayTone(Mi,20); Wait(25);
       PlayTone(Re,20); Wait(25);
       PlayTone(Do,20); Wait(25);
       PlayTone(Re,20); Wait(25);
       PlayTone(Mi,20); Wait(25);
       PlayTone(Re,20); Wait(45);

       PlayTone(Do,20); Wait(25);
       PlayTone(Re,20); Wait(25);  
       PlayTone(Mi,20); Wait(45);

       PlayTone(Do,20); Wait(25);
       PlayTone(Re,20); Wait(25);  
       PlayTone(Mi,20); Wait(45);

       PlayTone(So,20); Wait(25);
       PlayTone(Mi,20); Wait(25);
       PlayTone(Re,20); Wait(25);
       PlayTone(Do,20); Wait(25);
       PlayTone(Re,20); Wait(25);
       PlayTone(Mi,20); Wait(25);
       PlayTone(Do,20); Wait(45);
   }
}

task main()
{
  SetSensor(SENSOR_1, SENSOR_TOUCH);
  while(true)
    {
      start play_music1;    
      OnFwd(OUT_A);   
      until (SENSOR_1==1);
      if (SENSOR_1==1);
      stop play_music1;
      start play_music2; 
      OnRev(OUT_A);
      Wait(350);
    }
}

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