2006b/A6/課題３の履歴差分(No.3)

履歴一覧
現在との差分を表示
ソースを表示
2006b/A6/課題３へ行く。
- 1 (2006-12-27 (水) 16:41:40)
- 2 (2006-12-27 (水) 17:19:37)
- 3 (2006-12-28 (木) 07:16:33)
- 4 (2006-12-31 (日) 04:53:18)
- 5 (2007-01-03 (水) 04:07:18)
- 6 (2007-01-04 (木) 10:22:38)

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

[[2006b/A6/R Room/mission 3]]

#contents

*プログラム [#ff109757]

**製作者／TAKA [#qa88c98f]

***光を見つけて、その方向へ進むプログラム [#d269e04b]
とりあえず一気に作るのは難しいと感じたので、別々に作りました。

***旋回して、光を見つけてその方向に進む[#d269e04b]

 #define TURN_TIME 300
 
 sub move
 
 {OnFwd(OUT_A+OUT_C);
                    
 task main () {
 
  SetSensor (SENSOR_1,SENSOR_LIGHT);
  SetSensor(SENSOR_3, SENSOR_LIGHT);
  int light_max=0,time_max;
 
   
 while(true)
 {
  ClearTimer(0);
  OnFwd(OUT_A);
  OnRev(OUT_C);
  
    while(FastTimer(0)<TURN_TIME)
    {
      if(SENSOR_1>light_max)
      {
       light_max=SENSOR_1;
       time_max=TURN_TIME-FastTimer(0)+10;
      }
    }
 
     Off(OUT_A+OUT_C);
   
    OnFwd(OUT_C);
    OnRev(OUT_A);
    
    Wait(time_max);
    Off(OUT_A+OUT_C);
 
    OnFwd(OUT_A+OUT_C);
    Wait(200);
   } 
 }
 
 #define TURN_TIME 400
 
 task main () {
 
 SetSensor (SENSOR_1,SENSOR_LIGHT);
 int light_max=0,time_max;
 ClearTimer(0);
 OnFwd(OUT_A);
 OnRev(OUT_C);
 
 while(FastTimer(0)<TURN_TIME)
    {
      if(SENSOR_1>light_max)
      {
       light_max=SENSOR_1;
       time_max=TURN_TIME-FastTimer(0)+10;
      }
    }
    
    Off(OUT_A+OUT_C);
   
   OnFwd(OUT_C);
   OnRev(OUT_A);
   
   Wait(time_max);
   Off(OUT_A+OUT_C);
 }

***音楽を鳴らすプログラム [#z1b05577]
-チューリップの歌（題名がわかりません） 
 #define Do 523
 #define Re 587
 #define Mi 659
 #define Fa 698
 #define So 784
 #define Ra 880
 #define Si 988
 #define Doo 1047
 
 task play_music()
 {
    while(true)
    {
      PlayTone(Do,25);Wait(30);
      PlayTone(Re,25);Wait(30);
      PlayTone(Mi,25);Wait(30);
      
      PlayTone(Do,25);Wait(30);
      PlayTone(Re,25);Wait(30);
      PlayTone(Mi,25);Wait(30);
      
      PlayTone(So,25);Wait(30);
      PlayTone(Mi,25);Wait(30);
      PlayTone(Re,25);Wait(30);
      PlayTone(Do,25);Wait(30);
      PlayTone(Re,25);Wait(30);
      PlayTone(Mi,25);Wait(30);
      PlayTone(Re,30);Wait(30);
      
      PlayTone(Do,25);Wait(30);
      PlayTone(Re,25);Wait(30);
      PlayTone(Mi,25);Wait(30);
 
      PlayTone(Do,25);Wait(30);
      PlayTone(Re,25);Wait(30);
      PlayTone(Mi,25);Wait(30);
 
      PlayTone(So,25);Wait(30);
      PlayTone(Mi,25);Wait(30);
      PlayTone(Re,25);Wait(30);
      PlayTone(Do,25);Wait(30);
      PlayTone(Re,25);Wait(30);
      PlayTone(Mi,25);Wait(30);
      PlayTone(Do,30);Wait(30);
       
      PlayTone(So,25);Wait(30);
      PlayTone(So,25);Wait(30);
      PlayTone(Mi,25);Wait(30);
      PlayTone(So,25);Wait(30);
      PlayTone(Ra,25);Wait(30);
      PlayTone(Ra,25);Wait(30);
      PlayTone(So,30);Wait(30);
      
      PlayTone(Mi,25);Wait(30);
      PlayTone(Mi,25);Wait(30);
      PlayTone(Re,25);Wait(30);
      PlayTone(Re,25);Wait(30);
      PlayTone(Do,30);Wait(30);
      }
 }



***課題のプログラム [#p96dff2a]

**製作者／またたび [#de77bb3b]

2006b/A6/課題３ の履歴差分(No.3)