2005/A2/課題５右

2005/A2/課題５

ドヴォルザーク：家路～交響曲第9番　ホ短調　作品95「新世界より」第2楽章より

#define Do  523
#define Re  587
#define Mi  659
#define Fa  698
#define Sol 784

task play_music()   // 音楽を演奏するタスク
{
    while (true)
    {
        PlayTone(Mi,90); Wait(100);  // Wait の時間の方を少し 長くして
        PlayTone(Sol,65); Wait(75);  // 同じ音を続けて鳴らす場合にも
        PlayTone(Sol,75); Wait(85);  // 一つの音にならないようにしている
        
        PlayTone(Mi,90); Wait(100);
        PlayTone(Re,65); Wait(75);
        PlayTone(Do,90); Wait(100);
        PlayTone(Re,90); Wait(100);

        PlayTone(Mi,65); Wait(75);
        PlayTone(Sol,90); Wait(100);
        PlayTone(Mi,65); Wait(75);
        PlayTone(Re,100); Wait(110);
         
        PlayTone(Mi,90); Wait(100);  // Wait の時間の方を少し長くして
        PlayTone(Sol,65); Wait(75);  // 同じ音を続けて鳴らす場合にも
        PlayTone(Sol,75); Wait(85);  // 一つの音にならないようにしている
        
        PlayTone(Mi,65); Wait(75);
        PlayTone(Re,65); Wait(75);
        PlayTone(Do,90); Wait(100);
        PlayTone(Re,90); Wait(100);
        PlayTone(Mi,65); Wait(75);
   	 PlayTone(Re,65); Wait(75);
      	 PlayTone(Do,90); Wait(100);
 	 PlayTone(Do,120); Wait(130);
	 
	 PlayTone(Sol,15); Wait(20);
        PlayTone(Sol,35); Wait(40); 

        PlayTone(Mi,25); Wait(30);
        PlayTone(Re, 5); Wait(10);
        PlayTone(Do,15); Wait(20);
        PlayTone(Re,15); Wait(20);

        PlayTone(Mi,15); Wait(20);
        PlayTone(Mi,15); Wait(20);
        PlayTone(Mi,35); Wait(40);

        PlayTone(Re,15); Wait(20);
        PlayTone(Re,15); Wait(20);
        PlayTone(Mi,25); Wait(30);
        PlayTone(Re, 5); Wait(10);

        PlayTone(Do,55); Wait(60);
        Wait(20);
    }
}

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);     // 動きも停止
}

作成者†

  とーます  れたす

↑

プログラムの話†

  作成中

作成者†

プログラムの話†

目次

全般

教材・資料

Debian関連

過去の授業

2003年度以前

最新の20件