[[2005/A3]]

*演奏するロボット 作成:tatsu [#f193670b]
**曲名:翼をください サビ [#k7657855]
 最初は速いが、だんだん遅くなり曲がわかるようになる[#u58e6ac3]
***プログラム [#mc7094de]
#define A 1
#define C 2

int B=3;
#define Do 1109 #ド
#define Re 1175 
#define Mi 659
#define Fa 740 #ファ 
#define So 831 #ソ
#define Ra 880
#define Si 988
 task play_music() {
   repeat (3){
            PlayTone(Ra,40/A);Wait(25/B);SendMessage(A)
            PlayTone(Si,40/A);Wait(25/B);SendMessage(C)
            PlayTone(Do,40/A);Wait(25/B);SendMessage(A)
            PlayTone(Do,40/A);Wait(25/B);SendMessage(C)
            PlayTone(Re,20/A);Wait(20/B);SendMessage(A)
            PlayTone(Do,60/A);Wait(20/B);SendMessage(C)
            PlayTone(Si,80/A);Wait(45/B);SendMessage(A)
            PlayTone(Do,40/A);Wait(25/B);SendMessage(C)
            PlayTone(Si,40/A);Wait(25/B);SendMessage(A)
            PlayTone(Ra,40/A);Wait(25/B);SendMessage(C)
            PlayTone(Ra,40/A);Wait(25/B);SendMessage(A)
            PlayTone(Si,20/A);Wait(20/B);SendMessage(C)
            PlayTone(Ra,60/A);Wait(20/B);SendMessage(A)
            PlayTone(So,80/A);Wait(45/B);SendMessage(C)
            PlayTone(So,40/A);Wait(35/B);SendMessage(A)
            PlayTone(Mi,40/A);Wait(35/B);SendMessage(C)
            PlayTone(Fa,80/A);Wait(25/B);SendMessage(A)
            PlayTone(Ra,40/A);Wait(25/B);SendMessage(C)
            PlayTone(Fa,40/A);Wait(25/B);SendMessage(A)
            PlayTone(Mi,80/A);Wait(35/B);SendMessage(C)
            PlayTone(Ra,80/A);Wait(35/B);SendMessage(A)
            PlayTone(Si,240/A);Wait(240/B);SendMessage(C)
         B=B-1;                                   }
                                             }
    task main() {start play_music;
                  until(false);}

}
**コメントをお願いします [#b8a3dfea]
-見ました。 -- [[ゆん(TA)]] &new{2006-02-02 (木) 17:36:19};

#comment

トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS