Saturday 15 December 2012


Ass. Apa kabar sob hehee……
Sebelumnya saya pernah memposting bagaimna Cara Membuat Aplikasi Input Output Data Menggunakan Borland Delphi 7.
Nah sob disini saya akan mencoba berbagi pengetahuan bagaimna membuat kalkulator sederhana dengan menggunakan Borland Delphi 7. Langsung aja dech kita pembahasan hehe.
Nah sob dibawah ini adalah desain form nya.  





















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.

  
Semoaga artikel ini dapat bermanfaat ya sob....
selamat mencoba dan sukses 




4 comments:

  1. gan kenapa kalo pembagian harus real? mohon pencerahannya. maklum newbie :D

    ReplyDelete
    Replies
    1. Andi: hehe :) jadi gini gan...Real merupakan floating yang digunakan untuk menyatakan bilangan yang mempunayi angka desimal atau pun angka pecahan.
      coba aja agan ganti variabel yang di deklarasikan di Button Pembagian tipe datanya menjadi integer....pasti program tersebut g,k bakalan jalan hehhe...
      maaf bru bisa bls.. soalnya baru buka blog lagi hehe :)

      Delete

Link list

About

Cool Blogs

Total Pengunjung

Blogroll

Get this widget

Blogger templates

Get this widget

Blogger news

Clock

Powered by Blogger.

Labels

About Me

Follower