Pemograman Dasar Operator Delphi

Buat dulu Formnya :

PERHATIKAN ! 
Name Pada Kolom Nilai Praktek I = e1
Name Pada Kolom Nilai Praktek II = e2
Name Pada Kolom Tambah = etambah
Name Pada Kolom Kali = ekali
Name Pada Kolom Bagi = ebagi
Name Pada Kolom Kurang = ekurang

Syntax Pada Tombol Tambah !

procedure TForm1.TambahClick(Sender: TObject);
var
tambah,nil1,nil2:real;
begin
nil1:=strtofloat(e1.text);
nil2:=strtofloat(e2.text);
tambah:=nil1+nil2;
etambah.text:=floattostr(tambah);
end;

Syntax Pada Tombol Kali !

procedure TForm1.KaliClick(Sender: TObject);
var
tambah,nil1,nil2:real;
begin
nil1:=strtofloat(e1.text);
nil2:=strtofloat(e2.text);
tambah:=nil1*nil2;
ekali.text:=floattostr(tambah);
end;



Syntax Pada Tombol Bagi !

procedure TForm1.BagiClick(Sender: TObject);
var
tambah,nil1,nil2:real;
begin
nil1:=strtofloat(e1.text);
nil2:=strtofloat(e2.text);
tambah:=nil1/nil2;
ebagi.text:=floattostr(tambah);
end;


Syntax Pada Tombol Kurang !

procedure TForm1.KurangClick(Sender: TObject);
var
tambah,nil1,nil2:real;
begin
nil1:=strtofloat(e1.text);
nil2:=strtofloat(e2.text);
tambah:=nil1-nil2;
ekurang.text:=floattostr(tambah);
end;

Syntax Pada Tombol Clear / Hapus ! 

procedure TForm1.CloseClick(Sender: TObject);
begin
e1.text:='';
e2.Text:='';
etambah.Text:='';
ekali.Text:='';
ebagi.Text:='';
ekurang.Text:='';
end;

Kalau Mau File EXE nya Silahkan DOWNLOAD

SEMOGA BERHASIL / GANBATTE !!