2005/A4/課題5左
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
[[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); // 動きも停止
終了行:
[[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); // 動きも停止
ページ名: