- 追加された行はこの色です。
- 削除された行はこの色です。
[[2004/B2/練習問題]]
演奏!
#define Fl 349
#define Gl 392
#define Al 440
#define Bl 494
#define C 523
#define D 587
#define E 659
#define F 698
#define FS 740
#define G 784
#define A 880
#define AS 932
#define B 988
#define Ch 1047
-[[空も飛べるはず(スピッツ)>2004/B2/空も飛べるはず]]
task play_music()//空も飛べるはず (スピッツ)
{
while (true)
{
PlayTone(C,30);Wait(35);
PlayTone(D,30);Wait(35);
PlayTone(E,60);Wait(65);
PlayTone(E,60);Wait(65);
PlayTone(D,30);Wait(35);
PlayTone(c,30);Wait(35);
PlayTone(Bl,60);Wait(65);
PlayTone(C,60);Wait(65);
PlayTone(Bl,30);Wait(35);
PlayTone(Al,60);Wait(65);
PlayTone(C,30);Wait(35);
PlayTone(D,30);Wait(35);
PlayTone(E,60);Wait(65);
PlayTone(E,60);Wait(65);
PlayTone(D,30);Wait(35);
PlayTone(E,30);Wait(35);
PlayTone(F,60);Wait(65);
PlayTone(E,60);Wait(105);
PlayTone(A,60);Wait(65);
PlayTone(G,30);Wait(35);
PlayTone(C,30);Wait(35);
PlayTone(D,30);Wait(35);
PlayTone(E,60);Wait(65);
PlayTone(E,60);Wait(65);
PlayTone(D,30);Wait(35);
PlayTone(C,30);Wait(35);
PlayTone(Bl,60);Wait(65);
PlayTone(C,60);Wait(65);
PlayTone(Bl,30);Wait(35);
PlayTone(Al,60);Wait(65);
PlayTone(Bl,30);Wait(35);
PlayTone(C,30);Wait(35);
PlayTone(G,300);Wait(305);
}
}
task main()
{
start play_music ;
}