Membuat Kalkulator Sederhana Menggunakan Delphi

hasilProgram kalkulator saya ini memang sangat sederhana, didalamnya hanya terdapat fungsi-fungsi umum yang biasa terdapat di kalkulator pada umumnya. Namun kamu juga bisa mengembangkan kalkulator yang lebih kompleks. Nah di dalam program kalkulator yang saya buat ini terdapat fungsi seperti:

  • Penambahan
  • Pengurangan
  • Perkalian
  • Pembagian
  • Sisa Pembagian

Oke langsung aja kita belajar sama-sama bagaimana cara membuat program kalkulator sederhana.

Ikuti Langkah-langkah dibawah ini:

    • Buka Borland Delphi (Disini saya menggunakan Borland Delphi 7)
    • Klik File->New->Application
    • Setelah tampil form baru, tambahkan beberapa komponen form sehingga menjadi seperti gambar dibawah ini AWAL Komponen yang ada di dalam program saya adalah:
    • table
    • Setelah itu double klik pada tombol Hitung (Button1) untuk menuliskan kode program.
    • Tulisakan kode program dibawah ini atau copy paste juga boleh. hehehe
var
nilai1,nilai2,hasil:integer;
begin
nilai1:=strtoint(Enilai1.text);
nilai2:=StrToInt(enilai2.Text);
case roprtr.ItemIndex of
0:begin
hasil:=nilai1+nilai2;
ehsl.Text:=IntToStr(hasil);
end;
1:begin
hasil:=nilai1-nilai2;
ehsl.Text:=IntToStr(hasil);
end;
2:begin
hasil:=nilai1*nilai2;
ehsl.Text:=IntToStr(hasil);
end;
3:begin
hasil:=nilai1 div nilai2;
ehsl.Text:=IntToStr(hasil);
end;
4:begin
hasil:=nilai1 mod nilai2;
ehsl.Text:=IntToStr(hasil);
end;
end;
end;
procedure TForm1.bclosClick(Sender: TObject);
begin
Application.Terminate;
end;
  • Setelah semua kode program sudah selesai ditulis (*padahal copy paste, haha) tinggal klik run aja.
  • Jrenggggg!!!! Program kalkulator buatan Bill Gates telah tampil. hasil

Nah gampang kan gan, sekian dulu dari saya untuk belajar membuat program kalkulator sederhana menggunakan delphi. Mohon maaf jika ada salah kata dari saya, jangan lupa tinggalkan komentar. Salam persahabatan dari Olwin

sumber: Copyright © Olwin Kirab Novaldy. 2013
Copy Paste Silahkan [FREE]

Posted on March 20, 2013, in Uncategorized and tagged , , , , , , , . Bookmark the permalink. 3 Comments.

  1. sangat bermanfaat gan…..
    terimakasih semoga sukses dan di tunggu berita selanjutnya….

  2. salam kenal ka, saya murid smkn 3 bjb jua, rencananya tahun depan ikut LKS jua, doa akan semoga sukses lah ka😀

  3. maaf sebelumnya kalau menggangu,, boleh tanya tidak?
    bagaimana caranya kita bikin program segitiga pascal di delphi?
    terima kasih🙂

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: