}((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;
}
//---------------------------------------------------------------------------
Читайте также
Проектирование усилителя напряжения
Прежде чем начать рассчитывать усилитель, выберем некоторые его элементы
и условия моделирования.
В качестве транзисторов будем использовать нашедшие широкое применение в
прак ...
Разработка компьютерной сети по технологии Token Ring c STP с подключением к Интернет
Организация
компьютерных сетей:
Назначение
КС - КС используется для объединения ПК, программно-аппаратных комплексов и
связующих линий, обеспечивающих обмен информации. КС использует ...
Нанотехнологии в науке и технике
В течение тысячелетий человек использовал в быту и технике
макроскопические тела, состоящие из большого числа атомов, будь это каменный
топор или авиалайнер. Первая научно- ...