自分の住んでいた地域の名前で2文字以上、12画以上の漢字をA4用紙に書く。
比較的書きやすい「信州」にしました。 イの斜めの部分は横にします。また、本来の書き順とは違う書き方にしました。↓
プログラミングのことを考慮してX軸、Y軸型のロボットを作成しました。
全体像斜め上から↑
真上から↑
define pen_down OnFwd(OUT_C,8);Wait(1000);Off(OUT_C); ペンを下げる
#define pen_up OnRev(OUT_C,8);Wait(1000);Off(OUT_C); ペンを上げる
task main() {
信1画目
pen_down; OnFwd(OUT_B,50); Wait(200); pen_up; OnRev(OUT_B,50); Wait(100);
信2画目
pen_down; OnFwd(OUT_A,50); Wait(500); pen_up; OnRev(OUT_A,50); Wait(600); OnFwd(OUT_B,50); Wait(200);
信3画目
pen_down; OnFwd(OUT_B,50); Wait(150); pen_up; OnFwd(OUT_B,50); Wait(50); OnFwd(OUT_A,50); Wait(100);
信4画目
pen_down; OnRev(OUT_B,50); Wait(250); pen_up; OnFwd(OUT_A,50); Wait(75); OnFwd(OUT_B,50); Wait(50);
信5画目
pen_down; OnFwd(OUT_B,50); Wait(150); pen_up; OnFwd(OUT_A,50); Wait(75);
信6画目
pen_down; OnRev(OUT_B,50); Wait(150); pen_up; OnRev(OUT_B,50); Wait(50); OnFwd(OUT_A,50); Wait(75);
信の口の部分
pen_down; OnFwd(OUT_B,50); Wait(250); OnFwd(OUT_A,50); Wait(250); OnRev(OUT_B,50); Wait(250); OnRev(OUT_A,50); Wait(250); pen_up;
信完成
OnFwd(OUT_A,50); Wait(550); OnRev(OUT_B,50); Wait(250);
州1画目
pen_down; OnFwd(OUT_A,50); Wait(200); pen_up; OnRev(OUT_A,50); Wait(400); OnFwd(OUT_B,50); Wait(100);
州2画目
pen_down; OnFwd(OUT_A,50); Wait(600); pen_up; OnFwd(OUT_B,50); Wait(100); OnRev(OUT_A,50); Wait(200);
州3画目
pen_down; OnRev(OUT_A,50); Wait(200); pen_up; OnRev(OUT_A,50); Wait(200); OnFwd(OUT_B,50); Wait(100);
州4画目
pen_down; OnFwd(OUT_A,50); Wait(600); pen_up; OnFwd(OUT_B,50); Wait(100) OnRev(OUT_A,50); Wait(200);
州5画目
pen_down; OnRev(OUT_A,50); Wait(200); pen_up; OnRev(OUT_A,50); Wait(200); OnFwd(OUT_B,50); Wait(100);
州6画目
pen_down; OnFwd(OUT_A,50); Wait(600);
州完成
}
ペンの上げ下げは何度もするので先に定義して無駄を省きました。州の文字は同じ動作を繰り返すのでプログラミングは信に比べ、かなり簡単でした。
初めてのロボットづくりでどのようなプログラミングをつくるのか、そもそも、どうやって打ち込むのかも分からない状態での試みでとても苦労しました。一度片づけてしまうと次に使うときに、もう一度組み立てなければならず、いつも若干違う形になってしまいました。また、ロボットの重さで何度も土台の部分が壊れてしまい、その度に心が折れかけました。今回は、ロボット自体は早めに仕上がりましたが、プログラミングが中々できず、当初決めていた漢字とは別にしたり、漢字を簡易化したりして工夫しながらも、提出期限ギリギリになってしまい、とても焦りました。