2005/A6/課題1/一班/KRRの軌跡
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
*11月10日のKRRの部屋にようこそ [#b4db8624]
**『「左」書く漢字ロボ.3人の中で、一番べタなプログラミング』 [#k10f4704]
**補助のプログラム
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); //Aドライブ直下のタイヤを進める
Wait(50);
OnRev(OUT_C); //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); //A,Cドライブ直下のタイヤを前進
Wait(200);
OnRev(OUT_B); // Bを負回転で、筆を下げる
Wait(20);
OnRev(OUT_A+OUT_C);//A,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); //A,Cドライブ直下のタイヤを前進
Wait(150);
OnRev(OUT_B) ; // Bを負回転で、筆を下げる
Wait(20);
OnRev(OUT_A+OUT_C); //5画目、A,Cのタイヤ後退
Wait(300);
Off(OUT_A+OUT_B+OUT_C);//停止
}
**(感想)
「今回は三人の中であまり工夫がみられないプログラミングだった気がします。またもっと滑らかに『ノ』ができたら、良かったと動かせて見て思いました。」
-少し面倒ですが、プログラムの空行の先頭にも空白を入れておくと pukiwiki で表示したときに見やすくなります。 -- [[松本(教員)]] &new{2005-11-18 (金) 10:09:47};
#comment
終了行:
*11月10日のKRRの部屋にようこそ [#b4db8624]
**『「左」書く漢字ロボ.3人の中で、一番べタなプログラミング』 [#k10f4704]
**補助のプログラム
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); //Aドライブ直下のタイヤを進める
Wait(50);
OnRev(OUT_C); //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); //A,Cドライブ直下のタイヤを前進
Wait(200);
OnRev(OUT_B); // Bを負回転で、筆を下げる
Wait(20);
OnRev(OUT_A+OUT_C);//A,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); //A,Cドライブ直下のタイヤを前進
Wait(150);
OnRev(OUT_B) ; // Bを負回転で、筆を下げる
Wait(20);
OnRev(OUT_A+OUT_C); //5画目、A,Cのタイヤ後退
Wait(300);
Off(OUT_A+OUT_B+OUT_C);//停止
}
**(感想)
「今回は三人の中であまり工夫がみられないプログラミングだった気がします。またもっと滑らかに『ノ』ができたら、良かったと動かせて見て思いました。」
-少し面倒ですが、プログラムの空行の先頭にも空白を入れておくと pukiwiki で表示したときに見やすくなります。 -- [[松本(教員)]] &new{2005-11-18 (金) 10:09:47};
#comment
ページ名: