Aritmatika dengan Delphi

Kali ini saya akan membahas aritmatika penjumlahan, pengurangan, perkalian dan pembagian dengan delphi yang langsung saya jadikan satu semuanya dalam satu program.

Desain Form seperti dibawah ini.

Komponen yang digunakan :

  • Label : Angka 1, Angka 2, Hasil
  • Edit : Edit1, Edit2, Edit3
  • Button : Jumlahkan, Kurangkan, Kalikan, Bagikan

Klik 2 kali pada tombol Jumlahkan dan tulis kode program sebagai berikut :

Edit3.Text := FloatToStr(StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text));

Kalau sudah kembali lagi ke Desain Form dengan menekan tombol F12. Lalu klik tombol Kurangkan dan tulis kode program sebagai berikut :

Edit3.Text := FloatToStr(StrToFloat(Edit1.Text) – StrToFloat(Edit2.Text));

Seterusnya sama seperti diatas pada tombol Kalikan :

Edit3.Text := FloatToStr(StrToFloat(Edit1.Text) * StrToFloat(Edit2.Text));

Pada tombol Bagikan :

Edit3.Text := FloatToStr(StrToFloat(Edit1.Text) / StrToFloat(Edit2.Text));

Lihat gambar dibawah ini.

Kalau sudah jalankan program, isi Edit1 dan Edit2 dengan Angka. Lalu klik tombol-tombolnya dan lihat hasilnya.

Selamat Mencoba … 😀

Download Source Kode disini.

Iklan

, , ,

  1. Tinggalkan komentar

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

Connecting to %s

%d blogger menyukai ini: