[task main() {

   SetSensor(SENSOR_1,SENSOR_TOUCH);
   SetSensor(SENSOR_3,SENSOR_TOUCH);
   OnFwd(OUT_A+OUT_C);
   until ((SENSOR_1 == 1)&&(SENSOR_3 == 3));
   
   OnRev(OUT_A+OUT_C);
   Wait(200);
   OnFwd(OUT_C);
   Wait(150);
   OnFwd(OUT_A+OUT_C);
   until ((SENSOR_1 == 1)&&(SENSOR_3 == 3));
   OnRev(OUT_A+OUT_C);
   Wait(200);
   OnFwd(OUT_C);
   Wait(150);
   OnFwd(OUT_A+OUT_C);
   Wait(500);
   OnRev(OUT_C);
   Wait(300);
   OnFwd(200);
   On[2005/A4]]

#define Do 523

#define Re 587

#define Mi 659

#define Fa 698

#define Sol 784

task play_music() // 音楽を演奏するタスク {

   while (true)
   {
       PlayTone(Do,15); Wait(40);  //tyarumera
       PlayTone(Re,15); Wait(25);
       PlayTone(Mi,15); Wait(40);
       PlayTone(Re,15); Wait(25);
       PlayTone(Do,15); Wait(25);
	PlayTone(Do,15); Wait(25);
       PlayTone(Re,15); Wait(25);
       PlayTone(Mi,15); Wait(40);
       PlayTone(Re,15); Wait(25);
       PlayTone(Do,15); Wait(25);
	PlayTone(Re,15); Wait(50);
	Wait(100);
   }

}

task main() {

   SetSensor(SENSOR_1, SENSOR_TOUCH);
   start play_music ;    // 演奏を開始
   OnFwd(OUT_A+OUT_B);   // 前進
   until (SENSOR_1 == 1);
   stop play_music ;     // 演奏を停止
   Off(OUT_A+OUT_B);     // 動きも停止

}


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