2004/A5/演奏するロボット の履歴差分(No.1)

• 履歴一覧
• 現在との差分 を表示
• ソース を表示
• 2004/A5/演奏するロボット へ行く。
  • 1 (2005-01-07 (金) 07:16:48)

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

[[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 ;
}