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
Last-modified: 2005-02-22 (火) 15:40:46