Projektbericht 796.8 KByte - Technikpreis

35 D Quellcode
tmrSensorabfrage: TTimer;
chbSensoren: TCheckBox;
chbSaveSensor: TCheckBox;
lblUhr: TLabel;
btnStartThread: TButton;
lblPaxon: TLabel;
btnStopThread: TButton;
btnCalibSensor: TButton;
chbSendMail: TCheckBox;
tmrMail: TTimer;
Label10: TLabel;
txtSensorTime: TEdit;
Label11: TLabel;
Label12: TLabel;
txtSendTime: TEdit;
Label13: TLabel;
txtEinstieg: TEdit;
Label14: TLabel;
lbl: TLabel;
Label15: TLabel;
txtBoard: TEdit;
txtBetreff: TEdit;
Label16: TLabel;
btnSendEinstellungen: TButton;
procedure btnOpenClick(Sender: TObject);
procedure btnCloseComClick(Sender: TObject);
procedure tmrSensorabfrageTimer(Sender: TObject);
procedure btnStartThreadClick(Sender: TObject);
procedure btnStopThreadClick(Sender: TObject);
procedure btnCalibSensorClick(Sender: TObject);
procedure tmrMailTimer(Sender: TObject);
procedure txtSensorTimeChange(Sender: TObject);
procedure txtSendTimeChange(Sender: TObject);
procedure btnSendEinstellungenClick(Sender: TObject);
private
public
end;
var
frmMain: TfrmMain;
var mySerialThread: TSerialThread;
var mySaveSensor: TSaveSensor;
var myPaxonThread: TPaxonThread;
myTimeString : String;
mySensorString : WideString;
mySendMailNext : Boolean;
implementation
{$R *.dfm}
procedure TfrmMain.btnOpenClick(Sender: TObject);
begin
if mySerialThread.OpenCOM(1)= False then
lblStatus.Caption := ’Fehler beim Öffnen’
else
lblStatus.Caption := ’Erfolgreich geöffnet’;
end;
procedure TfrmMain.btnCloseComClick(Sender: TObject);
begin
if mySerialThread.CloseCOM = true then lblStatus.Caption := ’COM geschlossen’;
end;
procedure TfrmMain.tmrSensorabfrageTimer(Sender: TObject);