- 追加された行はこの色です。
- 削除された行はこの色です。
[[2005/A4/課題5]]
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define Sol 392
task main()
{
while (true)
{
PlayTone(Sol,60); Wait(10);
PlayTone(Do,180);
PlayTone(Re,20);
PlayTone(Sol,20);
PlayTone(Re,20);
PlayTone(Mi,180);
Wait(60);
PlayTone(Mi,20);
PlayTone(Fa,20);
PlayTone(Re,20);
PlayTone(Mi,60);
Wait(30);
PlayTone(Re,30);
PlayTone(Do,60);
Wait(60);
PlayTone(Re,30);
PlayTone(Mi,30);
PlayTone(Mi,45);
PlayTone(Re,15);
PlayTone(Do,60);
PlayTone(Re,30); Wait(20);
PlayTone(Mi,30); Wait(10);
PlayTone(Mi,60); Wait(10);
PlayTone(Re,30); Wait(20);
PlayTone(Mi,30); Wait(10);
PlayTone(Mi,60); Wait(10);
PlayTone(Re,20);
PlayTone(Mi,20);
PlayTone(Re,20);
PlayTone(Do,180);
Wait(20);
}
}