2005/A4/タニユウキの学習ノート の履歴の現在との差分(No.1)

• 履歴一覧
• 差分 を表示
• ソース を表示
• 2005/A4/タニユウキの学習ノート へ行く。
  • 1 (2005-11-25 (金) 06:09:40)

• 追加された行はこの色です。
• 削除された行はこの色です。

[task main()
{
    SetSensor(SENSOR_1,SENSOR_TOUCH);
    SetSensor(SENSOR_3,SENSOR_TOUCH);
    OnFwd(OUT_A+OUT_C);
    until ((SENSOR_1 == 1)&&(SENSOR_3 == 3));
    
    OnRev(OUT_A+OUT_C);
    Wait(200);
    OnFwd(OUT_C);
    Wait(150);
    OnFwd(OUT_A+OUT_C);
    until ((SENSOR_1 == 1)&&(SENSOR_3 == 3));
    OnRev(OUT_A+OUT_C);
    Wait(200);
    OnFwd(OUT_C);
    Wait(150);
    OnFwd(OUT_A+OUT_C);
    Wait(500);
    OnRev(OUT_C);
    Wait(300);
    OnFwd(200);
    On[2005/A4]]


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

task play_music()   // 音楽を演奏するタスク
{
    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);

    }
}

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