2006a/A3

メリーさんの羊を奏でるプログラミング

#define Do 523

#define Re 587

#define Mi 659

#define Fa 698

#define So 784

#define Ra 880

#define Si 988

task play_music() {

     while  (true)
      {
          PlayTone(Do,20);  Wait(25);
          PlayTone(Do,20);  Wait(25);
          PlayTone(So,20);  Wait(25);
          PlayTone(So,20);  Wait(25);
          PlayTone(Ra,20);  Wait(25);
          PlayTone(Ra,20);  Wait(25);
          PlayTone(So,20);  Wait(25);
       }
}
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);
      }

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-07-28 (金) 13:27:30