- 追加された行はこの色です。
- 削除された行はこの色です。
[[2004/A4/11班]]
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define Sol 784
#define Ra 880
#define Ti 988
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define Sol 784
#define Ra 880
#define Ti 988
task play_music()
{
task play_music()
{
while (true)
{
PlayTone(Sol,30); Wait(40);
PlayTone(Fa,30); Wait(40);
PlayTone(Mi,40); Wait(50);
PlayTone(Re,15); Wait(20);
PlayTone(Mi,15); Wait(20);
PlayTone(Fa,15); Wait(20);
PlayTone(Re,15); Wait(20);
PlayTone(Do,40); Wait(40);
PlayTone(Mi,15); Wait(20);
PlayTone(Fa,15); Wait(20);
PlayTone(Sol,15); Wait(20);
PlayTone(Mi,15); Wait(20);
PlayTone(Re,15); Wait(20);
PlayTone(Mi,15); Wait(20);
PlayTone(Fa,15); Wait(20);
PlayTone(Re,15); Wait(20);
PlayTone(Mi,15); Wait(20);
PlayTone(Fa,15); Wait(20);
PlayTone(Sol,15); Wait(20);
PlayTone(Mi,15); Wait(20);
PlayTone(Re,15); Wait(20);
PlayTone(Mi,15); Wait(20);
PlayTone(Fa,15); Wait(20);
PlayTone(Re,15); Wait(20);
Wait(20);
}
}
}
task main()
{
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);
}
}