- 追加された行はこの色です。
- 削除された行はこの色です。
[[2006a/A3/]]
[[2006a/A3]]
*最初のプログラム [#vc3234e2]
*メリーさんの羊を奏でるプログラミング [#kadai3]
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define So 784
#define Ra 880
#define Si 988
task play_music()
{
while (true)
{
PlayTone(Do,20); Wait(25);
PlayTone(Do,20); Wait(25);
PlayTone(So,20); Wait(25);
PlayTone(So,20); Wait(25);
PlayTone(Ra,20); Wait(25);
PlayTone(Ra,20); Wait(25);
PlayTone(So,20); Wait(25);
}
}
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);
}