2006a/A1

アップルのページ

初プロ

task main()
{
OnFwd(OUT_A);
Wait(165);
Off(OUT_A);
OnFwd(OUT_C);
Wait(340);
Off(OUT_C);
OnFwd(OUT_A);
Wait(330);
Off(OUT_A);
OnFwd(OUT_C);
Wait(340);
Off(OUT_C);
OnFwd(OUT_A);
Wait(330);
Off(OUT_A);
OnFwd(OUT_C);
Wait(340);
Off(OUT_C);
OnFwd(OUT_A);
Wait(330);
Off(OUT_A);
OnFwd(OUT_C);
Wait(340);
Off(OUT_C);
}

タッチセンサー

#define right(s) OnRev(OUT_C);OnFwd(OUT_A);Wait(s);
#define left(s) OnRev(OUT_A);OnFwd(OUT_C);Wait(s);

task main()
{
SetSensor(SENSOR_1,SENSOR_TOUCH);
SetSensor(SENSOR_2,SENSOR_TOUCH);

OnFwd(OUT_A+OUT_C);
while(true)
   {
until((SENSOR_1==1) || (SENSOR_2==1));
OnRev(OUT_A+OUT_C);Wait(150);
right(83);
OnFwd(OUT_A+OUT_C);
until((SENSOR_1==1) || (SENSOR_2==1));
OnRev(OUT_A+OUT_C);Wait(150);
right(83);
OnFwd(OUT_A+OUT_C);
   }
}

光センサー

#define turn_right OnFwd(OUT_A);OnRev(OUT_C);
#define turn_left OnRev(OUT_A);OnFwd(OUT_C);
#define stop_turning Off(OUT_A+OUT_C);
#define TURN_TIME 400
#define go OnFwd(OUT_A+OUT_C);
task main ()
{
SetSensor(SENSOR_1,SENSOR_LIGHT);
int light_max=0,time_max=0;
turn_right;
ClearTimer(0);
while(FastTimer(0)<TURN_TIME)
 {
if(SENSOR_1>light_max)
  {
light_max=SENSOR_1;
time_max=FastTimer(0);
  }
 }
stop_turning;Wait(100);
turn_left;
Wait(TURN_TIME-time_max);
stop_turning;
}

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