2004/B5/光を追いかけるロボット

ロボットに光センサーを取り付け、光センサーに懐中電灯の光を当てるとそこに向かって動いてく。光が当たっていないときはその場で回転している。

task main()
{
SetSensor(SENSOR_1,SENSOR_LIGHT);
OnFwd(OUT_A);
OnRev(OUT_C);
until(SENSOR_1>60);
while(true){
if(SENSOR_1>60){
OnFwd(OUT_A+OUT_C);
}else{
OnFwd(OUT_A);
OnRev(OUT_C);
}}
}

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-02-16 (水) 15:36:10