右という文字を書き順通りに書くロボットを製作しました。書き順通りというのがポイントでなかなか苦労しました。下はそのプログラムです。

       task main()
       {OnFwd(OUT_B); Wait(20); Off(OUT_B);
	OnFwd(OUT_A+OUT_C);
	Wait(56);
	Off(OUT_A+OUT_C);
	OnRev(OUT_B); Wait(20); Off(OUT_B);
	OnFwd(OUT_A+OUT_C);
	Wait(14);
	OnFwd(OUT_A); OnRev(OUT_C);
	Wait(90);
	Off(OUT_A+OUT_C);
	OnRev(OUT_A+OUT_C);
	Wait(14);
	OnFwd(OUT_B); Wait(20); Off(OUT_B);
	OnFwd(OUT_A+OUT_C);
	Wait(75);
	Off(OUT_A+OUT_C);
	OnRev(OUT_B); Wait(20); Off(OUT_B);
	OnFwd(OUT_A+OUT_C);
	Wait(32);
	Off(OUT_A+OUT_C);
	OnRev(OUT_A); OnFwd(OUT_C);
	Wait(90);
	Off(OUT_A+OUT_C);
	OnRev(OUT_A+OUT_C);
	Wait(72);	
	Off(OUT_A+OUT_C);
	OnFwd(OUT_B); Wait(20); Off(OUT_B);
	OnFwd(OUT_A+OUT_C);
	Wait(56);
	Off(OUT_A+OUT_C);
	OnRev(OUT_B); Wait(20); Off(OUT_B);
	OnFwd(OUT_A+OUT_C);
	Wait(28);
	Off(OUT_A+OUT_C);
	OnRev(OUT_A); OnFwd(OUT_C);
	Wait(90);
	Off(OUT_A+OUT_C);
	OnFwd(OUT_B); Wait(20); Off(OUT_B);
	OnRev(OUT_A+OUT_C);
	Wait(75);
	Off(OUT_A+OUT_C);
	OnRev(OUT_B); Wait(20); Off(OUT_B);}
  • プログラムにコメントをいれたり、関数やマクロを使ってわかりやすい物を目指そう。 -- まいける(TA) 2005-12-02 (金) 17:02:28


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-12-02 (金) 17:02:28