[[2005/A4/課題5]]

#define Do  523
#define Re  587
#define Mi  659
#define Fa  698
#define Sol 392

task main() 
{
        while (true)
    {
        PlayTone(Sol,60); Wait(10);

        PlayTone(Do,180); 
        PlayTone(Re,20); 
        PlayTone(Sol,20); 
        PlayTone(Re,20);
       
        PlayTone(Mi,180); 
        Wait(60);
        PlayTone(Mi,20); 
        PlayTone(Fa,20); 
        PlayTone(Re,20);
        PlayTone(Mi,60);
        Wait(30);
        PlayTone(Re,30); 
        PlayTone(Do,60);      
        Wait(60);

        PlayTone(Re,30); 
        PlayTone(Mi,30); 
        PlayTone(Mi,45); 
        PlayTone(Re,15); 
        PlayTone(Do,60); 

        PlayTone(Re,30); Wait(20);
        PlayTone(Mi,30); Wait(10);
        PlayTone(Mi,60); Wait(10);
        PlayTone(Re,30); Wait(20);
        PlayTone(Mi,30); Wait(10);
        PlayTone(Mi,60); Wait(10);

        PlayTone(Re,20); 
        PlayTone(Mi,20); 
        PlayTone(Re,20); 
        PlayTone(Do,180); 
        Wait(20);
    }
}

トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS