[[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;                   //曲を止める
 }



トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS