User's Guide

User Guide
- 42 –
String Textcom= "GLG";
int Command_CRC;
Timer1->Enabled = false;
Cmd33->Enabled = false;
Command = Textcom.c_str();
Command_CRC = CalcCRC8(0, Command, 3); // Calculate CRC8 for the
command “GLG”
Screen->Cursor = crHourGlass; // Show hourglass
cursor
Application->ProcessMessages();
while (Tries--)
{
ComPort->FlushInBuffer();
ComPort->FlushOutBuffer();
ComPort->PutString(Textcom); // send the
command “GLG”
ComPort->PutChar(Asc[Command_CRC>>4]); // send the
CRC8 in hex string
ComPort->PutChar(Asc[Command_CRC & (0xF)]); // send the CRC8
in hex string
ComPort->PutChar('\r');
a=0;
UnitResponse = "";
TimeOut = false;
TimeOutTimer = 1;
while (TimeOutTimer) Application->ProcessMessages();
if (a == '\r')
{
a = 0;
if (CompareCRC()) // Check if the data is
received correctly
{
if ( strcmp(RdPtr, "Err") == 0) {
MessageDlg("Command is wrong", mtError, TMsgDlgButtons() <<
mbCancel, NULL);
Screen->Cursor = crDefault;
Cmd33->Enabled = true;
Timer1->Enabled = true;
Application->ProcessMessages();