2005/A4

  task main()
{
   SetSensor(SENSOR_1,SENSOR_TOUCH);
   SetSensor(SENSOR_2,SENSOR_TOUCH);
   
   OnFed(OUT_A+OUT_C);   
   while(1)
   {
     if(SENSOR_1 == 1)
     {
        OnRev(OUT_A+OUT_C);
        Wait(50);
        OnFwd(OUT_A)
        Wait(150);
        OnFwd(OUT_C);
      }
    }
}
hiari
task main()
{
  SetSensor(SENSOR_1,SENSOR_TOUCH)
  SetSensor(SENSOR_3,SENSOR_TOUCH)
  OnFwd(OUT_A+OUT_C);
  while(ture)
   { task main()
{
  SetSensor(SENSOR_1,SENSOR_TOUCH)
  SetSensor(SENSOR_3,SENSOR_TOUCH)
  OnFwd(OUT_A+OUT_C);
  while(ture)
   {
    if(SENSOR_1 == 1)
    { 
      OnRev(OUT_C+OUT_A);Wait(15);Off(OUT_C+OUT_A);
      OnRev(OUT_A);
    if(SENSOR_3 == 1)
     else
     {
       OnFwd(OUT_A);Wait(40);
    }
   }
  task main()
  int light_max=0; int i=0; i_max;
  OnFwd(OUT_A);OnRev(OUT_C);
  for(i=0;i<=60;i++){
     if(SENSOR_1>light_max){
        light_max=SENSOR_1;
        Wait(5); i_max=i;
       }
      PlayTone(SENSOR_1,5);
    }
 task main()
{
 SetSensor(SENSOR_1,SENSOR_LIGHT);
 SetSensor(SENSOR_3,SENSOR_LIGHT);
 OnFwd(OUT_A+OUT_C);
 while (ture)
 {
    if (SENSOR_1 < 40);
    {
     OnFwd(OUT_A);
     OnRev(OUT_C);
     }
    if (SENSOR_3 < 40);
    {
     OnFwd(OUT_C);
     OnRev(OUT_A);
     } else {
      OnFwd(OUT_A+OUT_C);
     }
 }
  
   task main()
{
   SetSensor(SENSOR_2,SENSOR_TOUCH);
   SetSensor(SENSOR_3,SENSOR_TOUCH);
   while(true)
   {
    if(SENSOR_3 == 0);
    {
     OnFwd(OUT_A);Wait(20);
    }
   }
 }

#define backp OnRev(OUT_A+OUT_C);

#define sp OnFwd(OUT_A+OUT_C);Wait(3);OnRev(OUT_A+OUT_C);Wait(5);

task main() {

   while (true)
   {
       ClearMessage();          
       until (Message() != 0); 
       if ( Message() == 1 ) backp;     
       if ( Message() == 2 ) sp;
   }

}


トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-12-16 (金) 15:50:13