[[2006a/C3]]

モノレール浜松町と羽田空港第2ビルとを繋いでいます。
運賃470円 快速→19分、普通→23分
サービスマネジャーのスタート!!
東京モノレールでは、旅慣れないお客さまのお手伝いをさせていただく「サービスマネジャー」を、首都圏からのご出発となる玄関となる浜松町駅と、首都圏にいらっしゃるお客さまの窓口となる羽田空港第1ビル駅・羽田空港第2ビル駅に配置いたします。
「サービスマネージャー」は駅構内を巡回しながら、お客さまのご案内やご意見・ご要望を承ったり、駅構内の美化にあたります。
*光を追うプログラム [#iefc02f7]
 #define turn_right OnFwd(OUT_A);OnRev(OUT_C);
 #define turn_left OnRev(OUT_A);OnFwd(OUT_C);
 #define stop_turning Off(OUT_A+OUT_C);
 #define TURN_TIME 400
 #define go OnFwd(OUT_A+OUT_C);
 task main ()
 {
     SetSensor(SENSOR_1,SENSOR_LIGHT);
     int light_max=0,time_max=0;
    turn_right;
    ClearTimer(0);
    while(FastTimer(0)<TURN_TIME){
         if(SENSOR_1>light_max){
              light_max=SENSOR_1;
              time_max=FastTimer(0);
              }
        }
         stop_turning;Wait(100);
         turn_left;
         Wait(TURN_TIME-time_max);
        stop_turning;
 }

*完成プログラム[#fca733b4]
#define DO1    880
#define DO01  932
#define RE1    988
#define MI1   1047
#define MI01 1109
#define FA1   1175
#define FA01 1245
#define SO1   1319
#define LA1   1397
#define LA01  1480
#define SHI1  1568
#define SHI01 1661
#define DO2   1760

#define P    PlayTone
#define W    Wait

task  play_music()
{
  while(true)
  {
     P(RE1,10);W(10);
     P(MI1,10);W(10);
     P(FA1,10);W(10);
     P(SO1,10);W(10);
     P(LA1,10);W(20);

     P(LA1,10);W(10);
     P(SO1,10);W(10);
     P(FA1,10);W(10);
     P(MI1,10);W(10);
     P(RE1,10);W(20);

     P(RE1,10);W(10);
     P(MI1,10);W(10);
     P(FA1,10);W(10);
     P(SO1,10);W(10);
     P(LA1,5);W(5);
     P(LA1,5);W(10);
     P(LA1,10);W(10);
     P(SO1,10);W(10);
     P(FA1,10);W(10);
     P(MI1,10);W(10);
     P(DO01,25);W(30);
  }
}
#define A 123
#define B 234
#define C 345
#define D 456
#define E 567
#define F 678
#define G 789
#define H 890
#define I 901

task play_music2()
{
     while(true)
     {
           P(E,20);W(40);
           P(D,20);W(30);
           P(C,20);W(40);
           P(B,10);W(30);
           P(A,10);W(20);
           
           
           P(A,20); W(30);
           P(C,5); W(10);
           P(D,20); W(25);
           P(F,20); W(25);
           P(E,20); W(25);
           P(D,10);W(25);
           P(C,5);W(10);
           P(C,10);W(10);
           P(C,5);W(10);
           P(C,10);W(10);
           
      }
}


#define turn_right OnFwd(OUT_A);OnRev(OUT_C);
#define turn_left OnRev(OUT_A);OnFwd(OUT_C);
#define stop_turning Off(OUT_A+OUT_C);
#define TURN_TIME 400
#define go OnFwd(OUT_A+OUT_C);
task main ()
{
    SetSensor(SENSOR_1,SENSOR_LIGHT);
       SetSensor(SENSOR_3,SENSOR_LIGHT);
    int light_max=0,time_max=0;
   turn_right;
   ClearTimer(0);
   while(FastTimer(0)<TURN_TIME)
   {
        if ((SENSOR_1>light_max) || (SENSOR_3>light_max))
        {
            ( light_max==SENSOR_1 ||  light_max==SENSOR_3);
             time_max=FastTimer(0);
                       start play_music2;
             }
               stop play_music2;
               start  play_music;
               until ((SENSOR_1>light_max) || (SENSOR_3>light_max));
               stop play_music;              
       }
              
        stop_turning;Wait(100);
        turn_left;
        Wait(TURN_TIME-time_max);
       stop_turning;
}

トップ   編集 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS