#contents
*課題 [#j45ab55a]
今までに住んだことのある2文字以上の地名(旧地名でも可)を書く。
*ロボットの説明 [#v4494ce6]

#ref(Image_6c86f6f.jpg)
向かって左側にペンをつける。
**台車 [#s43b57fd]
**紙に対してペンを横移動させる [#t10042a4]
**ペンの上下 [#m3936cce]
*プログラムと説明 [#hb4b45f4]
 #define PEN_UP OnFwd(OUT_B);Wait(10);Off(OUT_B);//ペンを上げる
 #define PEN_DOWN OnRev(OUT_B);Wait(10);Off(OUT_B);//ペンを下げる。
 sub lengthways() //縦方向に書く
 {
     PEN_DOWN;
     OnFwd(OUT_C);
     Wait(40);
     Off(OUT_C);
     PEN_UP;
 }

 sub lengthways_half_reverse()//縦半分を書く
 {
     OnRev(OUT_C);
     Wait(20);
     Off(OUT_C);
 }
 sub lengthways_reverse()//縦逆向きに書く
 {
     PEN_DOWN;
     OnRev(OUT_C);
     Wait(40);
     Off(OUT_C);
     PEN_UP;
 }

 sub sideways()//横方向に書く
 {
     PEN_DOWN;
     OnFwd(OUT_A);
     Wait(10);
     Off(OUT_A);
     PEN_UP;
 }

 sub sideways_half()//横半分を書く
 {
     OnFwd(OUT_A);
     Wait(6);
     Off(OUT_A);
 }
 sub sideways_reverse()//横逆向きに書く
 {
     PEN_DOWN;
     OnRev(OUT_A);
     Wait(10);
     Off(OUT_A);
     PEN_UP;
 }

 task main()
 {
     sideways();//「井」1画目
     OnFwd(OUT_C);//下
     Wait(20);//伸ばした
     Off(OUT_C);
     sideways_reverse();//2画目を横逆向きに書く
     OnRev(OUT_C);//縦左側の準備
     Wait(25);
     Off(OUT_C);
     OnFwd(OUT_A);
     Wait();
     Off(OUT_A);
     lengthways();//3画目の縦左側を書く
     OnRev(OUT_C);
     Wait(5);
     Off(OUT_C);
     lengthways_reverse();//4画目縦逆向きに書き「井」完成
     OnRev(OUT_A);
     Wait(15);
     Off(OUT_A);
     OnFwd(OUT_C);
     Wait(100);
     Off(OUT_C);//田の左端上に来た
     lengthways();//
     sideways_half();
     lengthways_reverse();
     sideways_half();
     lengthways();
     sideways_reverse();
     lengthways_half_reverse();
     sideways();
     lengthways_half_reverse();
     sideways_reverse();
 }

*まとめ [#p3e1728a]



トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS