DELPHI7 :: Calculator Sederhana

Aturlah properties controlnya terlebih dahulu seperti pada tabel yang ada di bawah ini. 

Nama Control	Properties	Nilai Pengaturan
Form	Caption	Aplikasi Kalkulator Sederhana
Label1	Caption	KALKULATOR
Label2	Caption	Bilangan Ke 1
Label3	Caption	Bilangan ke 2
Label4	Caption	Hasil Hitungan
Text1	Text	Kosongkan
Text2	Text	Kosongkan
Text3	Text	Kosongkan
Button1	Caption	&Penjumlahan
Button2	Caption	&Pengurangan
Button3	Caption	&Perkalian
Button4	Caption	&Pembagian
Button2	Caption	&Ulang Bilangan
Button5	Caption	&Close

Nah kemudian ketikan kode program berikut;

1.      Double Kilick Button1 dan isikan listing program dibawah ini.

procedure TForm1.BitBtn1Click(Sender: TObject);

var a,b,c:integer;

begin

a:=strtoint(edit1.Text);

b:=strtoint(edit2.Text);

C:=a+b;

edit3.Text:=inttostr(c);

end;

2.      Double Kilick Button2 dan isikan listing program dibawah ini.

procedure TForm1.BitBtn2Click(Sender: TObject);

var a,b,c:integer;

begin

a:=strtoint(edit1.Text);

b:=strtoint(edit2.Text);

C:=a-b;

edit3.Text:=inttostr(c);

end;

3.      Double Kilick Butto 3 dan isikan listing program dibawah ini.

procedure TForm1.BitBtn3Click(Sender: TObject);

var a,b,c:integer;

begin

a:=strtoint(edit1.Text);

b:=strtoint(edit2.Text);

C:=a*b;

edit3.Text:=inttostr(c);

end;

4.       procedure TForm1.BitBtn4Click(Sender: TObject);

var a,b,c:real;

begin

a:=strtofloat(edit1.Text);

b:=strtofloat(edit2.Text);

C:=a/b;

edit3.Text:=floattostr(c);

end;

end.

Nah sob,,,,,setelah kalian mengetik koding di atas coba sobat jalan kan programnya dengan cara menekan tombol F9 pada keyboard.

Kalau sukses maka hasilnya akan seperti gambar di bawah ini.