#contents

*ホイールを投げ出すロボット [#ee405704]
**試作ロボ1 [#h0f1374c]
&ref(2007aA2課題2左/070628_194901_M.jpg,100%,試作ロボ1);
&ref(2007a/A2/課題2左/070628_194901_M.jpg,100%,試作ロボ1);


キャタピラを使ったロボット。全体的にゴツゴツしている。

しかし、重量が重すぎて馬力が足りずにこのロボを断念して軽量化することにした

**工夫した点 [#yeda604e]
***ギア周辺 [#d77916f1]

***ホイールを投げ出す装置1 [#rc6b03e1]

***ホイールを投げ出す装置2 [#hb849563]

***光センサー接続部 [#c6a52a32]

**試作ロボ2 [#v374468a]

*課題のプログラム [#i6879782]
**課題1 [#f8e40288]
 #define THRESHOLD 40
 
 sub throw()
 {
  OnFwd(OUT_A);
  Wait(50);
  Off(OUT_A);
 }
 
 task main ()
 {
     SetSensor(SENSOR_1,SENSOR_LIGHT);
     SetSensor(SENSOR_3,SENSOR_LIGHT);
     repeat(10000){
     while((SENSOR_1 < THRESHOLD) && (SENSOR_3 < THRESHOLD))
     {
      OnFwd(OUT_B);
      Wait(100);
      Off(OUT_B);
     }
      while((SENSOR_1 >= THRESHOLD) && (SENSOR_3 < THRESHOLD))
     {
      OnFwd(OUT_B);
      Wait(100);
      Off(OUT_B);
     }
      while((SENSOR_1 < THRESHOLD) && (SENSOR_3 >= THRESHOLD))
     {
      OnRev(OUT_B);
      Wait(30);
      Off(OUT_B);       
     }
      while((SENSOR_1 >= THRESHOLD) && (SENSOR_3 >= THRESHOLD))
     {
      throw();
      Off(OUT_B);
     }
     }
 }
**課題2 [#wd97a8f1]
 #define THRESHOLD 60
 task main()
 {
  SetSensor(SENSOR_1,SENSOR_LIGHT);
  SetSensor(SENSOR_3,SENSOR_LIGHT);
   while (true)
       {   if((SENSOR_1 > THRESHOLD)&&(SENSOR_3 < THRESHOLD))
            {
              OnFwd(OUT_A);                            
            }
          if((SENSOR_1 < THRESHOLD)&&(SENSOR_3 > THRESHOLD))
            {
              OnRev(OUT_A);                            
            }
          if((SENSOR_1 > THRESHOLD)&&(SENSOR_3 > THRESHOLD))
            {
              OnFwd(OUT_A);
              OnRev(OUT_A);              
            }
       }  
 }
**課題3 [#cb60b0c8]


コメントをどうぞ
#comment


トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS