Конструктивные противопожарные меры в вагоне

#pragma package(smart_init)

#pragma resource "*.dfm"*ReportForm;

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

fastcall TReportForm::TReportForm(TComponent* Owner)

: TForm(Owner)

{

}

//--------------------------------------------------------------------------- fastcall TReportForm::DBGrid1CellClick(TColumn *Column)

{>Clear();>Lines->Add(DM->ReportTable->FieldByName ("Comments")->AsString);

}

//--------------------------------------------------------------------------- fastcall TReportForm::FormActivate(TObject *Sender)

{>Text = DateToStr(Date());>ReportTable->Filter = AnsiString("Date = '") + EDate->Text + AnsiString("'");

}

//--------------------------------------------------------------------------- fastcall TReportForm::Button1Click(TObject *Sender)

{>ReportTable->Filter = AnsiString("Date = '") + EDate->Text + AnsiString("'");

}

//--------------------------------------------------------------------------- fastcall TReportForm::Button2Click(TObject *Sender)

{>ReportTable->Delete();(this);

}

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

Файл :SerialLink.h

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

#ifndef SerialLinkH

#define SerialLinkH

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

#include <Classes.hpp>

//---------------------------------------------------------------------------SerialLink : public TThread

{:: fastcall Execute();:

fastcall SerialLink(bool CreateSuspended); fastcall DecodePacket(void);

};

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

#endif

Файл :SerialLink.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "SerialLink.h"

#include "GlobalVariables.h"

#pragma package(smart_init)

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

// Important: Methods and properties of objects in VCL can only be

// used in a method called using Synchronize, for example:

//// Synchronize(UpdateCaption);

//// where UpdateCaption could look like:

//// void fastcall SerialLink::UpdateCaption()

// {

// Form1->Caption = "Updated in a thread";

// }

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

fastcall SerialLink::SerialLink(bool CreateSuspended)

: TThread(CreateSuspended)

{= true;= tpIdle;

}

//--------------------------------------------------------------------------- fastcall SerialLink::DecodePacket(void)

{= ((Buffer[0]>>8)&0x000f)*0.1 + ((Buffer[1]>>8)&0x000f)*0.01;= ((Buffer[3]>>8)&0x000f)*0.1 + ((Buffer[4]>>8)&0x000f)*0.01;= ((Buffer[6]>>8)&0x000f)*0.1 + ((Buffer[7]>>8)&0x000f)*0.01;= ((Buffer[8]>>8)&0x000f)*0.1 + ((Buffer[9]>>8)&0x000f)*0.01;= ((Buffer[11]>>8)&0x000f)*0.1 + ((Buffer[12]>>8)&0x000f)*0.01;= ((Buffer[14]>>8)&0x000f)*0.1 + ((Buffer[15]>>8)&0x000f)*0.01;= ((Buffer[0]>>4)&0x000f)*1 + ((Buffer[1]>>4)&0x000f)*0.1 + ((Buffer[2]>>4)&0x000f)*0.01;= ((Buffer[5]>>4)&0x000f)*1 + ((Buffer[6]>>4)&0x000f)*0.1 + ((Buffer[7]>>4)&0x000f)*0.01;= ((Buffer[8]>>4)&0x000f)*10 + ((Buffer[9]>>4)&0x000f)*1 + ((Buffer[10]>>4)&0x000f)*0.1;= (Buffer[0]&0x000f)*1000 + (Buffer[1]&0x000f)*100 + (Buffer[2]&0x000f)*10 + Buffer[3]&0x000f;= (Buffer[5]&0x000f)*100 + (Buffer[6]&0x000f)*10 + Buffer[7]&0x000f;((Buffer[10]>>8)*0x0003)

{0 := "КЖ";;1 := "Ж";;2 := "З";;

}(Buffer[4]*0x0003)

{0 := 50;;1 := 25;;2 := 75;;

Читайте также

Проектирование аппаратного обеспечения одноплатных микроконтроллеров
Задание: В заданной РЭС осуществить управляющую функцию по одному из заданных параметров с помощью контроллера, построенного на МПК, разработать электрическую принципиальную схему проект ...

Проектирование систем автоматизации электрических железных дорог
Последнее десятилетие характеризуется существенным совершенствованием систем телемеханики и расширением областей их применения. Это обусловлено новейшими достижениями микроэлектроники и ...

Проектирование усилителя напряжения
Прежде чем начать рассчитывать усилитель, выберем некоторые его элементы и условия моделирования. В качестве транзисторов будем использовать нашедшие широкое применение в прак ...