2005/A5/学習ノート Marbled Rockfish/ラインをトレースするプログラム『鬼ごっこ』 の履歴ソース(No.4)

• 履歴一覧
• 2005/A5/学習ノート Marbled Rockfish/ラインをトレースするプログラム『鬼ごっこ』 は削除されています。
  • 1 (2005-11-19 (土) 20:11:02)
  • 2 (2005-11-19 (土) 20:36:20)
  • 3 (2005-11-20 (日) 07:03:59)
  • 4 (2005-11-21 (月) 09:29:24)
  • 5 (2005-11-25 (金) 09:34:15)
  • 6 (2005-11-25 (金) 13:08:36)
  • 7 (2005-12-01 (木) 09:20:22)

*&color(red){現在製作中！！}; [#gbd128a3]

***[[学習ノート Marbled Rockfish>2005/A5/学習ノート Marbled Rockfish]] [#p6425e03]

*ラインをトレースするプログラム『鬼ごっこ』 [#ua688a78]
 作成者:Marbled Rockfish

**ラインをトレースしながら前進し（追いかけ）、前後のタッチセンサーにぶつかったら（捕まえたら）反転し、またトレースしながら前進するプログラムです。 [#he7f897c]

 #define go_straight OnFwd(OUT_A+OUT_C);
 #define turn_right SetPower(OUT_C,1);OnFwd(OUT_A);OnRev(OUT_C);
 #define turn_left SetPower(OUT_A,1);OnFwd(OUT_C);OnRev(OUT_A);
 
 task main ()
 {
     SetPower(OUT_A,0);
     SetPower(OUT_C,0);
     SetSensor(SENSOR_1, SENSOR_LIGHT);
     SetSensor(SENSOR_2, SENSOR_TOUCH);
     SetSensor(SENSOR_3, SENSOR_LIGHT);
 
     while (true)
     {
         if (SENSOR_2>=1)
            {
             Off(OUT_A+OUT_C);Wait(100);
             turn_right;Wait(130);
            }
         if (SENSOR_1<40)
            {turn_left;}
         if (SENSOR_3<40)
            {turn_right;}
         if ((SENSOR_1>40)&&(SENSOR_3>40))
            {go_straight;}
         if ((SENSOR_1<40)&&(SENSOR_3<40))
            {
            Off(OUT_A+OUT_C);Wait(100);
            go_straight;Wait(40);
           }
    }
 }