Mindboards

Code: Select all

//485Sendms.nxc

void SendRS485Bool(const bool value)
{
  byte msg[];
  ArrayBuild(msg, value, 0);
  SetHSOutputBuffer(0, 2, msg);
  SetHSOutputBufferOutPtr(0);
  SetHSOutputBufferInPtr(2);
  SetHSState(HS_SEND_DATA);
  SetHSFlags(HS_UPDATE); //send it
}

void SendRS485Number(const int value)
{
  string msg = Flatten(value);
  SetHSOutputBuffer(0, 5, msg);
  SetHSOutputBufferOutPtr(0);
  SetHSOutputBufferInPtr(5);
  SetHSState(HS_SEND_DATA);
  SetHSFlags(HS_UPDATE); //send it
}

void SendRS485String(const string msg)
{
  byte mlen = ArrayLen(msg);
  SetHSOutputBuffer(0, mlen, msg);
  SetHSOutputBufferOutPtr(0);
  SetHSOutputBufferInPtr(mlen);
  SetHSState(HS_SEND_DATA);
  SetHSFlags(HS_UPDATE); //send it
}

void WaitForMessageToBeSent()
{
  while(HSOutputBufferOutPtr() < HSOutputBufferInPtr())
    Wait(1);
}

task main()
{
  SetSensorType(IN_4, SENSOR_TYPE_HIGHSPEED);
  SetHSState(HS_INITIALISE);
  SetHSFlags(HS_UPDATE);

  Wait(10);
  int i;
  while (true) {
    string msg;
    msg = "goofy ";
    msg += NumToStr(i);
    SendRS485String(msg);
    WaitForMessageToBeSent();
    i++;
//    Wait(50);
  }
}



//  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

// 485Recivems.nxc

task main()
{
  byte mlen;
  string buffer;
  SetSensorType(IN_4, SENSOR_TYPE_HIGHSPEED);
  SetHSState(HS_INITIALISE);
  SetHSFlags(HS_UPDATE);
  // start with empty input buffer
  SetHSInputBufferInPtr(0);
  SetHSInputBufferOutPtr(0);

  Wait(10);
  while (true) {
    // wait for a message to arrive.
    mlen = 0;
    while (mlen == 0)
      mlen = HSInputBufferInPtr();
    // read it.
    GetHSInputBuffer(0, mlen, buffer);
    // clear the incoming buffer
    SetHSInputBufferInPtr(0);
    // display message
    TextOut(0, LCD_LINE1, buffer);
  }
}

Code: Select all

inline void WaitForMessageToBeSent()
{
  while(RS485SendingData())
    Wait(1);
}

task main()
{
  SetSensor(IN_2, SENSOR_ROTATION);
  // configure the S4 port as RS485
  UseRS485();
  // make sure the RS485 system is turned on
  RS485Enable();
  // initialize the UART to default values
  // low level API function call (allows changing UART settings)
  RS485Uart(HS_BAUD_DEFAULT, HS_MODE_DEFAULT);
//  // hi level API function call
//  RS485Initialize();
  Wait(1); // make sure everything gets turned on okay
  int Position1 = 0, SensorOld, SensorNew;
  while(true)
  {
    SendRS485Number(Position1);
    WaitForMessageToBeSent();
    // Send the position of the tray
    SensorNew = SENSOR_2;
    RectOut(Position1, 0, 24, 4);
    Wait(30);
    ClearScreen();
    SensorOld = SensorNew;
    SensorNew = SENSOR_2;
    SensorNew -= SensorOld;
    Position1 += SensorNew;
    //Calculate the new position of the tray
    if(Position1 < 0)
    {
      Position1 = 0;
    }
    if(Position1 > 76)
    {
      Position1 = 76;
    }
    //Make sure the tray doesn't go too far to the side
  }
}

Code: Select all

inline void WaitForMessageToBeSent()
{
  while(RS485SendingData())
    Wait(1);
}

task main()
{
  UseRS485();
  // make sure the RS485 system is turned on
  RS485Enable();
  // initialize the UART to default values
  // RS485Initialize();
  // configure the UART (this is equivalent to RS485Initialize)
  RS485Uart(HS_BAUD_DEFAULT, HS_MODE_DEFAULT);
  Wait(1);
  int BallX, BallY, Position1, Position2 = 0, SensorOld, SensorNew;
  TextOut(0, LCD_LINE4, "Sanding by...");
  //Stand by until an RS485 message is received
  while(true)
  {
    until(RS485DataAvailable());
    RS485Read(Position1);
    //Wait until it receives a message, and write that number as the position
    PlayTone(500, 25);
    //Play a sond to indicate that it is indeed receiving a message
    RectOut(Position1, 0, 24, 4);
    //Display the tray at the received postition
    Wait(30);
    ClearScreen();
  }
}

Code: Select all

inline void WaitForMessageToBeSent()
{
  while(RS485SendingData())
    Wait(1);
}

task main()
{
  UseRS485();
  // make sure the RS485 system is turned on
  RS485Enable();
  // initialize the UART to default values
  // RS485Initialize();
  // configure the UART (this is equivalent to RS485Initialize)
  RS485Uart(HS_BAUD_DEFAULT, HS_MODE_DEFAULT);
  Wait(1);
  int BallX, BallY, Position1, Position2 = 0, SensorOld, SensorNew;
  TextOut(0, LCD_LINE4, "Sanding by...");
  //Stand by until an RS485 message is received
  while(true)
  {
    until(RS485DataAvailable());
    RS485Read(Position1);
    //Wait until it receives a message, and write that number as the position
    PlayTone(500, 25);
    //Play a sond to indicate that it is indeed receiving a message
    ClearScreen();
    RectOut(Position1, 0, 24, 4);
    //Display the tray at the received postition
  }
}