}((Buffer[5]>>8)*0x0001)
{0 := "нет";;1 := "да";;
}
}
//--------------------------------------------------------------------------- fastcall SerialLink::Execute()
{
//---- Place thread code here ----dcb;hCom;TimeOuts;dwError;fSuccess;index = 0;= CreateFile("COM1",_READ,
, /* comm devices must be opened w/exclusive-access */, /* no security attrs */_EXISTING, /* comm devices must use OPEN_EXISTING */
, /* not overlapped I/O *//* hTemplate must be NULL for comm devices */
);(hCom == INVALID_HANDLE_VALUE)
{= GetLastError(); /* handle error */;
}
/*
* Omit the call to SetupComm to use the default queue sizes.
* Get the current configuration.
*/= GetCommState(hCom, &dcb);(!fSuccess)
{;
/* Handle the error. */
}
/* Fill in the DCB: baud=9600, 8 data bits, no parity, 2 stop bit. */.BaudRate = 9600;.ByteSize = 8;.Parity = NOPARITY;.StopBits = TWOSTOPBITS;= SetCommState(hCom, &dcb);(!fSuccess)
{;
/* Handle the error. */
}(hCom, &TimeOuts);.ReadIntervalTimeout = 100;.ReadTotalTimeoutMultiplier = 1;.ReadTotalTimeoutConstant = 100;(hCom, &TimeOuts);long g=1;work1[2], work2[2];(!Terminated)
{= ReadFile(hCom,work1,g,&g,0);((fSuccess)&&(g>0))
{
{= ReadFile(hCom,work2,g,&g,0);((fSuccess)&&(g>0))
{[index] = work1[0]|(work2[0]<<8);++;(index==16)
{();=0;
}
}
} while ((fSuccess)&&(g>0));
}
}(hCom);
}
//---------------------------------------------------------------------------
Файл :MyRC.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop("MyRC.res");("RC.cpp", MainForm);("Sites.cpp", SitesForm);("FrictSites.cpp", FrictSitesForm);("DataModule.cpp", DM); /* TDataModule: DesignClass */("RCs.cpp", RCForm);("KPT.cpp", KPTForm);("GlobalVariables.cpp");("SerialLink.cpp");("Report.cpp", ReportForm);
//---------------------------------------------------------------------------WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
{>Initialize();>CreateForm( classid(TDM), &DM);>CreateForm( classid(TMainForm), &MainForm);>CreateForm( classid(TSitesForm), &SitesForm);>CreateForm( classid(TFrictSitesForm), &FrictSitesForm);>CreateForm( classid(TRCForm), &RCForm);>CreateForm( classid(TKPTForm), &KPTForm);>CreateForm( classid(TReportForm), &ReportForm);>Run();
}(Exception &exception)
{>ShowException(&exception);
}0;
}
//---------------------------------------------------------------------------
Читайте также
Модуль шестнадцатиразрядного двоичного реверсивного счетчика с параллельно-последовательным переносом, с предустановкой и выводом информации по два разряда, начиная с младшего
В настоящее время происходит компьютеризация практически во всех областях
науки, техники, производства…Предпочтение отдается цифровым технологиям,
которые считаются более продвинутыми и ...
Применение системы автоматического проектирования на ИП Суслова
Почти
все крупные предприятия используют в своей работе возможности компьютерной
техники, в частности CAD, CAM, САЕ технологии, т.к. они предоставляют ряд
преимуществ, таких как ...
Основы телефонной коммутации
История освоения направления телекоммуникационного оборудования началась
в далеком 1992г., когда на развалинах Советского Союза небольшая группа
инженеров-энтузиастов во главе с будущим ...