2006a/A3/練習プログラム の履歴の現在との差分(No.1)

• 履歴一覧
• 差分 を表示
• ソース を表示
• 2006a/A3/練習プログラム へ行く。
  • 1 (2006-05-12 (金) 04:49:20)
  • 2 (2006-05-12 (金) 05:03:28)

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

[[ロボティクス入門ゼミ]]

* 5/12の勉強ノート [#mdc8de4e]
 
**趣味 [#na4fb874]
 -バスケットボール
 -睡眠
*チュウリップの歌 [#vfe40493]
 #define Do   523
 #define Re    587
 #define Mi     659
 #define Fa    698
 #define So    784
 #define Ra    880
 
 task play_music()
 {
      while (true)
      {
          PlayTone(Do,20); Wait(25);
          PlayTone(Re,20); Wait(25);
          PlayTone(Mi,40); Wait(45);
          PlayTone(Do,20); Wait(25);
          PlayTone(Re,20); Wait(25);
          PlayTone(Mi,40); Wait(45);
          PlayTone(So,20); Wait(25);
          PlayTone(Mi,20); Wait(25);
          PlayTone(Re,20); Wait(25);
          PlayTone(Do,20); Wait(25);
          PlayTone(Re,20); Wait(25);
          PlayTone(Mi,20); Wait(25);
          PlayTone(Re,20); Wait(25);
          PlayTone(Do,20); Wait(25);
          PlayTone(Re,20); Wait(25);
          PlayTone(Mi,40); Wait(45);
          PlayTone(Do,20); Wait(25);
          PlayTone(Re,20); Wait(25);
          PlayTone(Mi,40); Wait(45);
          PlayTone(So,20); Wait(25);
          PlayTone(Mi,20); Wait(25);
          PlayTone(Re,20); Wait(25);
          PlayTone(Do,20); Wait(25);
          PlayTone(Re,20); Wait(25);
          PlayTone(Mi,20); Wait(25);
          PlayTone(Do,40);  Wait(45);
          Wait(20);
          }
          }
          task main()
          {
               SetSensor(SENSOR_1, SENSOR_TOUCH);
               
               start play_music ;
               OnFwd(OUT_A+OUT_B);
               
               until (SENSOR_1 == 1);
               stop play_music ;
               Off(OUT_A+OUT_B);
               }