2004/B2/演奏するロボット

#define Do 523
#define Dos 554
#define Re 587
#define Res 622
#define Mi 659
#define Fa 698
#define Fas 740
#define So 784
#define Sos 831
#define Ra 880
#define Ras 932
#define Si 988
#define DO 1047
#define RE  1175
task play_music(){
P layTone(So,20);Wait(40);
PlayTone(So,20);Wait(25);
PlayTone(Do,50);Wait(50);
PlayTone(Re,50);Wait(50);
PlayTone(Mi,50);Wait(50);
PlayTone(Fa,50);Wait(50);
PlayTone(So,40);Wait(60);
PlayTone(DO,80);Wait(100);
PlayTone(Si,40);Wait(40);
PlayTone(Ra,20);Wait(25);
PlayTone(Ra,50);Wait(60);
PlayTone(So,30);Wait(50);
PlayTone(Fas,30);Wait(35);
PlayTone(Fas,30);Wait(30);
PlayTone(Ra,30);Wait(30);
PlayTone(So,50);Wait(50);
PlayTone(Mi,50);Wait(80);
PlayTone(Mi,20);Wait(40);
PlayTone(Mi,20);Wait(25);
PlayTone(Mi,50);Wait(55);
PlayTone(Mi,50);Wait(50);
PlayTone(Fas,50);Wait(50);
PlayTone(Sos,50);Wait(50);
PlayTone(Ra,50);Wait(60);
PlayTone(Ra,30);Wait(30);
PlayTone(Si,30);Wait(30);
PlayTone(DO,30);Wait(30);
PlayTone(RE,60);Wait(80);
PlayTone(Ra,30);Wait(35);
PlayTone(Ra,30);Wait(30);
PlayTone(RE,25);Wait(30);
PlayTone(RE,50);Wait(50);
PlayTone(DO,50);Wait(50);
PlayTone(Si,50);Wait(50);
PlayTone(Ra,50);Wait(50);

}


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