unit Unit1;
interface
uses
math, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan;
type
TForm1 =
class(TForm)
a: TEdit;
b: TEdit;
fi: TEdit;
Ergebnis: TEdit;
Berechnen: TButton;
CheckBox1: TCheckBox;
procedure aChange(Sender: TObject);
procedure ErgebnisChange(Sender: TObject);
procedure bChange(Sender: TObject);
procedure fiChange(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure BerechnenClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.aChange(Sender: TObject);
begin
//Eingabe fließt als a in ergebnis ein
end;
procedure TForm1.bChange(Sender: TObject);
begin
//2*3,14159 geteilt durch Eingabe b fließt als B in Ergebnis ein
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
{wenn Checkbox markiert wird eingabe in b (b mal mit 3,14159 multipliziert)}
end;
procedure TForm1.fiChange(Sender: TObject);
begin
//Eingabe fließt als fi in Ergabnis ein
end;
procedure TForm1.BerechnenClick(Sender: TObject);
begin
//Bei klick des Buttons wird ergebnis angezeigt
end;
procedure TForm1.ErgebnisChange(Sender: TObject);
begin
(*Ergebnis grundform f(x)=Eingabe in feld a*sin(eingabe in feld b(x-eingabe in feld fi))*)
{mit sin bzw. x muss nichts gerechnet werden es müssen nur die eingaben eingesetzt werden.}
end;
end.