2005/A3/課題5左
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
[[2005/A3]]
*音の出るロボット [#o094c2ee]
**曲名『蛙の歌』 [#s745dd54]
製作者:さいえんてぃすと
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define Sol 784
#define Ra 880
#define Shi 988
task play_music()
{
while (true)
{
PlayTone(Do,30); Wait(35); SendMessage(1);
PlayTone(Re,30); Wait(35); SendMessage(2);
PlayTone(Mi,30); Wait(35); SendMessage(1);
PlayTone(Fa,30); Wait(35); SendMessage(2);
PlayTone(Mi,30); Wait(35); SendMessage(1);
PlayTone(Re,30); Wait(35); SendMessage(2);
PlayTone(Do,40); Wait(50); SendMessage(1);
PlayTone(Mi,30); Wait(35); SendMessage(2);
PlayTone(Fa,30); Wait(35); SendMessage(1);
PlayTone(Sol,30); Wait(35); SendMessage(2);
PlayTone(Ra,30); Wait(35); SendMessage(1);
PlayTone(Sol,30); Wait(35); SendMessage(2);
PlayTone(Fa,30); Wait(35); SendMessage(1);
PlayTone(Mi,45); Wait(55); SendMessage(2);
PlayTone(Do,45); Wait(50); SendMessage(1);
PlayTone(Do,45); Wait(50); SendMessage(2);
PlayTone(Do,45); Wait(50); SendMessage(1);
PlayTone(Do,45); Wait(50); SendMessage(2);
PlayTone(Do,25); Wait(30); SendMessage(1);
PlayTone(Do,25); Wait(30); SendMessage(2);
PlayTone(Re,25); Wait(30); SendMessage(1);
PlayTone(Re,25); Wait(30); SendMessage(2);
PlayTone(Mi,25); Wait(30); SendMessage(1);
PlayTone(Mi,25); Wait(30); SendMessage(2);
PlayTone(Fa,25); Wait(30); SendMessage(1);
PlayTone(Fa,25); Wait(30); SendMessage(2);
PlayTone(Mi,45); Wait(50); SendMessage(1);
PlayTone(Re,45); Wait(50); SendMessage(2);
PlayTone(Do,55); Wait(60); SendMessage(1);
}
}
task main()
{
start play_music ;
while(true)
{
ClearTimer(0);
while ( Timer(0) <= 30 ) { SendMessage(1); }
while ( Timer(0) <= 60 ) { SendMessage(2); }
}
}
**感想 [#u21ea699]
簡単な曲だが、音の長さや間隔を調節するのが大変だった。
終了行:
[[2005/A3]]
*音の出るロボット [#o094c2ee]
**曲名『蛙の歌』 [#s745dd54]
製作者:さいえんてぃすと
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define Sol 784
#define Ra 880
#define Shi 988
task play_music()
{
while (true)
{
PlayTone(Do,30); Wait(35); SendMessage(1);
PlayTone(Re,30); Wait(35); SendMessage(2);
PlayTone(Mi,30); Wait(35); SendMessage(1);
PlayTone(Fa,30); Wait(35); SendMessage(2);
PlayTone(Mi,30); Wait(35); SendMessage(1);
PlayTone(Re,30); Wait(35); SendMessage(2);
PlayTone(Do,40); Wait(50); SendMessage(1);
PlayTone(Mi,30); Wait(35); SendMessage(2);
PlayTone(Fa,30); Wait(35); SendMessage(1);
PlayTone(Sol,30); Wait(35); SendMessage(2);
PlayTone(Ra,30); Wait(35); SendMessage(1);
PlayTone(Sol,30); Wait(35); SendMessage(2);
PlayTone(Fa,30); Wait(35); SendMessage(1);
PlayTone(Mi,45); Wait(55); SendMessage(2);
PlayTone(Do,45); Wait(50); SendMessage(1);
PlayTone(Do,45); Wait(50); SendMessage(2);
PlayTone(Do,45); Wait(50); SendMessage(1);
PlayTone(Do,45); Wait(50); SendMessage(2);
PlayTone(Do,25); Wait(30); SendMessage(1);
PlayTone(Do,25); Wait(30); SendMessage(2);
PlayTone(Re,25); Wait(30); SendMessage(1);
PlayTone(Re,25); Wait(30); SendMessage(2);
PlayTone(Mi,25); Wait(30); SendMessage(1);
PlayTone(Mi,25); Wait(30); SendMessage(2);
PlayTone(Fa,25); Wait(30); SendMessage(1);
PlayTone(Fa,25); Wait(30); SendMessage(2);
PlayTone(Mi,45); Wait(50); SendMessage(1);
PlayTone(Re,45); Wait(50); SendMessage(2);
PlayTone(Do,55); Wait(60); SendMessage(1);
}
}
task main()
{
start play_music ;
while(true)
{
ClearTimer(0);
while ( Timer(0) <= 30 ) { SendMessage(1); }
while ( Timer(0) <= 60 ) { SendMessage(2); }
}
}
**感想 [#u21ea699]
簡単な曲だが、音の長さや間隔を調節するのが大変だった。
ページ名: