unit HESAPLAMA;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Panel1: TPanel;
Panel2: TPanel;
Label3: TLabel;
edit1: TEdit;
edit2: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2,s:Real;
begin
s1:=Strtofloat(edit1.text);
s2:=Strtofloat(edit2.text);
s:=s1+s2;
label1.Caption:='+';
label2.caption:=Floattostr(s);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
s1,s2,s:Real;
begin
s1:=Strtofloat(edit1.text);
s2:=Strtofloat(edit2.text);
s:=s1-s2;
label1.Caption:='-';
label2.caption:=Floattostr(s);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
s1,s2,s:Real;
begin
s1:=Strtofloat(edit1.text);
s2:=Strtofloat(edit2.text);
s:=s1/s2;
label1.Caption:='/';
label2.caption:=Floattostr(s);
end;
procedure TForm1.Button4Click(Sender: TObject);
var
s1,s2,s:Real;
begin
s1:=Strtofloat(edit1.text);
s2:=Strtofloat(edit2.text);
s:=s1*s2;
label1.Caption:='X';
label2.caption:=Floattostr(s);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.
arkadaşım ilgilendiğin için teşekkür ederim saygılar