2004/B2/台から落ちないロボット
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
[[2004/B2/練習問題]]
台から落ちない!
task main()
{ SetSensor(SENSOR_1,SENSOR_TOUCH);//タッチセンサーの設定
SetSensor(SENSOR_3,SENSOR_TOUCH);
while(true)
{OnFwd(OUT_A+OUT_C);//前進
if(SENSOR_1==1)//タッチセンサー1が反応した場合
{OnRev(OUT_A+OUT_C);Wait(50);//後退
OnFwd(OUT_A);OnRev(OUT_C);Wait(200);回転
OnFwd(OUT_A+OUT_C);//前進
}
if(SENSOR_3==1)//タッチセンサー3が反応した場合
{OnRev(OUT_A+OUT_C);Wait(50);//後退
OnFwd(OUT_C);OnRev(OUT_A);Wait(200);//回転
OnFwd(OUT_A+OUT_C);//前進}
}
終了行:
[[2004/B2/練習問題]]
台から落ちない!
task main()
{ SetSensor(SENSOR_1,SENSOR_TOUCH);//タッチセンサーの設定
SetSensor(SENSOR_3,SENSOR_TOUCH);
while(true)
{OnFwd(OUT_A+OUT_C);//前進
if(SENSOR_1==1)//タッチセンサー1が反応した場合
{OnRev(OUT_A+OUT_C);Wait(50);//後退
OnFwd(OUT_A);OnRev(OUT_C);Wait(200);回転
OnFwd(OUT_A+OUT_C);//前進
}
if(SENSOR_3==1)//タッチセンサー3が反応した場合
{OnRev(OUT_A+OUT_C);Wait(50);//後退
OnFwd(OUT_C);OnRev(OUT_A);Wait(200);//回転
OnFwd(OUT_A+OUT_C);//前進}
}
ページ名: