Kalkulator Sederhana Dengan Delphi

Kalkulator sederhana ini dibuat menggunakan radio button yang sebagai menu pilhan dalam permrosesan angka. Penjumlahan yang dilakukan hanya menggunakan dua buah nilai, ketika anda ingin menjumlahkan tiga buah nilai tulis dahulu hasil dari penjumlahan nilai tersebut kedalam kotak nilai satu selanjutnya lakukan proses penghitungan yang diinginkan.

Fungsi aritmatika yang tersedia dalam kalkulator sederhana ini yakni penjumlahan, pengurangan, perkalian dan pembagian. Untuk menggunakan fungsi aritmatika tersebut anda hanya tinggal klik option yang ada pada tab atas kotak nilai dan hasilnya akan langsung ditampilkan di kotak hasil. Berikut bentuk dari aplikasi kalkulator menggunakan delphi:

Bentuk Awal Ketika Aplikasi Dijalankan

Gambar Aplikasi Memroses Data

Keterangan Kode Programnya sebagai berikut:

Komponen Yang digunakan:

PN: TPanel;
jumlah: TRadioButton;
Kurang: TRadioButton;
kali: TRadioButton;
bagi: TRadioButton;
Ed_nil1: TEdit;
Ed_nil2: TEdit;
Ed_hasil: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Image1: TImage;

var //inisialisasi data
Form1: TForm1;
a, b , c : real; //nilai yang tertera pada data a, b, c adalah real.

procedure TForm1.jumlahClick(Sender: TObject); //klik dua kali pada radiobutton penjumlahan
begin
a:=strtofloat(ed_nil1.Text); //mengubah string ke float pada kotak nilai 1
b:=strtofloat(ed_nil2.Text); //mengubah string ke float pada kotak nilai 2
c:= a+b; //Algoritma penjumlahan
ed_hasil.Text:=floattostr(c); //mengubah integer ke string pada kotak Hasil
end;

List program selanjutnya adalah pengurangan, perkalian dan pembagian hampir sama dengan penjumlahan. Hanya operasi aritmatika c:= a+b harus diganti sesuai dengan option yang dipilih seperti c:= a-b, c:= a*b, c:= a/b.

Downnload aplikasi kalkulator klik disini

Download source code lengkap klik disini

Jika anda masuk pada linkbuck, klik tulisan Skip This Ad di pojok kanan atas.