最初は速いが、だんだん遅くなり曲がわかるようになる[#u58e6ac3]
#define A 1
#define C 2
int B=3;
#define Do 1109 #ド
#define Re 1175
#define Mi 659
#define Fa 740 #ファ
#define So 831 #ソ
#define Ra 880
#define Si 988
task play_music() { repeat (3){ PlayTone(Ra,40/A);Wait(25/B);SendMessage(A) PlayTone(Si,40/A);Wait(25/B);SendMessage(C) PlayTone(Do,40/A);Wait(25/B);SendMessage(A) PlayTone(Do,40/A);Wait(25/B);SendMessage(C) PlayTone(Re,20/A);Wait(20/B);SendMessage(A) PlayTone(Do,60/A);Wait(20/B);SendMessage(C) PlayTone(Si,80/A);Wait(45/B);SendMessage(A) PlayTone(Do,40/A);Wait(25/B);SendMessage(C) PlayTone(Si,40/A);Wait(25/B);SendMessage(A) PlayTone(Ra,40/A);Wait(25/B);SendMessage(C) PlayTone(Ra,40/A);Wait(25/B);SendMessage(A) PlayTone(Si,20/A);Wait(20/B);SendMessage(C) PlayTone(Ra,60/A);Wait(20/B);SendMessage(A) PlayTone(So,80/A);Wait(45/B);SendMessage(C) PlayTone(So,40/A);Wait(35/B);SendMessage(A) PlayTone(Mi,40/A);Wait(35/B);SendMessage(C) PlayTone(Fa,80/A);Wait(25/B);SendMessage(A) PlayTone(Ra,40/A);Wait(25/B);SendMessage(C) PlayTone(Fa,40/A);Wait(25/B);SendMessage(A) PlayTone(Mi,80/A);Wait(35/B);SendMessage(C) PlayTone(Ra,80/A);Wait(35/B);SendMessage(A) PlayTone(Si,240/A);Wait(240/B);SendMessage(C) B=B-1; } } task main() {start play_music; until(false);}
}