2004/C7/練習問題5-47班は…
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
[[2004/C7/演奏ロボット(必須)]]
一山 カナコ
#define l_Mi 330
#define l_Fa 349
#define l_Sol 392
#define l_Sol_ 415
#define l_La 440
#define Do 523
#define Do_ 554
#define Re 587
#define Re_ 662
#define Mi 659
#define Fa 698
#define Fa_ 740
#define Sol 784
#define Sol_ 831
#define La 880
#define Si 988
#define h_Do 1047
#define A 30
#define A_ 26
#define B 15
#define B_ 11
#define C 22
#define C_ 18
#define D 8
#define D_ 4
#define E 90
#define E_ 86
task music_kaby()
{
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(A);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(A);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(A);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Sol_,B_); Wait(B);
PlayTone(Sol_,A_); Wait(A);
repeat(2)
{
PlayTone(l_Sol,C_); Wait(C);
PlayTone(l_Sol,D_); Wait(D);
PlayTone(Do,E_); Wait(E);
PlayTone(Do,C_); Wait(C);
PlayTone(Mi,D_); Wait(D);
PlayTone(Sol,B_); Wait(B);
PlayTone(h_Do,B_); Wait(B);
PlayTone(Si,B_); Wait(B);
PlayTone(La,B_); Wait(B);
PlayTone(Sol,A_); Wait(A);
PlayTone(Mi,C_); Wait(C);
PlayTone(Sol,D_); Wait(D);
PlayTone(Fa,A_); Wait(A);
PlayTone(Re,C_); Wait(C);
PlayTone(Mi,D_); Wait(D);
PlayTone(Re,A_); Wait(A);
PlayTone(Mi,C_); Wait(C);
PlayTone(Re,D_); Wait(D);
PlayTone(Do,E_); Wait(E);
}
PlayTone(Do,B_); Wait(B);
PlayTone(Do,B_); Wait(B);
PlayTone(Re,B_); Wait(B);
PlayTone(Mi,A_); Wait(A);
PlayTone(Do,B_); Wait(B);
PlayTone(Re,B_); Wait(B);
PlayTone(Do,E_); Wait(E);
}
task music_inoki()
{
while(true)
{
PlayTone(Sol,E_); Wait(E);
PlayTone(l_Sol,A_); Wait(A);
PlayTone(l_La,E_); Wait(E);
PlayTone(Sol,A_); Wait(A);
PlayTone(Fa,E_); Wait(E);
PlayTone(l_Fa,A_); Wait(A);
PlayTone(l_Sol,E_); Wait(E);
Wait(A);
PlayTone(Mi,E_); Wait(E);
PlayTone(l_Mi,A_); Wait(A);
PlayTone(l_Fa,E_); Wait(E);
PlayTone(Re,A_); Wait(A);
PlayTone(Do,E_); Wait(E);
PlayTone(l_Mi,A_); Wait(A);
PlayTone(l_Fa,E_); Wait(E);
Wait(A);
}
}
task main()
{
SetSensor(SENSOR_1,SENSOR_TOUCH);
until(SENSOR_1 == 1)
{
start music_kaby;
OnRev(OUT_A+OUT_C);
}
start music_inoki;
OnFwd(OUT_A+OUT_C);
}
ファミコン盤星のカービーの夢の泉というステージのバックミュージック。。懐かしい。。
もう一つは、燃える闘魂猪木のテーマソング。。熱いです。
終了行:
[[2004/C7/演奏ロボット(必須)]]
一山 カナコ
#define l_Mi 330
#define l_Fa 349
#define l_Sol 392
#define l_Sol_ 415
#define l_La 440
#define Do 523
#define Do_ 554
#define Re 587
#define Re_ 662
#define Mi 659
#define Fa 698
#define Fa_ 740
#define Sol 784
#define Sol_ 831
#define La 880
#define Si 988
#define h_Do 1047
#define A 30
#define A_ 26
#define B 15
#define B_ 11
#define C 22
#define C_ 18
#define D 8
#define D_ 4
#define E 90
#define E_ 86
task music_kaby()
{
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(A);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(A);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(A);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Fa_,B_); Wait(B);
PlayTone(Sol_,B_); Wait(B);
PlayTone(Sol_,A_); Wait(A);
repeat(2)
{
PlayTone(l_Sol,C_); Wait(C);
PlayTone(l_Sol,D_); Wait(D);
PlayTone(Do,E_); Wait(E);
PlayTone(Do,C_); Wait(C);
PlayTone(Mi,D_); Wait(D);
PlayTone(Sol,B_); Wait(B);
PlayTone(h_Do,B_); Wait(B);
PlayTone(Si,B_); Wait(B);
PlayTone(La,B_); Wait(B);
PlayTone(Sol,A_); Wait(A);
PlayTone(Mi,C_); Wait(C);
PlayTone(Sol,D_); Wait(D);
PlayTone(Fa,A_); Wait(A);
PlayTone(Re,C_); Wait(C);
PlayTone(Mi,D_); Wait(D);
PlayTone(Re,A_); Wait(A);
PlayTone(Mi,C_); Wait(C);
PlayTone(Re,D_); Wait(D);
PlayTone(Do,E_); Wait(E);
}
PlayTone(Do,B_); Wait(B);
PlayTone(Do,B_); Wait(B);
PlayTone(Re,B_); Wait(B);
PlayTone(Mi,A_); Wait(A);
PlayTone(Do,B_); Wait(B);
PlayTone(Re,B_); Wait(B);
PlayTone(Do,E_); Wait(E);
}
task music_inoki()
{
while(true)
{
PlayTone(Sol,E_); Wait(E);
PlayTone(l_Sol,A_); Wait(A);
PlayTone(l_La,E_); Wait(E);
PlayTone(Sol,A_); Wait(A);
PlayTone(Fa,E_); Wait(E);
PlayTone(l_Fa,A_); Wait(A);
PlayTone(l_Sol,E_); Wait(E);
Wait(A);
PlayTone(Mi,E_); Wait(E);
PlayTone(l_Mi,A_); Wait(A);
PlayTone(l_Fa,E_); Wait(E);
PlayTone(Re,A_); Wait(A);
PlayTone(Do,E_); Wait(E);
PlayTone(l_Mi,A_); Wait(A);
PlayTone(l_Fa,E_); Wait(E);
Wait(A);
}
}
task main()
{
SetSensor(SENSOR_1,SENSOR_TOUCH);
until(SENSOR_1 == 1)
{
start music_kaby;
OnRev(OUT_A+OUT_C);
}
start music_inoki;
OnFwd(OUT_A+OUT_C);
}
ファミコン盤星のカービーの夢の泉というステージのバックミュージック。。懐かしい。。
もう一つは、燃える闘魂猪木のテーマソング。。熱いです。
ページ名: