2005/C1/音楽を演奏・指揮するロボット の履歴ソース(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 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/宇佐美]]

*指揮をとり、輪唱するロボット（カエルのうた）：制作途中 [#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]
　未だ制作途中。輪唱し始めてほしいときにちゃんと通信できるかが鍵。
　これから調整していきたい。
　ちなみに指揮は２拍子。

#comment