2006a/A3/練習ページK の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• 2006a/A3/練習ページK へ行く。
• 2006a/A3/練習ページK の差分を削除

*サウンド [#mbd4e05a]


**カエルの合唱 [#c214f7a8]




 #define Do  262
 #define Re  294
 #define Mi  330
 #define Fa  349
 #define Sol 392
 #define Ra  440
 
 task main()
 
 {
 
 while(true)
 {
 
  PlayTone(Do,15);Wait(20);
  PlayTone(Re,15);Wait(20);
  PlayTone(Mi,15);Wait(20);
  PlayTone(Fa,15);Wait(20);
  PlayTone(Mi,15);Wait(20);
  PlayTone(Re,15);Wait(20);
 PlayTone(Do,35);Wait(40);
 
 PlayTone(Mi,15);Wait(20);
 PlayTone(Fa,15);Wait(20);
 PlayTone(Sol,15);Wait(20);
 PlayTone(Ra,15);Wait(20);
 PlayTone(Sol,15);Wait(20);
 PlayTone(Fa,15);Wait(20);
 PlayTone(Mi,35);Wait(40);
 
 PlayTone(Do,35);Wait(40);
 PlayTone(Do,35);Wait(40);
 PlayTone(Do,35);Wait(40);
 PlayTone(Do,35);Wait(40);
 
 PlayTone(Do,5);Wait(10);
 PlayTone(Do,5);Wait(10);
 PlayTone(Re,5);Wait(10);
 PlayTone(Re,5);Wait(10);
 PlayTone(Mi,5);Wait(10);
 PlayTone(Mi,5);Wait(10);
 PlayTone(Fa,5);Wait(10);
 PlayTone(Fa,5);Wait(10);
 
 PlayTone(Mi,15);Wait(20);
 PlayTone(Re,15);Wait(20);
 PlayTone(Do,35);Wait(40);
 Wait(40);
 }
 }




**四季より春 [#h7c0cae7]
**ヴィバルディ四季より春 [#h7c0cae7]

 #define Do  523
 #define Re  587
 #define Mi  659
 #define Fa  698
 #define Sol 784
 
 task main()
 {
 PlayTone(Do,55);Wait(60);
 PlayTone(Mi,55);Wait(60);
 PlayTone(Mi,55);Wait(60);
 PlayTone(Mi,55);Wait(60);
 PlayTone(Re,25);Wait(30);
 PlayTone(Do,25);Wait(30);
 PlayTone(Sol,175);Wait(180);
 PlayTone(Sol,25);Wait(30);
 PlayTone(Fa,25);Wait(30);
 PlayTone(Mi,55);Wait(60);
 PlayTone(Mi,55);Wait(60);
 PlayTone(Mi,55);Wait(60);
 PlayTone(Re,25);Wait(30);
 PlayTone(Do,25);Wait(30);
 PlayTone(Sol,175);Wait(180);
 PlayTone(Sol,25);Wait(30);
 PlayTone(Fa,25);Wait(30);
 PlayTone(Mi,55);Wait(60);
 PlayTone(Fa,25);Wait(30); 
 PlayTone(Sol,25);Wait(30);
 PlayTone(Fa,55);Wait(60);
 PlayTone(Mi,55);Wait(60);
 PlayTone(Re,175);Wait(180);
 }