Initial commit of etURP

Author: mesheets

Examples/10_semaphore.nqc

@@ -0,0 +1,33 @@
+ int sem;
+
+task main()
+{
+  sem = 0;
+  start move_square;
+  SetSensor(SENSOR_1,SENSOR_TOUCH);
+  while (true)
+  {
+    if (SENSOR_1 == 1)
+    { 
+      until (sem == 0); sem = 1;
+      OnRev(OUT_A+OUT_C); Wait(50);
+      OnFwd(OUT_A); Wait(85);
+      sem = 0;
+    }
+  }
+}
+
+task move_square()
+{
+  while (true)
+  {
+    until (sem == 0); sem = 1;
+    OnFwd(OUT_A+OUT_C); 
+    sem = 0;
+    Wait(100);
+    until (sem == 0); sem = 1;
+    OnRev(OUT_C); 
+    sem = 0;
+    Wait(85);
+  }
+}

Examples/10_stopping.nqc

@@ -0,0 +1,29 @@
+task main()
+{
+  SetSensor(SENSOR_1,SENSOR_TOUCH);
+  start check_sensors;
+  start move_square;
+}
+
+task move_square()
+{
+  while (true)
+  {
+    OnFwd(OUT_A+OUT_C); Wait(100);
+    OnRev(OUT_C); Wait(85);
+  }
+}
+
+task check_sensors()
+{
+  while (true)
+  {
+    if (SENSOR_1 == 1)
+    { 
+      stop move_square;
+      OnRev(OUT_A+OUT_C); Wait(50);
+      OnFwd(OUT_A); Wait(85);
+      start move_square;
+    }
+  }
+}

Examples/10_wrong.nqc

@@ -0,0 +1,25 @@
+task main()
+{
+  SetSensor(SENSOR_1,SENSOR_TOUCH);
+  start check_sensors;
+  while (true)
+  {
+    OnFwd(OUT_A+OUT_C); Wait(100);
+    OnRev(OUT_C); Wait(85);
+  }
+}
+
+task check_sensors()
+{
+  while (true)
+  {
+    if (SENSOR_1 == 1)
+    { 
+      OnRev(OUT_A+OUT_C);
+      Wait(50);
+      OnFwd(OUT_A);
+      Wait(85);
+      OnFwd(OUT_C);
+    }
+  }
+}

Examples/11_acknowledge.nqc

@@ -0,0 +1,10 @@
+task main()
+{
+  do
+  {
+    SendMessage(1);
+    ClearMessage();
+    Wait(10);
+  }
+  while (Message() != 255);
+}

Examples/11_leader.nqc

@@ -0,0 +1,35 @@
+task main()
+{
+  ClearMessage();
+  Wait(200);             // make sure all robots are on
+  Wait(Random(400));      // wait between 0 and 4 seconds
+  if (Message() > 0)      // somebody else was first
+  {
+    start slave;
+  }
+  else
+  {
+    SendMessage(1);       // I am the master now
+    Wait(400);           // make sure everybody else knows
+    start master;
+  }
+}
+
+task master()
+{
+  SendMessage(1); Wait(200);
+  SendMessage(2); Wait(200);
+  SendMessage(3);
+}
+
+task slave()
+{
+  while (true)
+  {
+    ClearMessage();
+    until (Message() != 0);
+    if (Message() == 1) {OnFwd(OUT_A+OUT_C);}
+    if (Message() == 2) {OnRev(OUT_A+OUT_C);}
+    if (Message() == 3) {Off(OUT_A+OUT_C);}
+  }
+}

Examples/11_master.nqc

@@ -0,0 +1,6 @@
+task main()          // MASTER
+{
+  SendMessage(1); Wait(200);
+  SendMessage(2); Wait(200);
+  SendMessage(3);
+}

Examples/11_slave.nqc

@@ -0,0 +1,24 @@
+task main()
+{
+//  SetSensor(SENSOR_2,SENSOR_LIGHT);
+  OnFwd(OUT_A+OUT_C);
+  CreateDatalog(100);
+  int x = 0;
+  int y = 50;
+  repeat (50)
+  {
+    AddToDatalog(x);
+    AddToDatalog(y);
+/*
+    AddToDatalog(SENSOR_2);
+    if ((y < 30) && (y > 20))
+    {
+        AddToDatalog(SENSOR_1);
+    }
+    Wait(20);
+*/
+    x++;
+    y--;
+  }
+  Off(OUT_A+OUT_C);
+}

Examples/12_datalog.nqc

@@ -0,0 +1,10 @@
+task main()
+{
+  SelectDisplay(DISPLAY_SENSOR_1); Wait(100);  // Input 1
+  SelectDisplay(DISPLAY_SENSOR_2); Wait(100);  // Input 2
+  SelectDisplay(DISPLAY_SENSOR_3); Wait(100);  // Input 3
+  SelectDisplay(DISPLAY_OUT_A);    Wait(100);  // Output A
+  SelectDisplay(DISPLAY_OUT_B);    Wait(100);  // Output B
+  SelectDisplay(DISPLAY_OUT_C);    Wait(100);  // Output C
+  SelectDisplay(DISPLAY_WATCH);    Wait(100);  // System clock
+}

Examples/12_display.nqc

@@ -0,0 +1,13 @@
+task main()
+{
+  ClearTimer(0); 
+  do
+  {
+    OnFwd(OUT_A+OUT_C);
+    Wait(Random(100));
+    OnRev(OUT_C);
+    Wait(Random(100));
+  }
+  while (Timer(0)<200);
+  Off(OUT_A+OUT_C);
+}