2006a/C3/課題3左

作成者:西日暮里 (キラキラ星・・・著作権は大丈夫だと思います^^;)

#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);  //ドを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);                         //7秒待つ
  stop play_music;                   //曲を止める
}

作成者:中央線 カエルの歌、無難なところで。

#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define So 784
#define Ra 880

task kerokero()
{
   while (true)
   {
       PlayTone(Do,30); Wait(40);
       PlayTone(Re,30); Wait(40);
       PlayTone(Mi,30); Wait(40);
       PlayTone(Fa,30); Wait(40);
       PlayTone(Mi,30); Wait(40);
       PlayTone(Re,30); Wait(40);
       PlayTone(Do,70); Wait(80);
       PlayTone(Mi,30); Wait(40);
       PlayTone(Fa,30); Wait(40);
       PlayTone(So,30); Wait(40);
       PlayTone(Ra,30); Wait(40);
       PlayTone(So,30); Wait(40);
       PlayTone(Fa,30); Wait(40);
       PlayTone(Mi,40); Wait(80);                
       PlayTone(Do,60); Wait(70);
       PlayTone(Do,60); Wait(70);
       PlayTone(Do,60); Wait(70);
       PlayTone(Do,60); Wait(70);                
       PlayTone(Do,15); Wait(20);
       PlayTone(Do,15); Wait(20);
       PlayTone(Re,15); Wait(20);
       PlayTone(Re,15); Wait(20);
       PlayTone(Mi,15); Wait(20);
       PlayTone(Mi,15); Wait(20);
       PlayTone(Fa,15); Wait(20);
       PlayTone(Fa,15); Wait(20);
       PlayTone(Mi,30); Wait(40);
       PlayTone(Re,30); Wait(40);
       PlayTone(Do,40); Wait(50);

   }
} 
task main()
{
  start kerokero; 
  Wait(1500);                         
  stop kerokero;                   
}

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-07-07 (金) 17:11:18 (4791d)