[[2006a/C2/課題3左]]
#hr
CENTER:&size(25){ねこふんじゃったを演奏するプログラム };
#hr
 
RIGHT:カウンタ&counter;
RIGHT:[[ロボティクス入門ゼミ]]
RIGHT:[[2006a/C2/課題3左に戻る>2006a/C2/課題3左#kadai3kyokusyoukai]]




 #define Do 523
 #define Re 587
 #define Mi 659
 #define Fa 698
 #define So 784
 #define Ra 880
 #define Si 988
 #define Do2 1047
 
 task music(){
     while(1){
        Wait(20);
        PlayTone(Ra,5); Wait(10);
        PlayTone(So,5); Wait(10);
        PlayTone(Do,15); Wait(20);
        PlayTone(Do2,5); Wait(20);
        PlayTone(Do2,5); Wait(20);
 
        PlayTone(Ra,5); Wait(10);
        PlayTone(So,5); Wait(10);
        PlayTone(Do,15); Wait(15);
        PlayTone(Do2,5); Wait(20);
        PlayTone(Do2,5); Wait(20);
 
        PlayTone(Ra,5); Wait(10);
        PlayTone(So,5); Wait(10);
        PlayTone(Do,15); Wait(20);
        PlayTone(Do2,15); Wait(20);
        PlayTone(So,15); Wait(20);
        PlayTone(Do2,15); Wait(20);
        PlayTone(Ra,15); Wait(20);
        PlayTone(Si,5); Wait(20);
        PlayTone(Si,5); Wait(20);
 
        PlayTone(Ra,5); Wait(10);
        PlayTone(So,5); Wait(10);
        PlayTone(Re,15); Wait(20);
        PlayTone(Si,5); Wait(20);
        PlayTone(Si,5); Wait(20);
 
        PlayTone(Ra,5); Wait(10);
        PlayTone(So,5); Wait(10);
        PlayTone(Re,15); Wait(20);
        PlayTone(Si,5); Wait(20);
        PlayTone(Si,5); Wait(20);
 
        PlayTone(Ra,5); Wait(10);
        PlayTone(So,5); Wait(10);
        PlayTone(Re,15); Wait(20);
        PlayTone(Si,15); Wait(20);
        PlayTone(Ra,15); Wait(20);
        PlayTone(Si,15); Wait(20);
        PlayTone(Do2,5); Wait(20);
        PlayTone(Do2,5); Wait(20);
        PlayTone(Do2,5); Wait(20);
    }
 }
----------
RIGHT:[[ロボティクス入門ゼミ]]
RIGHT:[[2006a/C2/課題3左に戻る>2006a/C2/課題3左#kadai3kyokusyoukai]]


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