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

}

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

void __fastcall TForm1::ComPort1RxChar(TObject *Sender, int Count)

{

ComPort1->ReadStr(Str,1); //читаем полученные данные

ComPort1->ClearBuffer(true,true); // записываемв Str

if (vhod==1)

{

if (Str == 'x') {N_vhod=N_vhod+1; Edit1->Text=N_vhod;}

else if (Str == 'y') {N_vhod=N_vhod+10; Edit1->Text=N_vhod;}

else if (Str == 'z') {N_vhod=N_vhod+100; Edit1->Text=N_vhod;}

}

else if (vyhod==1)

{

if (Str == 'x') {N_vyhod=N_vyhod+1; Edit2->Text=N_vyhod;}

else if (Str == 'y') {N_vyhod=N_vyhod+10; Edit2->Text=N_vyhod;}

else if (Str == 'z') {N_vyhod=N_vyhod+100; Edit2->Text=N_vyhod;}

}

if (process == 1)

{

if (ADC_H == 0) ADC_H = Str[1];

else

{

ADC_L = Str[1];

if (ADC_L<0) ADC_L=255+ADC_L;

ADC=(float)(ADC_H<<8|ADC_L)*5/4095; //Данные с АЦП используются как толщина на входе

if (N_vhod!=0 && N_vyhod>=N_vhod) //Проверка корректности данных по импульсам (количество импульсов на входе < кол-ва импульсов на выходе)

{

Edit3->Text=ADC; //Выводим толщину на входе