- 追加された行はこの色です。
- 削除された行はこの色です。
[[2005/A3]]
*演奏するロボット 作成:tatsu [#f193670b]
**曲名:翼をください サビ [#u58e6ac3]
**曲名:翼をください サビ [#k7657855]
最初は速いが、だんだん遅くなり曲がわかるようになる[#u58e6ac3]
***プログラム [#mc7094de]
#define A 3
#define B 2
#define A 1
#define C 2
int B=3;
#define Do 1109 #ド
#define Re 1175
#define Mi 659
#define Fa 740 #ファ
#define So 831 #ソ
#define Ra 880
#define Si 988
task play_music() {
while (true){
PlayTone(Ra,40/A);Wait(25/B);
PlayTone(Si,40/A);Wait(25/B);
PlayTone(Do,40/A);Wait(25/B);
PlayTone(Do,40/A);Wait(25/B);
PlayTone(Re,20/A);Wait(20/B);
PlayTone(Do,60/A);Wait(20/B);
PlayTone(Si,80/A);Wait(45/B);
PlayTone(Do,40/A);Wait(25/B);
PlayTone(Si,40/A);Wait(25/B);
PlayTone(Ra,40/A);Wait(25/B);
PlayTone(Ra,40/A);Wait(25/B);
PlayTone(Si,20/A);Wait(20/B);
PlayTone(Ra,60/A);Wait(20/B);
PlayTone(So,80/A);Wait(45/B);
PlayTone(So,40/A);Wait(35/B);
PlayTone(Mi,40/A);Wait(35/B);
PlayTone(Fa,80/A);Wait(25/B);
PlayTone(Ra,40/A);Wait(25/B);
PlayTone(Fa,40/A);Wait(25/B);
PlayTone(Mi,80/A);Wait(35/B);
PlayTone(Ra,80/A);Wait(35/B);
PlayTone(Si,240/A);Wait(240/B);
}
repeat (3){
PlayTone(Ra,40/A);Wait(25/B);SendMessage(A)
PlayTone(Si,40/A);Wait(25/B);SendMessage(C)
PlayTone(Do,40/A);Wait(25/B);SendMessage(A)
PlayTone(Do,40/A);Wait(25/B);SendMessage(C)
PlayTone(Re,20/A);Wait(20/B);SendMessage(A)
PlayTone(Do,60/A);Wait(20/B);SendMessage(C)
PlayTone(Si,80/A);Wait(45/B);SendMessage(A)
PlayTone(Do,40/A);Wait(25/B);SendMessage(C)
PlayTone(Si,40/A);Wait(25/B);SendMessage(A)
PlayTone(Ra,40/A);Wait(25/B);SendMessage(C)
PlayTone(Ra,40/A);Wait(25/B);SendMessage(A)
PlayTone(Si,20/A);Wait(20/B);SendMessage(C)
PlayTone(Ra,60/A);Wait(20/B);SendMessage(A)
PlayTone(So,80/A);Wait(45/B);SendMessage(C)
PlayTone(So,40/A);Wait(35/B);SendMessage(A)
PlayTone(Mi,40/A);Wait(35/B);SendMessage(C)
PlayTone(Fa,80/A);Wait(25/B);SendMessage(A)
PlayTone(Ra,40/A);Wait(25/B);SendMessage(C)
PlayTone(Fa,40/A);Wait(25/B);SendMessage(A)
PlayTone(Mi,80/A);Wait(35/B);SendMessage(C)
PlayTone(Ra,80/A);Wait(35/B);SendMessage(A)
PlayTone(Si,240/A);Wait(240/B);SendMessage(C)
B=B-1; }
}
task main() {start play_music;}
task main() {start play_music;
until(false);}
}
**コメントをお願いします [#b8a3dfea]
-見ました。 -- [[ゆん(TA)]] &new{2006-02-02 (木) 17:36:19};
#comment