2005/A5/演奏ロボット

2005/A5/左組

奇跡!!キラキラ星を演奏するロボット†

プログラム†

作成者：匿名希望

#define Do  523
#define Re  587
#define Mi  659
#define Fa  698
#define So  784
#define Ra  861
#define Do  523
#define Re  587
#define Mi  659
#define Fa  698
#define So  784
#define Ra  861

task play_music()   // キラキラ星
 {
 task play_music()   // キラキラ星
 {
    while (true)
    {
        PlayTone(Do,25); Wait(30);
        PlayTone(Do,25); Wait(30);
        PlayTone(So,25); Wait(30);
        PlayTone(So,25); Wait(30);
        PlayTone(Ra,25); Wait(30);
        PlayTone(Ra,25); Wait(30);
        PlayTone(So,25); Wait(50);
 
        PlayTone(Fa,25); Wait(30);
        PlayTone(Fa,25); Wait(30);
        PlayTone(Mi,25); Wait(30);
        PlayTone(Mi,25); Wait(30);
        PlayTone(Re,25); Wait(30);
        PlayTone(Re,25); Wait(30);
        PlayTone(Do,25); Wait(50);
	 
        PlayTone(So,25); Wait(30);
        PlayTone(So,25); Wait(30);
        PlayTone(Fa,25); Wait(30);
        PlayTone(Fa,25); Wait(30);
        PlayTone(Mi,25); Wait(30);
        PlayTone(Mi,25); Wait(30);
        PlayTone(Re,25); Wait(50);
	
        PlayTone(So,25); Wait(30);
        PlayTone(So,25); Wait(30);
        PlayTone(Fa,25); Wait(30);
        PlayTone(Fa,25); Wait(30);
        PlayTone(Mi,25); Wait(30);
        PlayTone(Mi,25); Wait(30);
        PlayTone(Re,25); Wait(50);
	 
        PlayTone(Do,25); Wait(30);
        PlayTone(Do,25); Wait(30);
        PlayTone(So,25); Wait(30);
        PlayTone(So,25); Wait(30);
        PlayTone(Ra,25); Wait(30);
        PlayTone(Ra,25); Wait(30);
        PlayTone(So,25); Wait(50);
 
        PlayTone(Fa,25); Wait(30);
        PlayTone(Fa,25); Wait(30);
        PlayTone(Mi,25); Wait(30);
        PlayTone(Mi,25); Wait(30);
        PlayTone(Re,25); Wait(30);
        PlayTone(Re,25); Wait(30);
	 PlayTone(Do,55); Wait(60);
        Wait(20);
    }
}

 task main()
{
     }
}

 task main()
{
    SetSensor(SENSOR_1, SENSOR_TOUCH);
  
    start play_music ;    // 演奏を開始
    OnFwd(OUT_A+OUT_B);   // 前進

    until (SENSOR_1 == 1);
    stop play_music ;     // 演奏を停止
    Off(OUT_A+OUT_B);     // 動きも停止
 }
}

↑

感想†

キラキラ星を選曲したあたりに俺のセンスの無さが伺えます。。。

↑

奇跡!!キラキラ星を演奏するロボット†

プログラム†

感想†

コメントをどうぞ†

目次

全般

教材・資料

Debian関連

過去の授業

2003年度以前

最新の20件