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

Edit5->Text=e; //Выводим текущее значение относительной деформации

h2=ADC-e*ADC/100; //Расчет толщины на выходе

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

Edit7->Text=v_vhod; //Выводим скорость на входе

v_vyhod=(float)v_vhod*ADC/h2; //Расчет скорости на выходе

Edit8->Text=v_vyhod; //Выводим скорость на выходе

Edit9->Text=P; //Выводим усилие обжатия

ADC_H = 0;

ADC_L = 0;

process=0;

}

else Label5->Visible=true; //Если данные некорректны, вывод необходимой информацию

}

}

if (e>zad_e) //Если текущее значение деформации больше заданного,то

{

delta_e=e-zad_e; //вычисляем разность между текущим значением и заданным

delta_es=(AnsiString)delta_e; //Преобразуем данную разность в строку

ComPort1->WriteStr(delta_es[1]);ComPort1->ClearBuffer(true,true); //иотправляемпервыйбайтразности

Sleep(1000);

ComPort1->WriteStr(delta_es[2]);ComPort1->ClearBuffer(true,true); //отправляемвторойбайтразности

Sleep(500);

ComPort1->WriteStr(delta_es[3]);ComPort1->ClearBuffer(true,true); //отправляемтретийбайтразности

Sleep(500);

ComPort1->WriteStr(delta_es[4]);ComPort1->ClearBuffer(true,true); //отправляемчетвертыйбайтразности

e=0;

}

}

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