[[2004/A2/練習問題]

&size(20){ver.1};
#define Do  523
#define Re  587
#define Mi  659
#define Fa  698
#define Sol 784

task play_music()  
{
    while (true)
    {
        PlayTone(Mi,25); Wait(30);  
        PlayTone(Re, 5); Wait(10);  
        PlayTone(Do,15); Wait(20);  
        PlayTone(Re,15); Wait(20);

        PlayTone(Mi,15); Wait(20);
        PlayTone(Mi,15); Wait(20);
        PlayTone(Mi,35); Wait(40);

        PlayTone(Re,15); Wait(20);
        PlayTone(Re,15); Wait(20);
        PlayTone(Re,35); Wait(40);

        PlayTone(Mi,15); Wait(20);
        PlayTone(Sol,15); Wait(20);
        PlayTone(Sol,35); Wait(40);

        PlayTone(Mi,25); Wait(30);
        PlayTone(Re, 5); Wait(10);
        PlayTone(Do,15); Wait(20);
        PlayTone(Re,15); Wait(20);

        PlayTone(Mi,15); Wait(20);
        PlayTone(Mi,15); Wait(20);
        PlayTone(Mi,35); Wait(40);

        PlayTone(Re,15); Wait(20);
        PlayTone(Re,15); Wait(20);
        PlayTone(Mi,25); Wait(30);
        PlayTone(Re, 5); Wait(10);
        PlayTone(Do,55); Wait(60);
        Wait(20);
    }
}

task main()
{
    SetSensor(SENSOR_1, SENSOR_TOUCH);
    while(true)
   {
    start play_music ;    
    OnFwd(OUT_B);   
    until (SENSOR_1 == 1);
    stop play_music;
    PlaySound(SOUND_DOUBLE_BEEP);
    OnRev(OUT_B);
    Wait(300);}

}

トップ   編集 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS