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

#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;;

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

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

Разработка комплекта электрических схем маршрутной релейной централизации блочного типа
Целью дипломного проектирование являлась разработка комплекта электрических схем маршрутной релейной централизации блочного типа (БМРЦ) для использования их студентами техникума в качест ...

Организация связи по оптическому кабелю магистрали Коченево-Мамонтово
Телекоммуникации являются основой развития общества. Постоянно растущий спрос, как на обычные телефонные, так и на новые виды услуг связи, включая услуги Интернет, предъявляет новые тре ...