はじめてのプログラミング 四角形を描くように走るレゴ

課題1 「左」という字を書くことのできるすごい書道ロボット☆

task main ()
task main()
{
   SetSensor(SENSOR_1, SENSOR_LIGHT);
OnFwd(OUT_A+OUT_C);Wait(200);Off(OUT_A+OUT_C);
OnRev(OUT_B);Wait(50);Off(OUT_B);
OnRev(OUT_A+OUT_C);Wait(100);Off(OUT_A+OUT_C);
OnFwd(OUT_C);Wait(150);Off(OUT_C);
OnFwd(OUT_B);Wait(50);Off(OUT_B);
OnRev(OUT_A+OUT_C);Wait(270);Off(OUT_A+OUT_C);
OnRev(OUT_B);Wait(50);Off(OUT_B);
OnFwd(OUT_A+OUT_C);Wait(150);Off(OUT_A+OUT_C);
OnFwd(OUT_A);Wait(165);Off(OUT_A);
OnFwd(OUT_B);Wait(50);Off(OUT_B);
OnRev(OUT_A+OUT_C);Wait(80);Off(OUT_A+OUT_C);
OnRev(OUT_B);Wait(50);Off(OUT_B);
OnFwd(OUT_C);Wait(180);Off(OUT_C);
OnRev(OUT_A+OUT_C);Wait(130);Off(OUT_A+OUT_C);
OnFwd(OUT_B);Wait(50);Off(OUT_B);
OnRev(OUT_A+OUT_C);Wait(60);Off(OUT_A+OUT_C);
OnFwd(OUT_C);Wait(230);Off(OUT_C);
OnRev(OUT_A+OUT_C);Wait(150);Off(OUT_A+OUT_C);
OnFwd(OUT_B);Wait(50);Off(OUT_B);
OnRev(OUT_A+OUT_C);Wait(150);Off(OUT_A+OUT_C);
OnRev(OUT_B);Wait(50);Off(OUT_B);

線の上を走る、いわばライントレース

while (true) {
       if (SENSOR_1 < 40) {   
           OnFwd(OUT_A);
           Off(OUT_C);
       } else {                      
           Off(OUT_A);
           OnFwd(OUT_C);
       }
   }
}

添付ファイル: filelego4.nqc 105件 [詳細]

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