[[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 が担当しました。


トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS