Arduino.ru

void setup() {
  
Serial.begin(115200); 

}

void loop() {

  long int   i, j, n;
  double     pi = 3.141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825342117067982148086513282306647093844609550582231725359408128, fr, x;
  byte       *y;
  

  fr = 20;
  n = 2;     
  y = NULL;
  y = new byte[n];

  i = 0; 
  while(1)
  {
    memmove(y, &y[1], sizeof(y[0]) * (n - 1));
    x = 128 + 128 * sin(2 * pi * fr * ((double)micros() / 1000000));   
    x = (x >= 256) ? (256 - 1) : x;  x = (x < 0) ? 0 : x;
    y[n - 1] = (byte)x; 

    if(i >= n - 1) 
    { 
      Serial.write(y, n); 
    }

    i = (i < n - 1) ? (i + 1) : 0;
  }

  if(y) { delete y;  y = NULL; }
}

  bStart->Enabled = false;
  PortOk  = false;
  CP = NULL;
  CP = new TIPCommPort();
  Port = StrToInt(ePort->Text);
  if(!CP) return;
  if(CP->GetConnected()) CP->CloseCommPort();     // Если уже был включен
  CP->SetCommPort(Port);
  CP->SetBaudRate(115200);
  CP->SetParity(0);     // Проверка на четность (0 - не используем эту проверку; если бы использовали, то надо еще указывать, ODD или EVEN; бит четности идет после значимых, перед стоп-битом)
  CP->SetStopBits(1);   // Продолжительность стопового бита в тактах (обычно - 1 или 2, но может быть и нецелое число)
  CP->SetByteSize(8);   // Количество значимых битов в байте (бывает 9)
  CP->OpenCommPort();
  if(!CP->GetConnected()) { delete CP; return; }
  CP->ResetRB2(1000);        // команда на сброс контроллеру COM-порта;  CP->ResetRB2(1000) - вычитывание всего из COM-порта с той же целью (сброса) в течение 1000 мс
  PortOk = true;
  bStart->Enabled = true;

// -----------------------------------------

int    Size, tm, tmprev;
float  dt;
BYTE   buf[8192];

 while(PortOk)
 {
   Application->ProcessMessages();

   Size = PortOk ? CP->InputCount() : 0;
   if(Size < 4096) continue;    // Чтобы не тратить время на чтение маленьких блоков

   Size = PortOk ? CP->ReadBlock(buf, (Size > 8192) ? 8192 : Size) : 0;

   tmprev = tm;
   tm = GetTickCount();
   dt = (float)(tm - tmprev) / (8 * Size * 1000);
 }

// ... ЗДЕСЬ dt - ВРЕМЯ ПЕРЕДАЧИ 1 БИТА. В СЛУЧАЕ ПЕРЕДАЧИ ФУНКЦИЕЙ Serial.write получается 2.56e-5, то есть 39 Кбит/сек.