[[2005/A4/課題5]] #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); // 動きも停止