[[2004/C6/練習問題]]
-ロボットに与作を演奏させてみました。この曲は、北島三朗が歌った歌をくぼさんがRCXにおいて再現。くぼさんは携帯からダウンロードした曲を聴いて作りました。「絶対音感だ!」と音楽に縁遠いmy-my,火炉と壬。是非一度プログラミングして御視聴下さい。
-ロボットに与作を演奏させてみました。この曲は、北島三朗が歌った歌をくぼさんが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);}    
}

                                                  このページは今井 隆行 が担当しました。
                                                  このページはmy-my が担当しました。


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