2005/A2/kadai5 の履歴ソース(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 2005/A2/kadai5 へ行く。
  • 1 (2005-12-02 (金) 07:18:39)
  • 2 (2005-12-09 (金) 06:59:12)

[[2005/A2/課題５]]

 Dvorak 家路 [交響曲第9番「新世界」より第2楽章] ドボルザーク作曲

 #define Do  523
 #define Re  587
 #define Mi  659
 #define Fa  698
 #define Sol 784
 
 task play_music()   // 音楽を演奏するタスク
 {
     while (true)
     {
         PlayTone(Mi,50); Wait(55);  // Wait の時間の方を少し長 くして
         PlayTone(Sol,30); Wait(35);  // 同じ音を続けて鳴らす場合にも
         PlayTone(Sol,50); Wait(55);  // 一つの音にならないようにしている
         
         PlayTone(Mi,50); Wait(55);
         PlayTone(Re,30); Wait(35);
         PlayTone(Do,50); Wait(55);
         PlayTone(Re,50); Wait(55);
 
         PlayTone(Mi,30); Wait(35);
         PlayTone(Sol,30); Wait(35);
         PlayTone(Mi,30); Wait(35);
         PlayTone(Re,50); Wait(55);
         
         PlayTone(Mi,50); Wait(55);  // Wait の時間の方を少し長くして 
         PlayTone(Sol,30); Wait(35);  // 同じ音を続けて鳴らす場合にも
         PlayTone(Sol,50); Wait(55);  // 一つの音にならないようにしている
         
         PlayTone(Mi,50); Wait(55);
         PlayTone(Re,30); Wait(35);
         PlayTone(Do,50); Wait(55);
         PlayTone(Re,50); Wait(55);
         PlayTone(Mi,30); Wait(35);
	 PlayTone(Re,50); Wait(55);
	 PlayTone(Do,30); Wait(35);
	 PlayTone(Do,50); Wait(55);
 	
	 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);     // 動きも停止
 }