2005/A3/課題５右 の履歴差分(No.4)

• 履歴一覧
• 現在との差分 を表示
• ソース を表示
• 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);}






** [#x7ab187c]
int aa,A=6; [#v27950da]
int B=4;  
#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){
           int x=40;
            PlayTone(Ra,SENSOR_1);Wait(25/B);
            PlayTone(Si,40);Wait(25/B);
            PlayTone(Do,40);Wait(25/B);
            PlayTone(Do,40);Wait(25/B);
            PlayTone(Re,20);Wait(20/B);
            PlayTone(Do,60);Wait(20/B);
            PlayTone(Si,80);Wait(45/B);
            PlayTone(Do,40);Wait(25/B);
            PlayTone(Si,40);Wait(25/B);
            PlayTone(Ra,40);Wait(25/B);
            PlayTone(Ra,40);Wait(25/B);
            PlayTone(Si,20);Wait(20/B);
            PlayTone(Ra,60);Wait(20/B);
            PlayTone(So,80);Wait(45/B);
            PlayTone(So,40);Wait(35/B);
            PlayTone(Mi,40);Wait(35/B);
            PlayTone(Fa,80);Wait(25/B);
            PlayTone(Ra,40);Wait(25/B);
            PlayTone(Fa,40);Wait(25/B);
            PlayTone(Mi,80);Wait(35/B);
            PlayTone(Ra,80);Wait(35/B);
            PlayTone(Si,240);Wait(240);
            
	    aa=aa-1;
            B=B-1;
     }
}

task main() 
{  
   SetSensor(SENSOR_1,SENSOR_LIGHT);           
   start play_music;
   until(false); 
   
}
**コメントをお願いします [#b8a3dfea]
#comment