演奏するロボット

工夫した点
　楽譜がないところから起こしてゆくのが大変でした

#define Ais3 466
#define H3 494
#define C 523
#define Cis 554
#define D 587
#define Dis 622
#define E 659
#define F 698
#define Fis 740
#define G 784
#define Gis 831
#define A 880
#define Ais 932
#define H 988
#define C2 1047
task play_music() // 音楽を演奏するタスク
{
while(true)
{
PlayTone(E,20); Wait(30);
PlayTone(E,20); Wait(30);
PlayTone(E,20); Wait(30);
PlayTone(E,20); Wait(30);
PlayTone(F,30); Wait(30);
PlayTone(E,15); Wait(30);

PlayTone(A,20); Wait(30);
PlayTone(A,20); Wait(30);
PlayTone(A,20); Wait(30);
PlayTone(A,20); Wait(30);
PlayTone(H,30); Wait(30);
PlayTone(A,15); Wait(30);

PlayTone(C2,20); Wait(30);
PlayTone(C2,20); Wait(30);
PlayTone(C2,20); Wait(30);
PlayTone(C2,20); Wait(30);
PlayTone(H,20); Wait(30);
PlayTone(A,20); Wait(30);
PlayTone(G,20); Wait(30);
PlayTone(E,40); Wait(50);

}

}

task main()
{ start play_music ;
}