2005/C6

四角形を描く

task main()
{
    repeat(4){
        OnFwd(OUT_A+OUT_C);
        Wait(300);
        OnFwd(OUT_A);
        OnRev(OUT_C);
        Wait(128);
    }
    Off(OUT_A+OUT_C);
}

光センサの応用(ライントレース)

task main ()
{
    SetSensor(SENSOR_2, SENSOR_LIGHT);
    while(true){
        if(SENSOR_2 < 40){
            OnFwd(OUT_A);
            Off(OUT_C);
        }else{
            OnFwd(OUT_C);
            Off(OUT_A);
        }
    }
}

タッチセンサの応用(壁に沿って動く・試作)

task main ()
{
    SetSensor(SENSOR_1,SENSOR_TOUCH);
    SetSensor(SENSOR_3,SENSOR_TOUCH);
    while(true)
    {
        OnFwd(OUT_A+OUT_C);
        until((SENSOR_1 ==0) || (SENSOR_3 ==1));
        if(SENSOR_1 ==0)
            OnFwd(OUT_C);
            Off(OUT_A);
            until((SENSOR_1 ==1) || (SENSOR_3 ==1));
        if(SENSOR_3 ==1)
            OnRev(OUT_A+OUT_C);
            Wait(50);
            OnFwd(OUT_A);
            OnRev(OUT_C);
            Wait(50);
            OnFwd(OUT_A+OUT_C);
            until((SENSOR_1 ==1) || (SENSOR_3 ==1));
    }
}

光センサの応用(センサ2個型・試作)

task main ()
{
    SetSensor(SENSOR_1,SENSOR_LIGHT);
    SetSensor(SENSOR_3,SENSOR_LIGHT);
    while(true)
    {
        OnFwd(OUT_A+OUT_C);
        until((SENSOR_1 <40) || (SENSOR_3 <40));
        if(SENSOR_1 <40)
            OnFwd(OUT_C);
            Off(OUT_A);
            until(SENSOR_1 >40);
        if(SENSOR_3 <40)
            OnFwd(OUT_A);
            Off(OUT_C);
            until(SENSOR_3 >40);
    }
}

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-11-24 (木) 23:22:21