Membuat Kalkulator sederhana dengan delphi

a.      Desain Form sebagan berikut

        

b.      Desain Properties

Object	Name	Caption
Label 1	Label 1	Nilai   1
Label 2	Label 2	Nilai   II
Label 3	Label3	Hasil

Object	Name	Text
Edit1	Enilai1	-
Edit2	Enilai2	-
Edit3	ehasil	-

Object	Name	Caption
Button1	Btambah	Tambah
Button2	Bkali	Kali
Button3	Bbagi	Bagi
Button4	Bkurang	Kurang
Button5	Bclose	Close
Button6	Bbersih	Bersih

c.       Listing Program

Catatan :

Dalam bahasa pemograman Delphi semua data yang diinput melalui edit box dideklarasikan dengan tipe data string, sehingga ketika kita akan melakukan proses perkalian atau pengurangan kita tidak bisa mengalikan secara langsung  edit  box yang dimaksud tetap kita perlu merubah menjadi nilai dengan tipe data yang dapat dikalikan.

Pada Form Create isikan listing berikut :

procedure TForm2.FormCreate(Sender: TObject);

begin

enilai1.clear;

enilai2.clear;

ehasil.clear;

end;

     

1. Program Tambah

Digunakan untuk menampilkan hasil penjumlahan antara nilai 1 dengan nilai  II, cara double klik pada buton tambah dan tuliskan kode berikut ini :

procedure TForm2.btambahClick(Sender: TObject);

var

  nil1, nil2 : real; {Pendeklarasian variabel yg di buat programmer,sekaligus penentuan type data }

  tambah: real;    

begin

nil1:= strtofloat(enilai1.text); {mengubah type data string menjadi typedata numeric}

nil2:= strtofloat(enilai2.text);

tambah:= nil1 + nil2;

ehasil.text:= floattostr(tambah);   {Mengubah Nilai pecahan menjadi data string}

end;

Buatlah Listing untuk Kurang, bagi dan kali.

Program untuk keluar

procedureTForm2.bcloseClick(Sender: TObject);

begin

messageDlg('Ingin Menutup form',mterror, [mbok],0); {menampilkan Kotak Pesan}

close;   {Menutup Form}

end;