2005/A3

演奏するロボット 作成:tatsu

曲名:翼をください サビ

 最初は速いが、だんだん遅くなり曲がわかるようになる[#u58e6ac3]

プログラム

#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);}

}

コメントをお願いします



トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-02-02 (木) 17:36:19