2004/B1/28班練習問題/台から落ちないロボット
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
[[2004/B1/28班練習問題]]
*台から落ちないロボット [#l8bf118d]
task main()
{
SetSensor(SENSOR_1, SENSOR_TOUCH); //タッチセンサーの設定
SetSensor(SENSOR_3, SENSOR_TOUCH);
while(true)
{
OnFwd(OUT_A+OUT_C) ;
until (SENSOR_1 || SENSOR_3 == 1) ; //どちらかのセンサーが反応するまで直進
{
if (SENSOR_1 == 1) //右センサーが反応した場合
{
OnRev(OUT_A+OUT_C) ; Wait(50); //後退
OnFwd(OUT_A) ; Wait(150); //左回転
OnFwd(OUT_A+OUT_C) ; //前進
}
if (SENSOR_3 == 1) //左センサーが反応した場合
{
OnRev(OUT_A+OUT_C) ; Wait(50); //後退
OnFwd(OUT_C) ; Wait(150); //右回転
OnFwd(OUT_A+OUT_C) ; //前進
}
}
}
}
小さな箱の上で動かすと、よりたのしい。
終了行:
[[2004/B1/28班練習問題]]
*台から落ちないロボット [#l8bf118d]
task main()
{
SetSensor(SENSOR_1, SENSOR_TOUCH); //タッチセンサーの設定
SetSensor(SENSOR_3, SENSOR_TOUCH);
while(true)
{
OnFwd(OUT_A+OUT_C) ;
until (SENSOR_1 || SENSOR_3 == 1) ; //どちらかのセンサーが反応するまで直進
{
if (SENSOR_1 == 1) //右センサーが反応した場合
{
OnRev(OUT_A+OUT_C) ; Wait(50); //後退
OnFwd(OUT_A) ; Wait(150); //左回転
OnFwd(OUT_A+OUT_C) ; //前進
}
if (SENSOR_3 == 1) //左センサーが反応した場合
{
OnRev(OUT_A+OUT_C) ; Wait(50); //後退
OnFwd(OUT_C) ; Wait(150); //右回転
OnFwd(OUT_A+OUT_C) ; //前進
}
}
}
}
小さな箱の上で動かすと、よりたのしい。
ページ名: