2005/B4/課題2
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
[[2005/B4]]
*机の周りを元気に走り回るレゴ [#pae8528f]
//作成者 B4/R オシム監督&きょうすけ
//作成日 2005、11、22
task main ()
{
SetSensor(SENSOR_3,SENSOR_TOUCH);
SetSensor(SENSOR_1,SENSOR_TOUCH);
OnFwd(OUT_A+OUT_C);
while(true)
{
if((SENSOR_1 ==1)&&(SENSOR_3 == 1)) //正面から壁にぶつかったら、バックしてから回転
{
OnRev(OUT_A+OUT_C); Wait(40);
OnFwd(OUT_C); Wait(130);
OnFwd(OUT_A);
}
else{if(SENSOR_3 == 0) //右側のみ壁の時、直進
{
Off(OUT_C);
OnFwd(OUT_A);
until(SENSOR_3 == 1);
OnFwd(OUT_A+OUT_C);
}
}
}
}
終了行:
[[2005/B4]]
*机の周りを元気に走り回るレゴ [#pae8528f]
//作成者 B4/R オシム監督&きょうすけ
//作成日 2005、11、22
task main ()
{
SetSensor(SENSOR_3,SENSOR_TOUCH);
SetSensor(SENSOR_1,SENSOR_TOUCH);
OnFwd(OUT_A+OUT_C);
while(true)
{
if((SENSOR_1 ==1)&&(SENSOR_3 == 1)) //正面から壁にぶつかったら、バックしてから回転
{
OnRev(OUT_A+OUT_C); Wait(40);
OnFwd(OUT_C); Wait(130);
OnFwd(OUT_A);
}
else{if(SENSOR_3 == 0) //右側のみ壁の時、直進
{
Off(OUT_C);
OnFwd(OUT_A);
until(SENSOR_3 == 1);
OnFwd(OUT_A+OUT_C);
}
}
}
}
ページ名: