2004/B3

演奏ロボット

23斑 浅井浩太郎 ...BeatlesのYesterdayが鳴るマシンにしました。でも、曲の後半は何がなんだかわからないです。音痴なので苦労しました。

 
/*音楽(yesterday)が鳴る*/
#define D  523  //ド
#define Re 587  //レ
#define M 659   //ミ
#define F 698   //ファ
#define So 784  //ソ
#define Ra 440  //ラ
#define Si 988  //シ
#define D2 1047     
#define Re2 1175
#define M2  1319
#define F2  1397
#define So2 1568
#define Ra2 880
#define Si2 1865
task music1()
{
 while(true)
 {
   PlayTone(Ra,100);Wait(20);     //音程が本当にわかりませんでした
   PlayTone(Re,50);Wait(20);
   PlayTone(M,50);Wait(20);
   PlayTone(F,50);Wait(20);
   PlayTone(M,25);Wait(20);
   PlayTone(Re,36);Wait(20);
   PlayTone(M,50);Wait(20);
   PlayTone(Re,25);Wait(20);
   PlayTone(D,50);Wait(20);
   PlayTone(Re,25);Wait(20);
   PlayTone(Ra,100);Wait(300);
   
   PlayTone(Ra,100);Wait(20);    //謎の曲に....
   PlayTone(Re,50);Wait(20);
   PlayTone(M,50);Wait(20);
   PlayTone(F,50);Wait(20);
   PlayTone(M,25);Wait(20);
   PlayTone(Re,36);Wait(20);
   PlayTone(M,50);Wait(20);
   PlayTone(Re,25);Wait(20);
   PlayTone(D,50);Wait(20);
   PlayTone(M,50);Wait(20);
   PlayTone(F,100);Wait(50);
  }
}
task main()
{
  SetSensor(SENSOR_1,SENSOR_TOUCH);
  
   start music1;                         //電源を入れると、回転しながら音楽が鳴ります
   OnFwd(OUT_A);OnRev(OUT_C);
   until(SENSOR_1 == 1);          //タッチセンサーに触れると、音楽と機体が止まります
   stop music1;
   Off(OUT_A+OUT_C);
}

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