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); // 動きも停止
}
作成者†
とーます れたす
プログラムの話†
作成中