Blog Tatas: Membuat Aplikasi Kalkulator Sederhana Pada Delphi

Pada kesempatan ini kita akan membuat aplikasi kalkulator sederhana menggunakan Delphi. Sama seperti aplikasi sebelumnya langkah awal yang dilakukan adalah menjalankan Delphi setelah itu mendesain form, desainlah form hingga menjadi seperti ini.

   Berikut adalah object yang digunakan beserta propertiesnya.

Object   Name   Caption
Label   Label1   Masukan Angka
             Label2   Masukan Angka 2
             Label3   Hasil adalah
Edit      Edit1
             Edit2
             Edit3
Button Button1   +
   Button2   -
   Button3   *
   Button4   /
   Button5   MOD

   Selanjutnya adalah pengkodean, pertama kita akan mengkode Button1, berikut adalah codingnya beserta artinya.
procedure TForm1.Button1Click(Sender: TObject); : Batas awal pengkodean.
var x,y,z : integer; : mendeklarasikan variable x, y, z sebagai integer.
begin
x:=strtoint(Edit1.Text); : nilai x diambil dari isi/teks dari Edit1 yang telah dikonversi dari string ke integer.
y:=strtoint(Edit2.Text); : nilai y diambil dari isi/teks dari Edit1 yang telah dikonversi dari string ke integer.
z:= x+y; : nilai z adalah hasil penjumlahan x ditambah y.
Edit3.Text:=inttostr(z); : isi/teks dari Edit3 diambil dari nilai variable z yang telah dikonversi dari integer ke string
end; : Batas akhir pengkodean.
   Selanjutnya pengkodean pada Button2, berikut codingnya.
procedure TForm1.Button2Click(Sender: TObject); : Batas awal pengkodean.
var x,y,z : integer; : mendeklarasikan variable x, y, z sebagai integer.
begin
x:=strtoint(Edit1.Text); : nilai x diambil dari isi/teks dari Edit1 yang telah dikonversi dari string ke integer.
y:=strtoint(Edit2.Text); : nilai y diambil dari isi/teks dari Edit1 yang telah dikonversi dari string ke integer.
z:= x-y; : nilai z adalah hasil pengurangan x dikurang y.
Edit3.Text:=inttostr(z); : isi/teks dari Edit3 diambil dari nilai variable z yang telah dikonversi dari integer ke string
end; : Batas akhir pengkodean.
   Selanjutnya pengkodean pada Button3, berikut codingnya.
procedure TForm1.Button3Click(Sender: TObject); : Batas awal pengkodean.
var x,y,z : integer; : mendeklarasikan variable x, y, z sebagai integer.
begin
x:=strtoint(Edit1.Text); : nilai x diambil dari isi/teks dari Edit1 yang telah dikonversi dari string ke integer.
y:=strtoint(Edit2.Text); : nilai y diambil dari isi/teks dari Edit1 yang telah dikonversi dari string ke integer.
z:= x*y; : nilai z adalah hasil perkalian x dikali y.
Edit3.Text:=inttostr(z); : isi/teks dari Edit3 diambil dari nilai variable z yang telah dikonversi dari integer ke string
end; : Batas akhir pengkodean.
Selanjutnya pengkodean pada Button4, berikut codingnya.
procedure TForm1.Button4Click(Sender: TObject); : Batas awal pengkodean.
var x,y,z : real; : mendeklarasikan variable x, y, z sebagai real.
begin
x:=strtofloat(Edit1.Text); : nilai x diambil dari isi/teks dari Edit1 yang telah dikonversi dari string ke float.
y:=strtofloat(Edit2.Text); : nilai y diambil dari isi/teks dari Edit1 yang telah dikonversi dari string ke float.
z:= x/y; : nilai z adalah hasil pembagian x dibagi y.
Edit3.Text:=floattostr(z); : isi/teks dari Edit3 diambil dari nilai variable z yang telah dikonversi dari integer ke string
end; : Batas akhir pengkodean.
Selanjutnya pengkodean pada Button5, berikut codingnya.
procedure TForm1.Button5Click(Sender: TObject); : Batas awal pengkodean.
var x,y,z : integer; : mendeklarasikan variable x, y, z sebagai integer.
begin
x:=strtoint(Edit1.Text); : nilai x diambil dari isi/teks dari Edit1 yang telah dikonversi dari string ke integer.
y:=strtoint(Edit2.Text); : nilai y diambil dari isi/teks dari Edit1 yang telah dikonversi dari string ke integer.
z:= x MOD y; : nilai z adalah hasil modulus x dengan y, akan menampilkan hasil sisa bagi x dan y.
Edit3.Text:=inttostr(z); : isi/teks dari Edit3 diambil dari nilai variable z yang telah dikonversi dari integer ke string
end; : Batas akhir pengkodean.
   Berikut adalah tampilan aplikasi ketika dijalankan.