Lumen Dynamics Group OmniCure S2000 Mode D'emploi page 48

S2000 MODE D'EMPLOI
if (CompareCRC())
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();
return;
} else {
LG_diameter = atof(RdPtr);
Edit9->Text = FloatToStrF(LG_diameter, ffFixed, 12, 3);
Screen->Cursor = crDefault;
Cmd33->Enabled = true;
Timer1->Enabled = true;
Application->ProcessMessages();
return;
}
}
}
}
if (TimeOut)
MessageDlg("No response from Unit", mtError, TMsgDlgButtons() <<
mbCancel, NULL);
Screen->Cursor = crDefault;
Cmd33->Enabled = true;
Timer1->Enabled = true;
Application->ProcessMessages();
Bit 0 1
Alarme Lampe
Statut 0 Arrêt Arrêt
1 Marche Marche
2 3 4
Obturateur Attente Lampe
prête
Fermé Succès Non
Ouvert Erreur Oui
Tableau 7 Statut de l'appareil
- 43 –
// Check if the data is
{
5 6
Verrouillage Étalonnage
Arrêt Non
Marche Oui
7
Erreur
exposition
Non
Oui