2004/A5/練習問題
#define A3 587
#define E 659
#define E1 740
#define E2 784
#define E3 880
#define A 440
task play_music() // 第九演奏タスク
{
while(true)
{
PlayTone(E1,40);Wait(40);
PlayTone(E1,40);Wait(40);
PlayTone(E2,40);Wait(40);
PlayTone(E3,40);Wait(40);
PlayTone(E3,40);Wait(40);
PlayTone(E2,40);Wait(40);
PlayTone(E1,40);Wait(40);
PlayTone(E,40);Wait(40);
PlayTone(A3,40);Wait(40);
PlayTone(A3,40);Wait(40);
PlayTone(E,40);Wait(40);
PlayTone(E1,40);Wait(40);
PlayTone(E1,60);Wait(60);
PlayTone(E,20);Wait(40);
PlayTone(E,60);Wait(80);
PlayTone(E1,40);Wait(40);
PlayTone(E1,40);Wait(40);
PlayTone(E2,40);Wait(40);
PlayTone(E3,40);Wait(40);
PlayTone(E3,40);Wait(40);
PlayTone(E2,40);Wait(40);
PlayTone(E1,40);Wait(40);
PlayTone(E,40);Wait(40);
PlayTone(A3,40);Wait(40);
PlayTone(A3,40);Wait(40);
PlayTone(E,40);Wait(40);
PlayTone(E1,40);Wait(40);
PlayTone(E,60);Wait(40);
PlayTone(A3,20);Wait(40);
PlayTone(A3,80);Wait(40);
PlayTone(E,40);Wait(40);//ここから後半
PlayTone(E,40);Wait(40);
PlayTone(E1,40);Wait(40);
PlayTone(A3,40);Wait(40);
PlayTone(E,40);Wait(40);
PlayTone(E1,20);Wait(20);
PlayTone(E2,20);Wait(20);
PlayTone(E1,40);Wait(40);
PlayTone(A3,40);Wait(40);
PlayTone(E,40);Wait(40);
PlayTone(E1,20);Wait(20);
PlayTone(E2,20);Wait(20);
PlayTone(E1,40);Wait(40);
PlayTone(E,40);Wait(40);
PlayTone(A3,40);Wait(40);
PlayTone(E,40);Wait(40);
PlayTone(A,40);Wait(80);
PlayTone(E1,40);Wait(40);//もう一回テーマ
PlayTone(E1,40);Wait(40);
PlayTone(E2,40);Wait(40);
PlayTone(E3,40);Wait(40);
PlayTone(E3,40);Wait(40);
PlayTone(E2,40);Wait(40);
PlayTone(E1,40);Wait(40);
PlayTone(E,40);Wait(40);
PlayTone(A3,40);Wait(40);
PlayTone(A3,40);Wait(40);
PlayTone(E,40);Wait(40);
PlayTone(E1,40);Wait(40);
PlayTone(E,60);Wait(40);
PlayTone(A3,20);Wait(40);
PlayTone(A3,80);Wait(40);
}
}
task main()
{
SetSensor(SENSOR_1, SENSOR_LIGHT);
start play_music ;
OnFwd(OUT_C);
until (SENSOR_1 < 40) ;
Off(OUT_C);
stop play_music ;
}