2006b/A2/課題３右 の履歴差分(No.2)

• 履歴一覧
• 現在との差分 を表示
• ソース を表示
• 2006b/A2/課題３右 へ行く。
  • 1 (2006-12-25 (月) 02:03:10)
  • 2 (2006-12-25 (月) 03:34:24)
  • 3 (2006-12-27 (水) 10:16:46)
  • 4 (2006-12-28 (木) 03:13:28)
  • 5 (2006-12-28 (木) 03:38:39)
  • 6 (2006-12-28 (木) 12:54:10)
  • 7 (2006-12-29 (金) 01:55:50)
  • 8 (2006-12-30 (土) 01:15:53)
  • 9 (2007-01-03 (水) 01:01:48)
  • 10 (2007-01-23 (火) 06:39:57)
  • 11 (2007-01-23 (火) 06:53:14)
  • 12 (2007-01-23 (火) 11:31:42)

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

[[2006b/MemberOnly/進行状況A]]
*課題3：光を追いかけるロボット [#tfc7107d]
*光を追いかけるロボットのプログラム [#s337c172]

#define Do 523
#define Do_s 554
#define Re 587
#define Re_s 622
#define Mi 659
#define Fa 698
#define Fa_s 740
#define Sol 784
#define Sol_s 831
#define La 880
#define La_s 932
#define Si 988
#define Do_up 1047
#define Re_up 1175
#define TURN_TIME 400

task play_music()
{
  while (true)
  {
    PlayTone(La,15);Wait(20);
	PlayTone(Si,15);Wait(20);
	PlayTone(La,15);Wait(20);
	PlayTone(Sol,15);Wait(20);
	PlayTone(Sol,50);Wait(60);
	PlayTone(Si,25);Wait(30);
 #define Do 523
 #define Do_s 554
 #define Re 587
 #define Re_s 622
 #define Mi 659
 #define Fa 698
 #define Fa_s 740
 #define Sol 784
 #define Sol_s 831
 #define La 880
 #define La_s 932
 #define Si 988
 #define Do_up 1047
 #define Re_up 1175
 #define TURN_TIME 400
 
 task play_music()
 {while (true)
  {PlayTone(La,15);Wait(20);
   PlayTone(Si,15);Wait(20);
   PlayTone(La,15);Wait(20);
   PlayTone(Sol,15);Wait(20);
   PlayTone(Sol,50);Wait(60);
   PlayTone(Si,25);Wait(30);
	
	PlayTone(Re_up,25);Wait(30);
	PlayTone(Fa_s,15);Wait(20);
	PlayTone(Fa_s,50);Wait(55);
	PlayTone(Sol,50);Wait(55);
	PlayTone(Sol,15);Wait(20);
   PlayTone(Re_up,25);Wait(30);
   PlayTone(Fa_s,15);Wait(20);
   PlayTone(Fa_s,50);Wait(55);
   PlayTone(Sol,50);Wait(55);
   PlayTone(Sol,15);Wait(20);
	
	PlayTone(Fa_s,15);Wait(20);
	PlayTone(Sol,15);Wait(20);
	PlayTone(Si,25);Wait(30);
	PlayTone(Re,15);Wait(20);
	PlayTone(Re,50);Wait(55);
	PlayTone(Mi,25);Wait(30);
   PlayTone(Fa_s,15);Wait(20);
   PlayTone(Sol,15);Wait(20);
   PlayTone(Si,25);Wait(30);
   PlayTone(Re,15);Wait(20);
   PlayTone(Re,50);Wait(55);
   PlayTone(Mi,25);Wait(30);
	
	PlayTone(Sol,25);Wait(30);
	PlayTone(Fa_s,15);Wait(20);
	PlayTone(Sol,15);Wait(20);
	PlayTone(La,15);Wait(20);
	PlayTone(Re,15);Wait(20);
	PlayTone(Si,25);Wait(30);
   PlayTone(Sol,25);Wait(30);
   PlayTone(Fa_s,15);Wait(20);
   PlayTone(Sol,15);Wait(20);
   PlayTone(La,15);Wait(20);
   PlayTone(Re,15);Wait(20);
   PlayTone(Si,25);Wait(30);
	
	PlayTone(Fa_s,15);Wait(20);
	PlayTone(Sol,25);Wait(30);
	PlayTone(Re,15);Wait(20);
	PlayTone(Do,25);Wait(30);
	PlayTone(Re,25);Wait(30);
	PlayTone(Mi,25);Wait(30);
   PlayTone(Fa_s,15);Wait(20);
   PlayTone(Sol,25);Wait(30);
   PlayTone(Re,15);Wait(20);
   PlayTone(Do,25);Wait(30);
   PlayTone(Re,25);Wait(30);
   PlayTone(Mi,25);Wait(30);
	
	PlayTone(Sol,15);Wait(20);
	PlayTone(Sol,15);Wait(20);
	PlayTone(Fa_s,15);Wait(20);
	PlayTone(Sol,15);Wait(20);
	PlayTone(La,15);Wait(20);
	PlayTone(La,15);Wait(20);
   PlayTone(Sol,15);Wait(20);
   PlayTone(Sol,15);Wait(20);
   PlayTone(Fa_s,15);Wait(20);
   PlayTone(Sol,15);Wait(20);
   PlayTone(La,15);Wait(20);
   PlayTone(La,15);Wait(20);
	
	PlayTone(La,15);Wait(20);
	PlayTone(Si,15);Wait(20);
	PlayTone(La,15);Wait(20);
	PlayTone(Sol,15);Wait(20);
	PlayTone(Sol,50);Wait(55);
	PlayTone(Si,15);Wait(20); 
   PlayTone(La,15);Wait(20);
   PlayTone(Si,15);Wait(20);
   PlayTone(La,15);Wait(20);
   PlayTone(Sol,15);Wait(20);
   PlayTone(Sol,50);Wait(55);
   PlayTone(Si,15);Wait(20); 
	
	PlayTone(Re_up,25);Wait(30);
	PlayTone(Fa_s,15);Wait(20);
	PlayTone(Fa_s,50);Wait(55);
	PlayTone(Sol,50);Wait(55);
	PlayTone(Sol,15);Wait(20);
   PlayTone(Re_up,25);Wait(30);
   PlayTone(Fa_s,15);Wait(20);
   PlayTone(Fa_s,50);Wait(55);
   PlayTone(Sol,50);Wait(55);
   PlayTone(Sol,15);Wait(20);
	
	PlayTone(Fa_s,15);Wait(20);
	PlayTone(Sol,15);Wait(20);
	PlayTone(Si,25);Wait(30);
	PlayTone(Re,15);Wait(20);
	PlayTone(Re,50);Wait(55);
	PlayTone(Mi,25);Wait(30);
   PlayTone(Fa_s,15);Wait(20);
   PlayTone(Sol,15);Wait(20);
   PlayTone(Si,25);Wait(30);
   PlayTone(Re,15);Wait(20);
   PlayTone(Re,50);Wait(55);
   PlayTone(Mi,25);Wait(30);
	
	PlayTone(Sol,25);Wait(30);
	PlayTone(Fa_s,15);Wait(20);
	PlayTone(Sol,15);Wait(20);
	PlayTone(La,15);Wait(20);
	PlayTone(Re,15);Wait(20);
	PlayTone(Si,25);Wait(30);
   PlayTone(Sol,25);Wait(30);
   PlayTone(Fa_s,15);Wait(20);
   PlayTone(Sol,15);Wait(20);
   PlayTone(La,15);Wait(20);
   PlayTone(Re,15);Wait(20);
   PlayTone(Si,25);Wait(30);
	
	PlayTone(Do_up,25);Wait(30);
	PlayTone(Si,25);Wait(30);
	PlayTone(La,25);Wait(30);
	PlayTone(Mi,25);Wait(30);
	PlayTone(Sol,15);Wait(20);
	PlayTone(Sol,15);Wait(20);
   PlayTone(Do_up,25);Wait(30);
   PlayTone(Si,25);Wait(30);
   PlayTone(La,25);Wait(30);
   PlayTone(Mi,25);Wait(30);
   PlayTone(Sol,15);Wait(20);
   PlayTone(Sol,15);Wait(20);
	
	PlayTone(Fa_s,15);Wait(20);
	PlayTone(Sol,15);Wait(20);
	PlayTone(La,15);Wait(20);
	PlayTone(Fa_s,15);Wait(20);
	PlayTone(Sol,25);Wait(30);
	Wait(50);
	}
   PlayTone(Fa_s,15);Wait(20);
   PlayTone(Sol,15);Wait(20);
   PlayTone(La,15);Wait(20);
   PlayTone(Fa_s,15);Wait(20);
   PlayTone(Sol,25);Wait(30);
   Wait(50);}
 }
task main()
{SetSensor(SENSOR_1,SENSOR_LIGHT);
 SetSensor(SENSOR_3,SENSOR_LIGHT);
 
 task main()
 {SetSensor(SENSOR_1,SENSOR_LIGHT);
  SetSensor(SENSOR_3,SENSOR_LIGHT);
  int light_max,time_max;
  ClearTimer(0);
  while(FastTimer(0)<TURN_TIME)
  {OnFwd(OUT_A);
   OnRev(OUT_C);
   if(SENSOR_1>light_max);
    {light_max=SENSOR_1;
     ClearTimer(1);}
   }
   time_max=FastTimer(1);
   OnFwd(OUT_C);
   OnRev(OUT_A);
   Wait(time_max);
   
  start play_music; 
  while(true)
  {OnFwd(OUT_A+OUT_C);
   if(SENSOR_1>SENSOR_3)
   {Off(OUT_A);
    OnFwd(OUT_C);
    Wait(5);}
   if(SENSOR_3>SENSOR_1)
   {Off(OUT_C);
    OnFwd(OUT_A);
    Wait(5);}
    
  
   }      
    }      
 }