#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define Sol 784
task play_music() // 音楽を演奏するタスク {
while (true) { PlayTone(Do,15); Wait(40); //tyarumera PlayTone(Re,15); Wait(25); PlayTone(Mi,15); Wait(40); PlayTone(Re,15); Wait(25); PlayTone(Do,15); Wait(25); PlayTone(Do,15); Wait(25); PlayTone(Re,15); Wait(25); PlayTone(Mi,15); Wait(40); PlayTone(Re,15); Wait(25); PlayTone(Do,15); Wait(25); PlayTone(Re,15); Wait(50); Wait(100);
}
}
task main() {
SetSensor(SENSOR_1, SENSOR_TOUCH);
start play_music ; // 演奏を開始 OnFwd(OUT_A+OUT_B); // 前進
until (SENSOR_1 == 1); stop play_music ; // 演奏を停止 Off(OUT_A+OUT_B); // 動きも停止