[[戻る>2005/A6]] *演奏しながら動くロボットのプログラム (仮)[#l14bf5a5] **こいぬのマーチ [#e8c84f54] // 製作日:12月2日 // 製作者代表:ジョニー #define Do 523 #define Re 587 #define Mi 659 #define Fa 698 #define Sol 784 task play_music() // 音楽を演奏するタスク { while (true) { PlayTone(Mi,40); Wait(40); PlayTone(Do,20); Wait(40); PlayTone(Mi,40); Wait(40); PlayTone(Do,20); Wait(40); PlayTone(Mi,40); Wait(40); PlayTone(Sol,15); Wait(40); PlayTone(Sol,50); Wait(80); PlayTone(Fa,40); Wait(40); PlayTone(Re,15); Wait(40); PlayTone(Re,40); Wait(80); PlayTone(Mi,40); Wait(40); PlayTone(Do,15); Wait(40); PlayTone(Do,40); Wait(85); PlayTone(Mi,40); Wait(40); PlayTone(Do,20); Wait(40); PlayTone(Mi,40); Wait(40); PlayTone(Do,20); Wait(40); PlayTone(Mi,40); Wait(40); PlayTone(Sol,15); Wait(40); PlayTone(Sol,50); Wait(80); PlayTone(Fa,40); Wait(40); PlayTone(Re,15); Wait(40); PlayTone(Re,15); Wait(40); PlayTone(Re,40); Wait(40); PlayTone(Do,40); Wait(40); PlayTone(Mi,40); Wait(40); PlayTone(Do,40); Wait(40); Wait(20); } } task main() { start play_music ; // 演奏を開始 OnFwd(OUT_A+OUT_B); // 前進 until (SENSOR_1 == 1); stop play_music ; // 演奏を停止 Off(OUT_A+OUT_B); // 動きも停止 } #comment