TMain - Goethe Gymnasium Dortmund
TMain - Goethe Gymnasium Dortmund
TMain - Goethe Gymnasium Dortmund
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
Unit mReaktion1; // Hauptprogramm<br />
………………<br />
interface<br />
uses Windows, … mAmpel, mDiagramm, mZeitenliste;<br />
type<br />
<strong>TMain</strong> = class(TForm)<br />
private<br />
BtTestreihe : TButton;<br />
BtReaktionstest : TButton;<br />
EdReaktionszeit : TEdit;<br />
LbReaktionszeit :TLabel;<br />
TiReaktion :TTimer;<br />
LbMinimum: TLabel;<br />
LbMaximum: TLabel;<br />
LbDurchschnitt: TLabel;<br />
EdMinimum: TEdit;<br />
EdMaximum: TEdit;<br />
EdDurchschnitt: TEdit;<br />
BtAuswertung: TButton;<br />
Startzeit, Stopzeit: TDateTime;<br />
Zeitenliste: TZeitenliste;<br />
Diagramm: TDiagramm;<br />
Ampel: TAmpel;<br />
procedure TiReaktionTimer(Sender: TObject);<br />
procedure BtTestreiheClick(Sender: TObject);<br />
procedure BtReaktionstestClick(Sender: TObject);<br />
procedure FormKeyDown(Sender: TObject; var Key:<br />
Word; Shift: TShiftState);<br />
procedure BtAuswertungClick(Sender: TObject);<br />
public<br />
constructor Create(AOwner: TComponent); override;<br />
end;<br />
var Main: <strong>TMain</strong>;<br />
implementation<br />
….<br />
16