2004/A5/練習問題

#define A3 587
#define E  659
#define E1 740
#define E2 784                                                  
#define E3 880
#define A 440
task play_music() //  第九演奏タスク
{
 while(true)
  {
   PlayTone(E1,40);Wait(40);
   PlayTone(E1,40);Wait(40);
   PlayTone(E2,40);Wait(40);
   PlayTone(E3,40);Wait(40);
   PlayTone(E3,40);Wait(40);
   PlayTone(E2,40);Wait(40);
   PlayTone(E1,40);Wait(40);
   PlayTone(E,40);Wait(40);
   PlayTone(A3,40);Wait(40);
   PlayTone(A3,40);Wait(40);
   PlayTone(E,40);Wait(40);
   PlayTone(E1,40);Wait(40);
   PlayTone(E1,60);Wait(60);
   PlayTone(E,20);Wait(40);
   PlayTone(E,60);Wait(80);
   PlayTone(E1,40);Wait(40);
   PlayTone(E1,40);Wait(40);
   PlayTone(E2,40);Wait(40);
   PlayTone(E3,40);Wait(40);
   PlayTone(E3,40);Wait(40);
   PlayTone(E2,40);Wait(40);
   PlayTone(E1,40);Wait(40);
   PlayTone(E,40);Wait(40);
   PlayTone(A3,40);Wait(40);
   PlayTone(A3,40);Wait(40);
   PlayTone(E,40);Wait(40);
   PlayTone(E1,40);Wait(40);
   PlayTone(E,60);Wait(40);
   PlayTone(A3,20);Wait(40);
   PlayTone(A3,80);Wait(40);
   PlayTone(E,40);Wait(40);//ここから後半
   PlayTone(E,40);Wait(40);
   PlayTone(E1,40);Wait(40);
   PlayTone(A3,40);Wait(40);
   PlayTone(E,40);Wait(40); 
   PlayTone(E1,20);Wait(20);
   PlayTone(E2,20);Wait(20);
   PlayTone(E1,40);Wait(40);
   PlayTone(A3,40);Wait(40);
   PlayTone(E,40);Wait(40); 
   PlayTone(E1,20);Wait(20);
   PlayTone(E2,20);Wait(20);
   PlayTone(E1,40);Wait(40);
   PlayTone(E,40);Wait(40); 
   PlayTone(A3,40);Wait(40);
   PlayTone(E,40);Wait(40); 
   PlayTone(A,40);Wait(80);
   PlayTone(E1,40);Wait(40);//もう一回テーマ
   PlayTone(E1,40);Wait(40);
   PlayTone(E2,40);Wait(40);
   PlayTone(E3,40);Wait(40);
   PlayTone(E3,40);Wait(40);
   PlayTone(E2,40);Wait(40);
   PlayTone(E1,40);Wait(40);
   PlayTone(E,40);Wait(40);
   PlayTone(A3,40);Wait(40);
   PlayTone(A3,40);Wait(40);
   PlayTone(E,40);Wait(40);
   PlayTone(E1,40);Wait(40);
   PlayTone(E,60);Wait(40);
   PlayTone(A3,20);Wait(40);
   PlayTone(A3,80);Wait(40);  
}
 }
 task main()
 { 
   SetSensor(SENSOR_1, SENSOR_LIGHT);
   start play_music ; 
   OnFwd(OUT_C);
   until (SENSOR_1 < 40) ;   
   Off(OUT_C);  
   stop play_music ;
}

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