- 追加された行はこの色です。
- 削除された行はこの色です。
[[2006a/C3/課題3左]]
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define So 784
#define Ra 880
作成者:西日暮里 (キラキラ星・・・著作権は大丈夫だと思います^^;)
#define Do 523 //ドを定義
#define Re 587 //レを定義
#define Mi 659 //ミを定義
#define Fa 698 //ファを定義
#define So 784 //ソを定義
#define Ra 880 //ラを定義
task play_music()
{
while (true)
{
PlayTone(Do,30); Wait(40);
PlayTone(Do,30); Wait(40);
PlayTone(So,30); Wait(40);
PlayTone(So,30); Wait(40);
PlayTone(Ra,30); Wait(40);
PlayTone(Ra,30); Wait(40);
PlayTone(So,70); Wait(80);
PlayTone(Fa,30); Wait(40);
PlayTone(Fa,30); Wait(40);
PlayTone(Mi,30); Wait(40);
PlayTone(Mi,30); Wait(40);
PlayTone(Re,30); Wait(40);
PlayTone(Re,30); Wait(40);
PlayTone(Do,70); Wait(80);
PlayTone(Do,30); Wait(40); //ドを0,3秒鳴らし、次の音にいくまで0,4秒待つ
PlayTone(Do,30); Wait(40); //ド
PlayTone(So,30); Wait(40); //ソ
PlayTone(So,30); Wait(40); //ソ
PlayTone(Ra,30); Wait(40); //ラ
PlayTone(Ra,30); Wait(40); //ラ
PlayTone(So,70); Wait(80); //ソを0,7秒鳴らし、次の音に行くまで0,8秒待つ
PlayTone(Fa,30); Wait(40); //ファ
PlayTone(Fa,30); Wait(40); //ファ
PlayTone(Mi,30); Wait(40); //ミ
PlayTone(Mi,30); Wait(40); //ミ
PlayTone(Re,30); Wait(40); //レ
PlayTone(Re,30); Wait(40); //レ
PlayTone(Do,70); Wait(80); //ド
}
}
task main()
{
start play_music;
Wait(700);
stop play_music;
start play_music; //曲を鳴らす
Wait(700); //7秒待つ
stop play_music; //曲を止める
}