sub Go()

{OnFwd(OUT_A+OUT_C);}
sub Back()
{OnRev(OUT_A+OUT_C);}
sub Go()
{OnFwd(OUT_A+OUT_C);}
sub Back()
{OnRev(OUT_A+OUT_C);}
task main ()
{
 SetSensor(SENSOR_1, SENSOR_LIGHT);
 SetSensor(SENSOR_2, SENSOR_LIGHT);
 SetSensor(SENSOR_3, SENSOR_LIGHT);
while(true)
{
Go();
if(SENSOR_1<40)
{OnRev(OUT_A);Wait(15);Off(OUT_A);ClearTimer(0);
if(Timer(0)>10){Back();Wait(50);OnFwd(OUT_A);Wait(50);ClearTimer(0);}
else{until(SENSOR_2<40);ClearTimer(0);};};
if(SENSOR_3<40)
{OnRev(OUT_A);Wait(15);Off(OUT_A);ClearTimer(0);
if(Timer(0)>10){Back();Wait(50);OnFwd(OUT_C);Wait(50);ClearTimer(0);}
else{until(SENSOR_2<40);ClearTimer(0);};};
}}

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-11-26 (土) 00:30:37 (5016d)