2005/B2

はじめてのプログラム

#define THRESHOLD 40

#define RUN_TIME 500

task main () { SetSensor(SENSOR_1, SENSOR_LIGHT);

   SetSensor(SENSOR_2, SENSOR_LIGHT);
   
   ClearTimer(0);
   
 
      while (Timer(0) <= RUN_TIME ) {
         if (SENSOR_2 < THRESHOLD)  {
             OnFwd(OUT_A);
	      Off(OUT_C);
	  } else if (SENSOR_1 < THRESHOLD) {
	      Off(OUT_A);
	      OnFwd(OUT_C);
	  } else {
            OnFwd(OUT_A);
	     OnFwd(OUT_C);
         }
      }

}


添付ファイル: filejohn.test.nqc 112件 [詳細]

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