Sophie

Sophie

distrib > Fedora > 15 > i386 > by-pkgid > bfa8d3d691d0a342cec73ddfa2abcc84 > files > 53

nqc-doc-3.1.7-8.fc15.i686.rpm

int lastlevel;           // To store the previous level

task send_signal()
{
  while(true) 
    {SendMessage(0); Wait(10);}
}

task check_signal()
{
  while(true)
  {
    lastlevel = SENSOR_2;
    if(SENSOR_2 > lastlevel + 200) 
      {OnRev(OUT_C); Wait(85); OnFwd(OUT_A+OUT_C);}
  }
}

task main()
{
  SetSensorType(SENSOR_2, SENSOR_TYPE_LIGHT); 
  SetSensorMode(SENSOR_2, SENSOR_MODE_RAW);
  OnFwd(OUT_A+OUT_C);
  start send_signal;
  start check_signal;
}