- 追加された行はこの色です。
- 削除された行はこの色です。
[[戻る>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