roboforum.ru

void __fastcall TForm1::Cmd(TObject *Sender, AnsiString as)
{
        AnsiString s=as+"\n\r";
        CommPort1->PutString(s.c_str());
        while(CommPort1->CharReady())
        char c=CommPort1->GetChar();
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        CommPort1->Open=true;
        Cmd(Sender,"L40");
}

void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
        AnsiString val;
        val=val.sprintf("%04lX",TrackBar1->Position);
        Cmd(Sender,"S40 0D 00 "+val+" P");
}