2005/B2/課題5右
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define Sol 784
#define La 880
#define one_time 12
#define two_time 24
task play_music ()
{
while(true)
{
SendMessage(1);
PlayTone(Do,20);wait(one_time);
PlayTone(Re,20);wait(one_time);
PlayTone(Mi,20);wait(one_time);
PlayTone(Fa,20);wait(one_time);
PlayTone(Mi,20);wait(one_time);
PlayTone(Re,20);wait(one_time);
PlayTone(Do,20);wait(one_time);
wait(5);
PlayTone(Mi,20);wait(one_time);
PlayTone(Fa,20);wait(one_time);
PlayTone(Sol,20);wait(one_time);
PlayTone(La,20);wait(one_time);
PlayTone(Sol,20);wait(one_time);
PlayTone(Fa,20);wait(one_time);
PlayTone(Mi,20);wait(one_time);
wait(5);
PlayTone(Do,30);wait(two_time);
PlayTone(Do,30);wait(two_time);
PlayTone(Do,30);wait(two_time);
PlayTone(Do,30);wait(two_time);
PlayTone(Do,20);wait(one_time);
PlayTone(Re,20);wait(one_time);
PlayTone(Mi,20);wait(one_time);
PlayTone(Fa,20);wait(one_time);
PlayTone(Mi,20);wait(one_time);
PlayTone(Re,20);wait(one_time);
PlayTone(Do,20);wait(one_time);
Wait(1000);
}
}
task main ()
{
start play_music ;
}
終了行:
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define Sol 784
#define La 880
#define one_time 12
#define two_time 24
task play_music ()
{
while(true)
{
SendMessage(1);
PlayTone(Do,20);wait(one_time);
PlayTone(Re,20);wait(one_time);
PlayTone(Mi,20);wait(one_time);
PlayTone(Fa,20);wait(one_time);
PlayTone(Mi,20);wait(one_time);
PlayTone(Re,20);wait(one_time);
PlayTone(Do,20);wait(one_time);
wait(5);
PlayTone(Mi,20);wait(one_time);
PlayTone(Fa,20);wait(one_time);
PlayTone(Sol,20);wait(one_time);
PlayTone(La,20);wait(one_time);
PlayTone(Sol,20);wait(one_time);
PlayTone(Fa,20);wait(one_time);
PlayTone(Mi,20);wait(one_time);
wait(5);
PlayTone(Do,30);wait(two_time);
PlayTone(Do,30);wait(two_time);
PlayTone(Do,30);wait(two_time);
PlayTone(Do,30);wait(two_time);
PlayTone(Do,20);wait(one_time);
PlayTone(Re,20);wait(one_time);
PlayTone(Mi,20);wait(one_time);
PlayTone(Fa,20);wait(one_time);
PlayTone(Mi,20);wait(one_time);
PlayTone(Re,20);wait(one_time);
PlayTone(Do,20);wait(one_time);
Wait(1000);
}
}
task main ()
{
start play_music ;
}
ページ名: