2005/C1/音楽を演奏・指揮するロボット の履歴差分(No.3)

• 履歴一覧
• 現在との差分 を表示
• ソース を表示
• 2005/C1/音楽を演奏・指揮するロボット へ行く。
  • 1 (2006-02-06 (月) 08:09:47)
  • 2 (2006-02-06 (月) 08:23:59)
  • 3 (2006-02-07 (火) 04:02:44)
  • 4 (2006-02-08 (水) 00:38:26)
  • 5 (2006-02-08 (水) 17:30:47)

• 追加された行はこの色です。
• 削除された行はこの色です。

[[2005/C1/宇佐美]]

#contents

*音楽を演奏するロボット（カエルのうた）:制作途中 [#u01ce26b]
**制作者 [#b3fc3b9b]
　　C１一同

**プログラム [#y10357bf]
 #define Do    523
 #define Re    587
 #define Mi     659
 #define Fa     698
 #define So     784
 #define La     881
 task  play_music()
 {        
                 PlayTone(Do,50); Wait(55);
                 PlayTone(Re,50); Wait(55);
                 PlayTone(Mi,50); Wait(55);
                 PlayTone(Fa,50); Wait(55);
                 PlayTone(Mi,50); Wait(55);
                 PlayTone(Re,50); Wait(55);
                 PlayTone(Do,50); Wait(55);
                 Wait(55);
                 PlayTone(Mi,50); Wait(55);
                 PlayTone(Fa,50); Wait(55);
                 PlayTone(So,50); Wait(55);
                 PlayTone(La,50); Wait(55);
                 PlayTone(So,50); Wait(55);
                 PlayTone(Fa,50); Wait(55);
                 PlayTone(Mi,50); Wait(55);
                 Wait(55);
                 PlayTone(Do,50); Wait(55);
                 Wait(55);
                 PlayTone(Do,50); Wait(55);
                 Wait(55);
                 PlayTone(Do,50); Wait(55);
                 Wait(55);
                 PlayTone(Do,50); Wait(55);
                 Wait(55);
                 PlayTone(Do,50); Wait(55);
                 PlayTone(Re,50); Wait(55);
                 PlayTone(Mi,50); Wait(55);
                 PlayTone(Fa,50); Wait(55);
                 PlayTone(Mi,50); Wait(55);
                 PlayTone(Re,50); Wait(55);
                 PlayTone(Do,50); Wait(55);
                 Wait(55);
 }
 task message_send
 {　
            ClearTimer(0);
            while( 20<=Timer(0) <=425 ) { SendMessage(1); }
 }
 task main()
 {
               start play_music;
               start message_send;
               OnFwd(OUT_A);
               OnRev(OUT_C);
               Wait(425);
               Off(OUT_A+OUT_C);
               
               OnFwd(OUT_C);
               OnRev(OUT_A);
               Wait(425);
               Off(OUT_A+OUT_C);
               
               OnFwd(OUT_A);
               OnRev(OUT_C);
               Wait(55);
               Off(OUT_A+OUT_C);
               
               OnFwd(OUT_C);
               OnRev(OUT_A);
               Wait(55);
               Off(OUT_A+OUT_C);
               
               OnFwd(OUT_A);
               OnRev(OUT_C);
               Wait(55);
               Off(OUT_A+OUT_C);
               
               OnFwd(OUT_C);
               OnRev(OUT_A);
               Wait(55);
               Off(OUT_A+OUT_C);
               
               OnFwd(OUT_A);
               OnRev(OUT_C);
               Wait(212);
               Off(OUT_A+OUT_C);
               
               OnFwd(OUT_C);
               OnRev(OUT_A);
               Wait(212);
               Off(OUT_A+OUT_C);              
 }
**感想 [#y966c0fa]
　未だ制作途中。踊りは簡単なものだが、曲にばっちり合う予定。
　ロボコンが終わってから２体に分解して完成させたい。

*指揮をとり、輪唱するロボット（カエルのうた）：制作途中 [#o01c1811]
**制作者 [#w265d94f]
　C１一同
**プログラム [#hc07f44a]
 #define Do    523
 #define Re    587
 #define Mi     659
 #define Fa     698
 #define So     784
 #define La     881
 #define shiki OnFwd(OUT_B); Wait(55); Off(OUT_B);  OnRev(OUT_B); Wait(55); Off(OUT_B);
 task  play_music()
 {        
                 PlayTone(Do,50); Wait(55);
                 PlayTone(Re,50); Wait(55);
                 PlayTone(Mi,50); Wait(55);
                 PlayTone(Fa,50); Wait(55);
                 PlayTone(Mi,50); Wait(55);
                 PlayTone(Re,50); Wait(55);
                 PlayTone(Do,50); Wait(55);
                 Wait(55);
                 PlayTone(Mi,50); Wait(55);
                 PlayTone(Fa,50); Wait(55);
                 PlayTone(So,50); Wait(55);
                 PlayTone(La,50); Wait(55);
                 PlayTone(So,50); Wait(55);
                 PlayTone(Fa,50); Wait(55);
                 PlayTone(Mi,50); Wait(55);
                 Wait(55);
                 PlayTone(Do,50); Wait(55);
                 Wait(55);
                 PlayTone(Do,50); Wait(55);
                 Wait(55);
                 PlayTone(Do,50); Wait(55);
                 Wait(55);
                 PlayTone(Do,50); Wait(55);
                 Wait(55);
                 PlayTone(Do,50); Wait(55);
                 PlayTone(Re,50); Wait(55);
                 PlayTone(Mi,50); Wait(55);
                 PlayTone(Fa,50); Wait(55);
                 PlayTone(Mi, 50); Wait(55);
                 PlayTone(Re,50); Wait(55);
                 PlayTone(Do,50); Wait(55);
                 Wait(55);
 }
 task main()
 {
              ClearMessage();
              repeat(32){
              shiki;
              } 
              until(Message() !=1);
              
              if( Message() == 1 ) play_music;
 }

**感想 [#t0cd65a7]
　未だ制作途中。輪唱し始めてほしいときにちゃんと通信できるかが鍵。
　これから調整していきたい。
　ちなみに指揮は２拍子。
-期待しています -- [[かとりーぬ（ＴＡ）]] &new{2006-02-07 (火) 13:02:43};

#comment