2005/A3

sub Go() {OnFwd(OUT_A+OUT_C);} sub Back() {OnRev(OUT_A+OUT_C);}

sub Go() {OnFwd(OUT_A+OUT_C);} sub Back() {OnRev(OUT_A+OUT_C);}

task main () {

SetSensor(SENSOR_1, SENSOR_LIGHT);
SetSensor(SENSOR_2, SENSOR_LIGHT);
SetSensor(SENSOR_3, SENSOR_LIGHT);

while(true) { Go();

if(SENSOR_1<40) {OnRev(OUT_A);Wait(15);Off(OUT_A);ClearTimer(0); if(Timer(0)>10){Back();Wait(50);OnFwd(OUT_A);Wait(50);ClearTimer(0);} else{until(SENSOR_2<40);ClearTimer(0);};};

if(SENSOR_3<40) {OnRev(OUT_A);Wait(15);Off(OUT_A);ClearTimer(0); if(Timer(0)>10){Back();Wait(50);OnFwd(OUT_C);Wait(50);ClearTimer(0);} else{until(SENSOR_2<40);ClearTimer(0);};};

}}

task main () {

SetSensor(SENSOR_1, SENSOR_LIGHT);
SetSensor(SENSOR_2, SENSOR_LIGHT);
SetSensor(SENSOR_3, SENSOR_LIGHT);

while(true) { Go(); if(SENSOR_1<40) {OnRev(OUT_A);OnFwd(OUT_C);until(SENSOR_2<40);}; if(SENSOR_3<40) {OnRev(OUT_C);OnFwd(OUT_A);until(SENSOR_2<40);};

}}


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-11-25 (金) 15:25:16 (5017d)