2006a/A1/コマ

2006a/A1

タッチセンサーを使ったプログラム†

task main()
{
 SetSensor(SENSOR_1,SENSOR_TOUCH);
 OnFwd(OUT_A+OUT_C);
 
 while(true)
 {
  if(SENSOR_1==1)
  {
   OnRev(OUT_A+OUT_C);
   Wait(200);
   OnFwd(OUT_A);
   Wait(340);
   OnFwd(OUT_C);
   }
   }
   }

↑

最も明るい方向を向くロボットのプログラム†

 int lightmax=0;
 int timemax=0;
 #define turntime 200
task main()
 {
  SetSensor(SENSOR_1,SENSOR_LIGHT);
  ClearTimer(0);
  
  OnRev(OUT_C);OnFwd(OUT_A);
  
  while(FastTimer(0)<turntime)
  {
   if(SENSOR_1>lightmax)
   { lightmax=SENSOR_1;
     timemax=FastTimer(0); }
     }
      
      OnRev(OUT_A);OnFwd(OUT_C);
      Wait(turntime-timemax);
      Off(OUT_A+OUT_C);
      }

↑

カエルの歌？†

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

task play_music() {

   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(25);

       PlayTone(Mi,20); Wait(25);
       PlayTone(Fa,20); Wait(25);
       PlayTone(Sol,20); Wait(25);
       PlayTone(Ra,20); Wait(25);
       PlayTone(So,20); Wait(25);
       PlayTone(Fa,20); Wait(25);
       PlayTone(Mi,20); Wait(25);
       
       PlayTone(Do,30); Wait(35);
       PlayTone(Do,30); Wait(35);
       PlayTone(Do,30); Wait(35);
       PlayTone(Do,30); Wait(35);
       
       PlayTone(Do,5); Wait(10);
       PlayTone(Do,5); Wait(10);

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

}

タッチセンサーを使ったプログラム†

最も明るい方向を向くロボットのプログラム†

カエルの歌？†

目次

全般

教材・資料

Debian関連

過去の授業

2003年度以前

最新の20件