2005/A2

11月4日 晴れ のち 三角形†

task main()
{
    OnFwd(OUT_A+OUT_C);
    Wait(200);
    Off(OUT_A+OUT_C);
    
    OnFwd(OUT_A);
    OnRev(OUT_C);
    Wait(136);
    Off(OUT_A+OUT_C);
    
    OnFwd(OUT_A+OUT_C);
    Wait(200);
    Off(OUT_A+OUT_C);
    
    OnFwd(OUT_A);
    OnRev(OUT_C);
    Wait(120);
    Off(OUT_A+OUT_C);
    
    OnFwd(OUT_A+OUT_C);
    Wait(150);
    Off(OUT_A+OUT_C);
}
↑

12月12日 光の射す方へ episode 1~~メガネの逆襲~~†

task main()
{
    SetSensor(SENSOR_2,SENSOR_LIGHT);
    int light_max = 0;
    int i = 0;
    int max = 0;
    for(i=0;i<=60;i++){
       OnFwd(OUT_A);
       OnRev(OUT_C);
       if(SENSOR_2>light_max){
          light_max=SENSOR_2;
	   max=i;
	  }
	Wait(5);
	PlayTone(SENSOR_2,5);
	}
	Off(OUT_A+OUT_C);
}
↑

12月21日 光の射す方へ episode 2~~新たなるメガネ~~†

task main()
{
    SetSensor(SENSOR_2,SENSOR_LIGHT);
    int light_max = 0;
    int i = 0;
    int MAX = 0;     //ここまでは関数を決めるなどの、お約束事項//
    for(i=0; i<=75; i++){     //とりあえずセンサーを動かしながら一周//
       OnFwd(OUT_A);
       OnRev(OUT_C);
       Wait(1);
       Off(OUT_A+OUT_C);
       if(SENSOR_2>light_max){     //明るい地点を探すため//
          light_max = SENSOR_2;
	   MAX = i;                 //その地点をMAXとして残す//
	  }
	}
    
    Off(OUT_A+OUT_C);     //一周したら止まってみる//
    Wait(100);
    
    repeat(MAX){     //明るい地点を向くまで回転//
       OnFwd(OUT_A);
       OnRev(OUT_C);
       Wait(1);
       Off(OUT_A+OUT_C);
       }
    OnRev(OUT_A+OUT_C);     //明るい方を向いたら少し//
    Wait(50);               //進んで、休む//

until(SENSOR_2 < light_max-5) //最大から5とか適当な値離れるまで前進続ける

    Off(OUT_A+OUT_C);
}
トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-12-21 (水) 15:17:52