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

{

if (connect==1)

{

ComPort1->WriteStr('s');

ComPort1->ClearBuffer(true,true); //Очисткабуфера

ComPort1->Connected=false; //Завершениесоединения

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

connect=0;

Edit1->Text=0;

Edit2->Text=0;

Edit3->Text=0;

Edit4->Text=0;

Edit5->Text=0;

Edit6->Text=0;

Edit7->Text=0;

Edit8->Text=0;

Edit9->Text=0;

N_vhod=0;

N_vyhod=0;

vhod=0;

vyhod=0;

process=0;

v_vyhod=0;

ADC_H=0;

ADC_L=0;

Edit6->Text=zad_e;

}

}

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