[[2005/A2/課題5]] ドヴォルザーク:家路〜交響曲第9番 ホ短調 作品95「新世界より」第2楽章より #define Do 523 #define Re 587 #define Mi 659 #define Fa 698 #define Sol 784 task play_music() // 音楽を演奏するタスク { while (true) { PlayTone(Mi,90); Wait(100); // Wait の時間の方を少し 長くして PlayTone(Sol,65); Wait(75); // 同じ音を続けて鳴らす場合にも PlayTone(Sol,75); Wait(85); // 一つの音にならないようにしている PlayTone(Mi,90); Wait(100); PlayTone(Re,65); Wait(75); PlayTone(Do,90); Wait(100); PlayTone(Re,90); Wait(100); PlayTone(Mi,65); Wait(75); PlayTone(Sol,90); Wait(100); PlayTone(Mi,65); Wait(75); PlayTone(Re,100); Wait(110); PlayTone(Mi,90); Wait(100); // Wait の時間の方を少し長くして PlayTone(Sol,65); Wait(75); // 同じ音を続けて鳴らす場合にも PlayTone(Sol,75); Wait(85); // 一つの音にならないようにしている PlayTone(Mi,65); Wait(75); PlayTone(Re,65); Wait(75); PlayTone(Do,90); Wait(100); PlayTone(Re,90); Wait(100); PlayTone(Mi,65); Wait(75); PlayTone(Re,65); Wait(75); PlayTone(Do,90); Wait(100); PlayTone(Do,120); Wait(130); PlayTone(Sol,15); Wait(20); PlayTone(Sol,35); Wait(40); PlayTone(Mi,25); Wait(30); PlayTone(Re, 5); Wait(10); PlayTone(Do,15); Wait(20); PlayTone(Re,15); Wait(20); PlayTone(Mi,15); Wait(20); PlayTone(Mi,15); Wait(20); PlayTone(Mi,35); Wait(40); PlayTone(Re,15); Wait(20); PlayTone(Re,15); Wait(20); PlayTone(Mi,25); Wait(30); PlayTone(Re, 5); Wait(10); PlayTone(Do,55); Wait(60); Wait(20); } } 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); // 動きも停止 } **作成者 [#f94bce3e] とーます れたす **プログラムの話 [#k7b80fc5] 作成中