2006a/C2/課題3左


ねこふんじゃったを演奏するプログラム 

カウンタ460
#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);
   }
}


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-07-08 (土) 17:25:02