2005/A6/課題1/一班/KRRの部屋 の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• 2005/A6/課題1/一班/KRRの部屋 へ行く。
• 2005/A6/課題1/一班/KRRの部屋 の差分を削除

[[2005/A6/KRRの軌跡3]]
  
*11月10日のKRRの部屋にようこそ [#i9b0483c]
**『「左」書く漢字ロボ.3人の中で、一番べタなプログラミング』 [#dee91228]

　**補助のプログラム
 
 **void turn_left(int x)　//左に曲がるプログラム

　｛
    OnRev(OUT_A); OnFwd(OUT_C);
    Wait(x);
    Off(OUT_A+OUT_C);
　｝


　**void turn_right(int y)　//右に曲がるプログラム


　｛
    OnFwd(OUT_A); OnRev(OUT_C);
    Wait(y);
    Off(OUT_A+OUT_C);
　｝

　**メインコマンド

　task main()         // 

　｛
   OnFwd(OUT_A+OUT_C);  //一画目、右上がり
   Wait(350);
   OnFwd(OUT_B);  //Bの正回転で、筆を上げる
   Wait(20);
   OnRev(OUT_A+OUT_C); //後ろに下がる
   Wait(250);
   turn_right(159);
   OnFwd(OUT_C);
   Wait(150);
   OnRev(OUT_A);
   Wait(150);
   turn_right(428);
   OnRev(OUT_B);  // Bを負回転で、筆を下げる
   Wait(20);
   OnFwd(OUT_A+OUT_C); // 2画目
   Wait(300);
   OnFwd(OUT_A);　//Ａドライブ直下のタイヤを進める
   Wait(50);　
   OnRev(OUT_C);　//Ｃドライブ直下のタイヤを後退
   Wait(35);
   turn_right(578); //右に曲がる（）のなかは角度の調整
   OnRev(OUT_A+OUT_C); //3画目
   Wait(150);
   turn_right(87);　//右に曲がる（）のなかは角度の調整
   OnFwd(OUT_B);   //Bの正回転で、筆を上げる
   Wait(20);
   OnFwd(OUT_A+OUT_C);　//Ａ，Ｃドライブ直下のタイヤを前進
   Wait(200);
   OnRev(OUT_B);  // Bを負回転で、筆を下げる
   Wait(20);
   OnRev(OUT_A+OUT_C);//Ａ，Ｃドライブ直下のタイヤを後退
   Wait(100);
   turn_left(139);　//左に曲がる（）のなかは角度の調整
   OnFwd(OUT_A+OUT_C);  //4画目
   Wait(150);
   OnFwd(OUT_B);   //Bの正回転で、筆を上げる
   Wait(20);
   turn_left(139);　　//左に曲がる（）のなかは角度の調整
   OnFwd(OUT_A+OUT_C);　//Ａ，Ｃドライブ直下のタイヤを前進
   Wait(150);
   OnRev(OUT_B) ;   // Bを負回転で、筆を下げる
   Wait(20);
   OnRev(OUT_A+OUT_C);  //5画目、Ａ，Ｃのタイヤ後退
   Wait(300);
   Off(OUT_A+OUT_B+OUT_C);//停止

　｝

 
　**（感想）
　「今回は三人の中であまり工夫がみられないプログラミングだった気がします。またもっと滑らかに『ノ』ができたら、良かったと動かせて見て思いました。」