四角形のプログラム

task main()
{
repeat(3){
OnFwd(OUT_A+OUT_C);
Wait(300);
Off(OUT_A+OUT_C);
OnFwd(OUT_A);
Wait(145);
Off(OUT_A);
}
OnFwd(OUT_A+OUT_C);
Wait(300);
Off(OUT_A+OUT_C);
}

練習課題1 字を書くロボット †

ペンを上下させるのを考えるのが大変だった。まだロボットはで き てないが大体の見通しはついた。来週までにできるかどうかかなり微妙(-_-)

練習課題 タッチセンサーのロボット †

タッチセンサーのロボットのプログラム

task main()
{
SetSensor(SENSOR_1,SENSOR_TOUCH);
SetSensor(SENSOR_3,SENSOR_TOUCH);
OnFwd(OUT_A+OUT_C);
while(true)
{
  if(SENSOR_1==1)
   {
     OnFwd(OUT_A);
     OnRev(OUT_C);
     Wait(37);
     OnFwd(OUT_A+OUT_C);
   }
  else if(SENSOR_3==1)
   {
     OnFwd(OUT_C);
     OnRev(OUT_A);
     Wait(37);
     OnFwd(OUT_A+OUT_C);
   }
}
} 

練習課題 黒い線に沿って動くロボット

task main()
{
SetSensor(SENSOR_3, SENSOR_LIGHT);
while(true)
    {
      if(SENSOR_3<20)      //黒い線の上のときは
        {OnFwd(OUT_A+OUT_C);    前進
        }
     else
        {if(SENSOR_3>40)         //白いところに行ったとき
           {OnFwd(OUT_A);      Aのモーターだけ回転
            Off(OUT_C);
            Wait(3);}
          else{(SENSOR_3<40);  //黒いところに行ったとき
                   OnFwd(OUT_C);  Cのモーターだけ回転
                   Off(OUT_A);
                   Wait(3);}
         }
     }
}

黒い線に沿って動くロボット 感想

わけもわからずに適当にプログラムを作ったけれども1回目から黒い線に沿って動いてくれたので嬉しかった。

練習課題 接触したらロボットを右側から追い抜くロボットの失敗のプログラム

task main()
{
SetSensor(SENSOR_1,SENSOR_TOUCH);
SetSensor(SENSOR_3, SENSOR_LIGHT);
 while(true)
 { if(SENSOR_1 == 1)
  {OnFwd(OUT_A);
    OnRev(OUT_C);
    Wait(40);
    OnFwd(OUT_A+OUT_C);
    Wait(40);
    OnFwd(OUT_C);
    OnRev(OUT_A);
    Wait(40);
    OnFwd(OUT_A+OUT_C);
    Wait(200);
    OnFwd(OUT_C);
    OnRev(OUT_A);
    Wait(40);
   }
     else {if(SENSOR_3<20)
        {OnFwd(OUT_A+OUT_C);
        }
        else
        {if(SENSOR_3>40)
           {OnFwd(OUT_A); 
            Off(OUT_C);
            Wait(3);}
          else{OnFwd(OUT_C);
                   Off(OUT_A);
                   Wait(3);}
         }
            }
  }   
  }
}

感想

上のプログラムは文法が間違っているらしくてロボットに送れなかった。未だにどこが間違っているのかがわかりません。誰か教えてください!

コメント


練習課題3 音を鳴らすロボット

チャイムの音

#define Sol 392
#define Do 523
#define Re 587
#define Mi 659
task play_music()
{
   while (true)
    {
     PlayTone(Do,50);Wait(35);
     PlayTone(Mi,50);Wait(35);
     PlayTone(Re,50);Wait(35);
     PlayTone(Sol,80);Wait(70);
     
     PlayTone(Do,50);Wait(35);
     PlayTone(Re,50);Wait(35);
     PlayTone(Mi,50);Wait(35);
     PlayTone(Do,80);Wait(70);
     
     PlayTone(Mi,50);Wait(35);
     PlayTone(Do,50);Wait(35);
     PlayTone(Re,50);Wait(35);
     PlayTone(Sol,80);Wait(70);
     
     PlayTone(Sol,50);Wait(35);
     PlayTone(Re,50);Wait(35);
     PlayTone(Mi,50);Wait(35);
     PlayTone(Do,80);Wait(70);
    }
}
task main()
{
   start play_music;
}

かえるのうた

#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define Sol 784
#define Ra 880
task play_music()
{
   while(true)
   {
       PlayTone(Do,10); Wait(35);
       PlayTone(Re,10); Wait(35);
       PlayTone(Mi,10); Wait(35);
       PlayTone(Fa,10); Wait(35);
       PlayTone(Mi,10); Wait(35);
       PlayTone(Re,10); Wait(35);
       PlayTone(Do,35); Wait(65);
       
       PlayTone(Mi,10); Wait(35);
       PlayTone(Fa,10); Wait(35);
       PlayTone(Sol,10); Wait(35);
       PlayTone(Ra,10); Wait(35);
       PlayTone(Sol,10); Wait(35);
       PlayTone(Fa,10); Wait(35);
       PlayTone(Mi,35); Wait(65);
       
       PlayTone(Do,30); Wait(75);
       PlayTone(Do,30); Wait(75);
       PlayTone(Do,30); Wait(75);
       PlayTone(Do,30); Wait(75);
       
       PlayTone(Do,10); Wait(35);
       PlayTone(Re,10); Wait(35);
       PlayTone(Mi,10); Wait(35);
       PlayTone(Fa,10); Wait(35);
       PlayTone(Mi,10); Wait(35);
       PlayTone(Re,10); Wait(35);
       PlayTone(Do,50); Wait(50);
       }
}
task main()
{
 start play_music;
}

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-07-03 (月) 14:31:31