- 追加された行はこの色です。
- 削除された行はこの色です。
[[2005/A2/課題5]]
*ええじゃないか [#tecbfa0e]
#define Si 494
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define Sol 784
#define ra 880
#define si 988
#define Do2 1047
#define Re2 1175
task play_music()
{
while (true)
{
PlayTone(ra,25); Wait(30);//ええ
PlayTone(Do2,12); Wait(17);//じゃ
PlayTone(Do2,25); Wait(30);//ない
PlayTone(Do2,12); Wait(17);//か
PlayTone(Re2,25); Wait(30);//ええ
PlayTone(Do2,12); Wait(17);//じゃ
PlayTone(ra,25); Wait(30);//ない
PlayTone(Fa,12); Wait(17);//か
PlayTone(Mi,25); Wait(30);//ええ
PlayTone(Fa,12); Wait(17);//じゃ
PlayTone(Mi,25); Wait(30);//な
PlayTone(Re,12); Wait(17);//い
PlayTone(Do,37); Wait(42);//か
Wait(5);
PlayTone(Do,35); Wait(40);//い
PlayTone(Re,60); Wait(65);//せ
PlayTone(Mi,22); Wait(27);//の
PlayTone(Fa,45); Wait(50);//め
PlayTone(Mi,37); Wait(42);//い
PlayTone(Re,42); Wait(47);//ぶ
PlayTone(Si,25); Wait(30);//つ
Wait(5);
PlayTone(ra,25); Wait(30);//あ
PlayTone(Do2,12); Wait(17);//か
PlayTone(Do2,25); Wait(30);//ふ
PlayTone(Do2,12); Wait(17);//く
Wait(10);
PlayTone(Do2,10); Wait(15);//も
PlayTone(si,25); Wait(30);//ち
PlayTone(ra,12); Wait(17);//は
PlayTone(Mi,25); Wait(30);//ええ
PlayTone(Fa,12); Wait(17);//じゃ
PlayTone(Mi,25); Wait(30);//な
PlayTone(Re,12); Wait(17);//い
PlayTone(Do,30); Wait(35);//か
PlayTone(Do2,5); Wait(10);//
Wiat(30)
}
}
task main()
{
start play_music ;
}