2004/C4/練習問題51
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define Son 784
#define Ra 880
#define Shi 988
#define Don 1047
#define Ren 1175
#define Min 1319
#define Shim 932
task play_music1()//musunnde hiraite
{
while(true)
{ //うさぎ
PlayTone(Fa,60);Wait(65);
PlayTone(Fa,30);Wait(35);
PlayTone(Ra,30);Wait(35);
PlayTone(Shi,30);Wait(35);
PlayTone(Ra,30);Wait(35);
PlayTone(Shi,30);Wait(65);
PlayTone(Fa,30);Wait(35);
PlayTone(Fa,30);Wait(35);
PlayTone(Fa,30);Wait(35);
PlayTone(Ra,30);Wait(35);
PlayTone(Shi,30);Wait(35);
PlayTone(Ra,30);Wait(35);
PlayTone(Shi,30);Wait(65);
PlayTone(Ra,30);Wait(35);
PlayTone(Shi,30);Wait(35);
PlayTone(Don,30);Wait(35);
PlayTone(Don,30);Wait(35);
PlayTone(Shi,30);Wait(35);
PlayTone(Ra,15);Wait(20);
PlayTone(Ra,15);Wait(20);
PlayTone(Fa,30);Wait(35);
PlayTone(Mi,30);Wait(35);
PlayTone(Ra,30);Wait(35);
PlayTone(Fa,30);Wait(35);
PlayTone(Mi,60);Wait(65);
PlayTone(Fa,30);Wait(35);
PlayTone(Mi,30);Wait(35);
PlayTone(Re,60);Wait(65);
PlayTone(Mi,60);Wait(65);
/* PlayTone(Mi,60);Wait(65);
PlayTone(Ra,60);Wait(65);
PlayTone(Ra,60);Wait(65);
PlayTone(Ra,60);Wait(65);
PlayTone(Shim,60);Wait(65);
PlayTone(Don,60);Wait(65);
PlayTone(Don,60);Wait(65);
PlayTone(Ren,60);Wait(65);
PlayTone(Ren,60);Wait(65);
PlayTone(Don,120);Wait(125); */
Wait(20);
}
}
task play_music2()//spring is comming
{
while(true)
{ //春が来た
PlayTone(Son,20);Wait(25);
PlayTone(Mi,10);Wait(15);
PlayTone(Fa,10);Wait(15);
PlayTone(Son,20);Wait(25);
PlayTone(Ra,20);Wait(25);
PlayTone(Son,20);Wait(25);
PlayTone(Mi,10);Wait(15);
PlayTone(Fa,10);Wait(15);
PlayTone(Son,20);Wait(25);
PlayTone(Don,20);Wait(25);
PlayTone(Ra,20);Wait(25);
PlayTone(Son,20);Wait(25);
PlayTone(Mi,40);Wait(45);
PlayTone(Do,10);Wait(25);
PlayTone(Re,60);Wait(65);
PlayTone(Son,20);Wait(25);
PlayTone(Ra,10);Wait(15);
PlayTone(Son,10);Wait(15);
PlayTone(Mi,20);Wait(25);
PlayTone(Son,20);Wait(25);
PlayTone(Don,20);Wait(25);
PlayTone(Ren,10);Wait(15);
PlayTone(Don,10);Wait(15);
PlayTone(Ra,20);Wait(25);
PlayTone(Don,20);Wait(25);
PlayTone(Son,20);Wait(25);
PlayTone(Min,20);Wait(25);
PlayTone(Ren,40);Wait(45);
PlayTone(Son,10);Wait(15);
PlayTone(Don,60);Wait(65);
Wait(20);
}
}
task main()
{
SetSensor(SENSOR_1,SENSOR_TOUCH);
SetSensor(SENSOR_3,SENSOR_TOUCH);
while(true){
start play_music2; //直進しながら演奏
OnFwd(OUT_A+OUT_C);
until(SENSOR_1==1);
stop play_music2;
start play_music1; //後退しながら演奏
OnRev(OUT_A+OUT_C);
until(SENSOR_3==1);
stop play_music1;
}
}