[[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