2006b/A1/kuroneko

task main()
{
SetSensor(SENSOR_1,SENSOR_LIGHT);

while(true)
{
OnFwd(OUT_A+OUT_C);

if (SENSOR_1<40)
{OnRev(OUT_A);}

else
{OnRev(OUT_C);}

}
}
task main()
{
SetSensor(SENSOR_1,SENSOR_LIGHT);
SetSensor(SENSOR_3,SENSOR_LIGHT);

while(true)
{
OnFwd(OUT_A+OUT_C);

if(SENSOR_1<40)
{
Off(OUT_A);
Wait(5);
if(SENSOR_1<40)
{OnRev(OUT_A);
until(SENSOR_1>40);
}}

if (SENSOR_3<40)
{
Off(OUT_C);
Wait(5);
if(SENSOR_3<40)
{OnRev(OUT_C);
until(SENSOR_3>40);
}}


}}
task main()
{
SetSensor(SENSOR_1,SENSOR_LIGHT);
SetSensor(SENSOR_3,SENSOR_LIGHT);

while(true)
{ OnFwd(OUT_A+OUT_C);

if(SENSOR_1<SENSOR_3)
{ Off(OUT_C); Wait(5); }

if (SENSOR_3<SENSOR_1)
{ Off(OUT_A); Wait(5); }

}}
task main()
{
SetSensor(SENSOR_1,SENSOR_LIGHT);
SetSensor(SENSOR_3,SENSOR_LIGHT);
#define Turn_Time 400
int light_M=0;time_M;
ClearTimer(0);

while(FastTimer(0)<TurnTime)
{
OnFwd(OUT_A);
OnRev(OUT_C);

if(light_M>SENSOR_1)
{
light_M=SENSOR_1;
ClearTimer(1);
}
}
time_M=FastTimer(1);
OnFwd(OUT_C);
OnRev(OUT_A);
Wait(time_M);

while(true)
{
OnFwd(OUT_A+OUT_C);

if(SENSOR_1<SENSOR_3)
{
Off(OUT_C);
Wait(5);
}

if(SENSOR_1>SENSOR_3)
{
Off(OUT_A);
Wait(5);
}

}
}

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-12-22 (金) 13:44:00