�ݺ�ߣ

26, Juni 2014
Membuat CALCULATOR Sederhana Menggunakan Bahasa pemrograman Borland Delphi 7.0
Assalamualaikum…
Ini adalah awal tutorial saya mungkin sedikit geli untuk para mastere Delphi. Tapi bagi para
pemula semoga bermanfaat, aamiin. Langsung saja!!
Bismillahhirrahmanirrakhim…
1. Pertama pastikan computer anda sudah terpasang Delphi, buka Delphi
Akan muncul tampilan awal Delphi seperti berikut :
2. Tambahkan komponen dan beri nama sebagai berikut :
No Komponen Nama
1 Edit1 (Component Standart) Edb1
2 Edit2 (Component Standart) Edb2
3 Edit3 (Component Standart) Edhasil
4 Button1 (Component Standart) Bkali
5 Button2 (Component Standart) Bbagi

6 Button3 (Component Standart) Btambah
7 Button4 (Component Standart) Bkurangi
8 Button5 (Component Standart) BSQRT
Atur tampilan sehingga seperti berikut :
3. Untuk Button kali pada event on click tambahkan source code berikut :
procedure TCalculator.BkaliClick(Sender: TObject);
Var Bil1, Bil2 :integer;
begin
Bil1:=StrToInt(Edb1.Text);
Edhasil.Text:=IntToStr(Bil1*Bil2);
end;
4. Untuk Button bagi pada event on click tambahkan source code berikut :
procedure TCalculator.BbagiClick(Sender: TObject);
var bil1,bil2 :real;
begin
bil1:=StrToFloat(Edb1.Text);
bil2:=StrToFloat(Edb2.Text);
Edhasil.Text:=FloatToStr(bil1/bil2);
end;

5. Untuk Button tambah pada event on click tambahkan source code berikut :
procedure TCalculator.BtambahClick(Sender: TObject);
var bil1,bil2 :Integer;
begin
bil1:=StrtoInt(Edb1.Text);
bil2:=StrtoInt(Edb2.Text);
Edhasil.Text:=IntToStr(bil1+bil2);
end;
6. Untuk Button kurangi pada event on click tambahkan source code berikut :
procedure TCalculator.BkurangiClick(Sender: TObject);
Var Bil1, Bil2 :Integer;
begin
Edhasil.Text:=IntToStr(Bil1-Bil2);
end;
7. Untuk Button SQRT pada event on click tambahkan source code berikut :
procedure TCalculator.BSQRTClick(Sender: TObject);
var
number, squareRoot : Extended;
nilai :real;
begin
number :=StrToFloat(Edb1.Text);
squareRoot := Sqrt(number);
Edb2.Text:=FloatToStr (squareRoot);
nilai:=StrToFloat(Edb2.Text);
Edhasil.Text:=formatfloat('#,##0.000',nilai);
end;

Sekian tutorial saya untuk kali ini. Terimakasi, semoga bermanfaat…
Wassalam wr.wb…

�ݺ�ߣ

Calculator Sederhana Delphi

Recommended

More Related Content

What's hot (20)

Similar to Calculator Sederhana Delphi (11)

Calculator Sederhana Delphi