*ライントレーサー [#s0ab6500]

#define mae OnFwd(OUT_A+OUT_B);
#define right Off(OUT_A+OUT_B);OnFwd(OUT_A);OnRev(OUT_B);
#define left Off(OUT_A+OUT_B);OnFwd(OUT_B);OnRev(OUT_A);

task main ()
*課題2.1当たって反転 [#q1305cc6]
**制作者  Fuji [#gdf2f47c]

task main()
{
	SetSensor(SENSOR_1, SENSOR_LIGHT);
	SetSensor(SENSOR_3, SENSOR_LIGHT);
	SetSensor(SENSOR_2, SENSOR_TOUCH)
	mae;
	while(true) 
	{
		if(SENSOR_1 < 40){left;}	 
		if(SENSOR_3 < 40){right;}
		if(SENSOR_2 == 1){right;wait(160);}
		else{mae;}	 
	}
}
    SetSensor(SENSOR_1,SENSOR_TOUCH);
    SetSensor(SENSOR_1,SENSOR_LIGHT);
    SetSensor(SENSOR_1,SENSOR_LIGHT);
    
    while(true)
  {
       OnFwd(OUT_A+OUT_C);
       
       if(SENSOR_1==1)
    {   
       OnRev(OUT_A+OUT_C);  Wait(50);
       OnFwd(OUT_A);  Wait(150);
       OnFwd(OUT_C);
                                                             }
       
       if(SENSOR_2<40)
     { OnFwd(OUT_C);Off(OUT_A);}
       else{OnFwd(OUT_A+OUT_C);}
     
       if(SENSOR_3<40)
     {  OnFwd(OUT_C);Off(OUT_A);}
     else{OnFwd(OUT_A+OUT_C); }
     
     } }
                                                          

*課題2.2追い越す [#n560dc94]
**制作者 Fuji [#md7bed28]

task main()
{

   SetSensor(SENSOR_1,SENSOR_TOUCH);
   SetSensor(SENSOR_2,SENSOR_LIGHT);
   SetSensor(SENSOR_3,SENSOR_LIGHT);
   
   
   
   while(true){
   OnFwd(OUT_A+OUT_C);
   
   if(SENSOR_1==1){
      OnRev(OUT_A+OUT_C);Wait(100);
      OnFwd(OUT_A);Wait(70);
      OnFwd(OUT_A+OUT_C);Wait(100);Off(OUT_A);
      OnFwd(OUT_C);Wait(70);
      OnFwd(OUT_A+OUT_C);Wait(300);Off(OUT_A);
      OnFwd(OUT_C);Wait(70);
      OnFwd(OUT_A+OUT_C);Wait(100);Off(OUT_C);
      OnFwd(OUT_A);Wait(70);              }
      
      else{
        if(SENSOR_2<40)
        {OnFwd(OUT_C);Off(OUT_A);}
        if(SENSOR_3<40)
        {OnFwd(OUT_A);Off(OUT_C);}     }  }  }



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