2004/B3/練習問題5 の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• 2004/B3/練習問題5 へ行く。
• 2004/B3/練習問題5 の差分を削除

[[2004/B3]]

*演奏ロボット [#id759aae]

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(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);
 }