Курсовая работа: Микропроцессорная система дрессировочного стана

{

Edit6->Text=zad_e; //Вывод заданного значения деформации

ComPort1->Open(); //Открытиепорта

ComPort1->Connected=true; //Установлениесоединения

connect=1;

}

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

void __fastcall TForm1::Button5Click(TObject *Sender)

{

if (connect==1)

{

process=0;

vhod=1;

vyhod=0;

Label5->Visible=false;

ComPort1->WriteStr('a');

ComPort1->ClearBuffer(true,true);

}

}

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

void __fastcall TForm1::Button7Click(TObject *Sender)

{

if (connect==1)

{

process=0;

vyhod=1;

vhod=0;

Label5->Visible=false;

ComPort1->WriteStr('a');