- 追加された行はこの色です。
- 削除された行はこの色です。
[[2004/B3/練習問題5]]
23斑 浅井浩太郎
#define D 523 //ド
#define Re 587 //レ
#define M 659 //ミ
#define F 698 //ファ
#define So 784 //ソ
#define Ra 440 //ラ
#define Si 988 //シ
#define D2 1047
#define Re2 1175
#define M2 1319
#define F2 1397
#define So2 1568
#define Ra2 880
#define Si2 1865
task music1()
{
while(true)
{
PlayTone(Ra,100);Wait(20);
PlayTone(Re,50);Wait(20);
PlayTone(M,50);Wait(20);
PlayTone(F,50);Wait(20);
PlayTone(M,25);Wait(20);
PlayTone(Re,36);Wait(20);
PlayTone(M,50);Wait(20);
PlayTone(Re,25);Wait(20);
PlayTone(D,50);Wait(20);
PlayTone(Re,25);Wait(20);
PlayTone(Ra,100);Wait(300);
PlayTone(Ra,100);Wait(20);
PlayTone(Re,50);Wait(20);
PlayTone(M,50);Wait(20);
PlayTone(F,50);Wait(20);
PlayTone(M,25);Wait(20);
PlayTone(Re,36);Wait(20);
PlayTone(M,50);Wait(20);
PlayTone(Re,25);Wait(20);
PlayTone(D,50);Wait(20);
PlayTone(M,50);Wait(20);
PlayTone(F,100);Wait(50);
}
}
task main()
{
SetSensor(SENSOR_1,SENSOR_TOUCH);
start music1;
OnFwd(OUT_A);OnRev(OUT_C);
until(SENSOR_1 == 1);
stop music1;
Off(OUT_A+OUT_C);
}