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

#include <vcl.h>

#pragma hdrstop

#include <iomanip>

#include "Kursovik.h"

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

#pragma package(smart_init)

#pragma link "CPort"

#pragma link "CPortCtl"

#pragma resource "*.dfm"

TForm1 *Form1;

int connect=0, N_vhod=0, N_vyhod=0, vhod=0, vyhod=0, process=0, ADC_H=0, ADC_L=0, v_vhod=15, P=50;

float ADC, e, h2, delta_e, zad_e=3, v_vyhod=0;

AnsiString Str,delta_es;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

if (connect==1)

{

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

process=1; //переменная, отвечающая за начало процесса подсчтеа и анализа параметров

vhod=0; //переменная, отвечающая за формирование входных импульсов

vyhod=0; //переменная, отвечающая за формирование выходных импульсов

ComPort1->WriteStr('p'); //отправляемсимвол 'p'

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