2004/B1/28班練習問題/演奏

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);
    }
}
演奏ロボット†

目次

全般

教材・資料

Debian関連

過去の授業

2003年度以前

最新の20件
