2005/B5/Dezz02
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
//作成日：11月9日
//作成者：Dezz
#define turn_TIME 104 //回転時間(変更可能)
sub turn_left() //左
{
OnRev(OUT_A);OnFwd(OUT_C);
Wait(turn_TIME);Off(OUT_A+OUT_C);Wait(50);
}
sub turn_right() //右
{
OnFwd(OUT_A);OnRev(OUT_C);
Wait(turn_TIME);Off(OUT_A+OUT_C);Wait(50);
}
sub Lgo_straight() //Long直線
{
OnFwd(OUT_A);OnFwd(OUT_C);
Wait(80);Off(OUT_A+OUT_C);Wait(50);
}
sub Sgo_straight() //Short直線
{
OnFwd(OUT_A);OnFwd(OUT_C);
Wait(60);Off(OUT_A+OUT_C);Wait(50);
}
sub up() //上げ
{
OnRev(OUT_B);
Wait(10);Off(OUT_B);Wait(50);
}
sub down() //下げ
{
OnFwd(OUT_B);
Wait(15);Off(OUT_B);Wait(50); //下げる時間を上げる時間より長く
} //することで確実に地面につく
task main()
{
up(); //ペンを取り込む
down(); //ペンを降ろす
SetPower(OUT_A,7); //パワーを変更
OnFwd(OUT_A);
SetPower(OUT_C,0); //パワーを変更
OnFwd(OUT_C);
Wait(180);
Off(OUT_A+OUT_C);Wait(50);up();//曲線を描く
SetPower(OUT_A,7); //パワーを戻す
SetPower(OUT_C,7); //パワーを戻す
OnFwd(OUT_A);OnRev(OUT_C);
Wait(180);Off(OUT_A+OUT_C);
OnFwd(OUT_A);OnFwd(OUT_C);Wait(100);Off(OUT_A+OUT_C);
turn_right();
down();
OnFwd(OUT_A);OnFwd(OUT_C);Wait(150);Off(OUT_A+OUT_C);
up();
turn_right();
OnFwd(OUT_A);OnFwd(OUT_C);Wait(50);Off(OUT_A+OUT_C);
turn_right();
OnFwd(OUT_A);OnFwd(OUT_C);
Wait(120);Off(OUT_A+OUT_C);Wait(50);
turn_left();
OnRev(OUT_A);OnRev(OUT_C); //微調整
Wait(10);Off(OUT_A+OUT_C);
down();Sgo_straight();up();
OnRev(OUT_A);OnRev(OUT_C);Wait(60);
Off(OUT_A+OUT_C);Wait(50);
turn_left();
down();
Lgo_straight();turn_right();Sgo_straight();
up();
turn_right();Lgo_straight();
down();
OnRev(OUT_A);OnRev(OUT_C);Wait(80);Off(OUT_A+OUT_C);
up();
}
[[戻る>2005/B5/dezz01]]
コメントをどうぞ
-少し面倒かもしれませんが、プログラム中の空行にも、行頭に空白を入れておくとwikiで表示した際に見やすくなります。 -- [[松本(教員)]] &new{2005-11-11 (金) 23:05:58};
-改良しました -- [[Dezz]] &new{2005-11-14 (月) 16:48:04};
#comment
終了行:
//作成日：11月9日
//作成者：Dezz
#define turn_TIME 104 //回転時間(変更可能)
sub turn_left() //左
{
OnRev(OUT_A);OnFwd(OUT_C);
Wait(turn_TIME);Off(OUT_A+OUT_C);Wait(50);
}
sub turn_right() //右
{
OnFwd(OUT_A);OnRev(OUT_C);
Wait(turn_TIME);Off(OUT_A+OUT_C);Wait(50);
}
sub Lgo_straight() //Long直線
{
OnFwd(OUT_A);OnFwd(OUT_C);
Wait(80);Off(OUT_A+OUT_C);Wait(50);
}
sub Sgo_straight() //Short直線
{
OnFwd(OUT_A);OnFwd(OUT_C);
Wait(60);Off(OUT_A+OUT_C);Wait(50);
}
sub up() //上げ
{
OnRev(OUT_B);
Wait(10);Off(OUT_B);Wait(50);
}
sub down() //下げ
{
OnFwd(OUT_B);
Wait(15);Off(OUT_B);Wait(50); //下げる時間を上げる時間より長く
} //することで確実に地面につく
task main()
{
up(); //ペンを取り込む
down(); //ペンを降ろす
SetPower(OUT_A,7); //パワーを変更
OnFwd(OUT_A);
SetPower(OUT_C,0); //パワーを変更
OnFwd(OUT_C);
Wait(180);
Off(OUT_A+OUT_C);Wait(50);up();//曲線を描く
SetPower(OUT_A,7); //パワーを戻す
SetPower(OUT_C,7); //パワーを戻す
OnFwd(OUT_A);OnRev(OUT_C);
Wait(180);Off(OUT_A+OUT_C);
OnFwd(OUT_A);OnFwd(OUT_C);Wait(100);Off(OUT_A+OUT_C);
turn_right();
down();
OnFwd(OUT_A);OnFwd(OUT_C);Wait(150);Off(OUT_A+OUT_C);
up();
turn_right();
OnFwd(OUT_A);OnFwd(OUT_C);Wait(50);Off(OUT_A+OUT_C);
turn_right();
OnFwd(OUT_A);OnFwd(OUT_C);
Wait(120);Off(OUT_A+OUT_C);Wait(50);
turn_left();
OnRev(OUT_A);OnRev(OUT_C); //微調整
Wait(10);Off(OUT_A+OUT_C);
down();Sgo_straight();up();
OnRev(OUT_A);OnRev(OUT_C);Wait(60);
Off(OUT_A+OUT_C);Wait(50);
turn_left();
down();
Lgo_straight();turn_right();Sgo_straight();
up();
turn_right();Lgo_straight();
down();
OnRev(OUT_A);OnRev(OUT_C);Wait(80);Off(OUT_A+OUT_C);
up();
}
[[戻る>2005/B5/dezz01]]
コメントをどうぞ
-少し面倒かもしれませんが、プログラム中の空行にも、行頭に空白を入れておくとwikiで表示した際に見やすくなります。 -- [[松本(教員)]] &new{2005-11-11 (金) 23:05:58};
-改良しました -- [[Dezz]] &new{2005-11-14 (月) 16:48:04};
#comment
ページ名:
![[PukiWiki]](image/robotics-logo-small.jpg "[PukiWiki]"){kind=logo}
