2004/A6/練習問題

#define Do 262

#define Re 294

#define Mi 330

#define Fa 349

#define sol 392

#define Ra 440

#define Si 494

task play_music()

{

  while(true)
  {
     PlayTone(Do, 5); Wait(50); 
     PlayTone(Ra, 5); Wait(50); 
     PlayTone(Ra, 5); Wait(50); 
     PlayTone(Ra, 5); Wait(50);
     PlayTone(Re, 5); Wait(50); 
     PlayTone(Si, 5); Wait(50); 
     PlayTone(Do, 5); Wait(50); 
     Wait(100);
  }

}

task main()

{

  SetSensor(SENSOR_1,SENSOR_TOUCH)
  start play_music ;
  OnFwd(OUT_A);
  until (SENSOR_1 == 1);
 
  stop play_music ;

  Off(OUT_A);

}

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-03-01 (火) 15:48:10