Beispiel-Code - Exfo S2000 Benutzerhandbuch
Omnicure
Inhaltsverzeichnis
Benutzerhandbuch
16.7 Beispiel-Code:
Beispiel: Borland C++ Code für den Befehl „GLG" – Lichtleiterdurchmesser
abfragen
void __fastcall TForm1::Cmd33Click(TObject *Sender)
{
signed char Tries = 4;
float LG_diameter;
unsigned char
*Command;
String
Textcom= "GLG";
int
Command_CRC;
Timer1->Enabled = false;
Cmd33->Enabled = false;
Command = Textcom.c_str();
Command_CRC = CalcCRC8(0, Command, 3); // CRC8 für den Befehl „GLG"
berechnen
Screen->Cursor = crHourGlass;
zeigen
Application->ProcessMessages();
while (Tries--)
{
ComPort->FlushInBuffer();
ComPort->FlushOutBuffer();
ComPort->PutString(Textcom);
senden
ComPort->PutChar(Asc[Command_CRC>>4]);
Hex-String senden
ComPort->PutChar(Asc[Command_CRC & (0xF)]);
String senden
ComPort->PutChar('\r');
a=0;
UnitResponse = "";
TimeOut = false;
TimeOutTimer = 1;
while (TimeOutTimer) Application->ProcessMessages();
if (a == '\r')
{
// Stundenglas-Cursor
- 44 -
// Befehl „GLG"
// CRC8 in
// CRC8 in Hex-
Inhaltsverzeichnis
