2005/A3/課題５右 の履歴ソース(No.3)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 2005/A3/課題５右 へ行く。
  • 1 (2005-12-07 (水) 11:17:48)
  • 2 (2005-12-07 (水) 11:21:33)
  • 3 (2005-12-15 (木) 14:38:54)
  • 4 (2005-12-16 (金) 07:50:27)
  • 5 (2005-12-31 (土) 10:14:49)

[[2005/A3]]

*演奏するロボット　作成：tatsu [#f193670b]
**曲名：翼をください　サビ [#k7657855]
　最初は速いが、だんだん遅くなり曲がわかるようになる[#u58e6ac3]
***プログラム [#mc7094de]
#define A 3
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);
            PlayTone(Si,40/A);Wait(25/B);
            PlayTone(Do,40/A);Wait(25/B);
            PlayTone(Do,40/A);Wait(25/B);
            PlayTone(Re,20/A);Wait(20/B);
            PlayTone(Do,60/A);Wait(20/B);
            PlayTone(Si,80/A);Wait(45/B);
            PlayTone(Do,40/A);Wait(25/B);
            PlayTone(Si,40/A);Wait(25/B);
            PlayTone(Ra,40/A);Wait(25/B);
            PlayTone(Ra,40/A);Wait(25/B);
            PlayTone(Si,20/A);Wait(20/B);
            PlayTone(Ra,60/A);Wait(20/B);
            PlayTone(So,80/A);Wait(45/B);
            PlayTone(So,40/A);Wait(35/B);
            PlayTone(Mi,40/A);Wait(35/B);
            PlayTone(Fa,80/A);Wait(25/B);
            PlayTone(Ra,40/A);Wait(25/B);
            PlayTone(Fa,40/A);Wait(25/B);
            PlayTone(Mi,80/A);Wait(35/B);
            PlayTone(Ra,80/A);Wait(35/B);
            PlayTone(Si,240/A);Wait(240/B);
         B=B-1;                                   }
                                             }
    task main() {start play_music;
                  until(false);}