[[2004/B3/練習問題5]]

 23斑  浅井浩太郎

#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