- 追加された行はこの色です。
- 削除された行はこの色です。
[[2004/C6/練習問題]]
-53班はロボットに与作を演奏させてみました。この曲は、北島三朗が歌った歌をくぼさんがRCXにおいて再現。くぼさんは携帯からダウンロードした曲を聴いて作りました。「絶対音感だ!」と音楽に縁遠いmy-my,火炉壬。是非一度プログラミングして御視聴下さい。
製作者 曲 くぼさん、動作 火炉壬
#define Sil 494
#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
void task play_music(int t)
{
while(true)
{
PlayTone(Sil,5*t);Wait(10*t);
PlayTone(Re,25*t);Wait(30*t);
PlayTone(Mi,5*t);Wait(10*t);
PlayTone(Mi,25*t);Wait(30*t);
PlayTone(Fas,35*t);Wait(40*t);
PlayTone(Mi,5*t);Wait(10*t);
PlayTone(Re,25*t);Wait(30*t);
PlayTone(Mi,135*t);Wait(140*t);
PlayTone(Si,15*t);Wait(20*t);
PlayTone(Si,15*t);Wait(20*t);
PlayTone(Ra,115*t);Wait(120*t);
PlayTone(So,15*t);Wait(20*t);
PlayTone(So,15*t);Wait(20*t);
PlayTone(Mi,155*t);Wait(160*t);
Wait(20);
}
}
task main()
{
SetSensor(SENSOR_1,SENSOR_TOUCH);
start play_music;
repeat(3){
OnFwd(OUT_A);
until(SENSOR_1==1);
start play music(t=0.5);
OnRev(OUT_C);Wait(300);}
}
− 46班はエリーゼのためにを演奏するプログラミングを作りました。
製作者 マウンテンサイド
#define e 1319
#define ds 1245
#define B 988
#define d 1175
#define c 1047
#define A 880
#define C 523
#define E 659
#define Gs 831
task play_music()
{
while(true)
{
PlayTone(e,25);Wait(25);
PlayTone(ds,25);Wait(25);
PlayTone(e,25);Wait(25);
PlayTone(ds,25);Wait(25);
PlayTone(e,25);Wait(25);
PlayTone(B,25);Wait(25);
PlayTone(d,25);Wait(25);
PlayTone(c,25);Wait(25);
PlayTone(A,50);Wait(80);
PlayTone(C,25);Wait(25);
PlayTone(E,25);Wait(25);
PlayTone(A,25);Wait(25);
PlayTone(B,50);Wait(80);
PlayTone(E,25);Wait(25);
PlayTone(Gs,25);Wait(25);
PlayTone(B,25);Wait(25);
PlayTone(c,50);Wait(75);
PlayTone(E,25);Wait(25);
PlayTone(e,25);Wait(25);
PlayTone(ds,25);Wait(25);
PlayTone(e,25);Wait(25);
PlayTone(ds,25);Wait(25);
PlayTone(e,25);Wait(25);
PlayTone(B,25);Wait(25);
PlayTone(d,25);Wait(25);
PlayTone(c,25);Wait(25);
PlayTone(A,50);Wait(80);
PlayTone(C,25);Wait(25);
PlayTone(E,25);Wait(25);
PlayTone(A,25);Wait(25);
PlayTone(B,50);Wait(80);
PlayTone(E,25);Wait(25);
PlayTone(c,25);Wait(25);
PlayTone(B,25);Wait(25);
PlayTone(A,100);Wait(200);
}
}
task main()
{
start play_music;
}
このページはmy-my が担当しました。