音楽ロボ


#define Do  523
#define Re  587
#define Mi  659
#define Fa  698
#define Sol 784

task play_music()   // 音楽を演奏するタスク
task main ()
{
    while (true)
    {
        PlayTone(Do,15); Wait(40);  //tyarumera
        PlayTone(Re,15); Wait(25);
        PlayTone(Mi,15); Wait(40);
        PlayTone(Re,15); Wait(25);
        PlayTone(Do,15); Wait(25);
	PlayTone(Do,15); Wait(25);
        PlayTone(Re,15); Wait(25);
        PlayTone(Mi,15); Wait(40);
        PlayTone(Re,15); Wait(25);
        PlayTone(Do,15); Wait(25);
	PlayTone(Re,15); Wait(50);
	Wait(100);
    SetSensor(SENSOR_1, SENSOR_LIGHT);
    SetSensor(SENSOR_3, SENSOR_LIGHT);
    while(true)
    {   if (SENSOR_1 < 40) 
            {OnFwd(OUT_C);
             OnRev(OUT_A);}else
         if (SENSOR_3 < 40) 
            {OnFwd(OUT_A);
             OnRev(OUT_C);}else
         if ((SENSOR_3 > 40) && (SENSOR_1 > 40))
             {OnFwd(OUT_A+OUT_C);}
     }    }

    }
}

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);     // 動きも停止


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