2005/C2/あんずの履歴差分(No.7)

追加された行はこの色です。
削除された行はこの色です。
[[2005/C2]]
*五角形に動くキャタピラロボット [#z24f6e92]
 task main()
 {
     OnFwd(OUT_A);
     OnFwd(OUT_C);
     Wait(150);
     repeat(4){
     OnRev(OUT_C);
     Wait(80);
     OnFwd(OUT_C);
     Wait(150);
     }
     Off(OUT_A+OUT_C);
 }

-何秒回転させるかを決めるのが大変だった。
-repeat使って簡単に見やすく作ってみました☆

*「左」を書くロボット [#hb83aa02]
*「左」を書くロボット [#kadai1]
 task main()
 {
     OnFwd(OUT_A+OUT_C);          //1画目
     Wait(100);
     OnFwd(OUT_B);                //ペン上げ
     Wait(50);
     Off(OUT_A+OUT_B+OUT_C);
     Wait(200);
     
     OnRev(OUT_A);                
     Wait(130);
     OnRev(OUT_B);                //ペン下げ
     OnRev(OUT_A+OUT_C);          //2画目
     Wait(150);
     OnFwd(OUT_B);
     Wait(50);
     Off(OUT_A+OUT_B+OUT_C);
     Wait(200);
     
     OnFwd(OUT_A+OUT_C);
     Wait(200);
     OnRev(OUT_A);
     Wait(108);
     OnRev(OUT_A+OUT_C);
     Wait(75);
     OnRev(OUT_B);
     OnRev(OUT_A+OUT_C);           //3画目
     Wait(90);
     OnFwd(OUT_B);
     Wait(50);
     Off(OUT_A+OUT_B+OUT_C);
     Wait(200);
     
     OnFwd(OUT_A+OUT_C);
     Wait(180);
     OnRev(OUT_A);
     Wait(85);
     OnRev(OUT_A+OUT_C);
     Wait(85);
     OnFwd(OUT_A+OUT_C);           //4画目
     OnRev(OUT_B);
     Wait(55);
     OnFwd(OUT_B);
     Wait(50);
     Off(OUT_A+OUT_B+OUT_C);
     Wait(200);
 
     OnFwd(OUT_A);
     OnRev(OUT_C);
     Wait(90);
     OnRev(OUT_A+OUT_C);
     Wait(15);
     OnRev(OUT_B);
     OnRev(OUT_A+OUT_C);            //5画目
     Wait(120);
     Off(OUT_A+OUT_B+OUT_C);
 }   
-３画目からが難しかった。
-予想以上に思いどおりに動いてくれなくて苦労した。

*センサを使って机の周りを動くキャタピラロボット [#y5cabf7b]
*センサを使って机の周りを動くキャタピラロボット [#kadai2]
 task main()
 {
     SetSensor(SENSOR_1,SENSOR_TOUCH);
     SetSensor(SENSOR_3,SENSOR_TOUCH);
     
     while(true)
     {
         if(SENSOR_3 == 1)
 	{
 	    OnFwd(OUT_A+OUT_C);
 	} else {
 	    Off(OUT_C);
 	    OnFwd(OUT_A);
 	}
 	
 	if(SENSOR_1 == 1)
 	{
 	OnRev(OUT_A);
 	OnFwd(OUT_C);  Wait(170);
 	}
    }
    
    Off(OUT_A+OUT_C);
 }

コメントをお願いします
-サブルーチンや関数を使ってみましょう。 -- [[松本(教員)]] &new{2005-11-11 (金) 22:59:48};

#comment
2005/C2/あんず の履歴差分(No.7)
