Membuat Kalkulator dengan Perintah Function menggunakan delphi

Perintah Funtion atau Fungsi pada delphi berguna dan berfungsi untuk menyatakan fungsi atau kerja proses yang ditentukan dengan perintah tertentu. Perintah Function ini biasanya diletakan diatas list program daripada Form tersebut. dimana penulisan perintah function yang benar dalam penerapannya adalah sebagai berikut , Dimisalkan kita akan membuat sebuah program kalkulator dengan delphi menggunakan perintah function, kita buat untuk penambahan terlebih dahulu, contoh perintah fungsinya adalah :


function tambah(var a,b : integer): integer;
begin
tambah:=a+b;
end;

Kata tambah diatas dapat kita ubah sesuka hati, ada catatan penting bagi anda yang ingin membuat kalkulator dengan elemen function. yaitu penggunaan simbol untuk menyatakan penjumlahan, perkalian, pembagian, dan juga pengurangan.

Karena setelah saya mencoba, saya gagal untuk membuat tombol bagi atau pembagian. itu dikarenakan pada perintah fungsi simbol bagi yang seharusnya Slash (/) menjadi Divide (div). 

itulah penyebab kegagalan saya membuat program ini, jadi untuk lebih jelasnya mari kita lihat simbol simbol berikut :

Penjumlahan atau Tambah = + (plus)
Pengurangan atau Kurang = – (minus)
Perkalian atau Kali = * (bintang)
Pembagian atau Bagi = div (divide)

Penerapan perintah Function

[Kurang]
function kurang(var a,b : integer): integer;
begin
kurang:=a-b;
end;

[Tambah]
function tambah(var a,b : integer): integer;
begin
tambah := a+b;
end;

[Kali]
function kali(var a,b : integer): integer;
begin
kali:=a*b;
end;

[Bagi]
function bagi(var a,b : integer): integer;
begin
bagi:=a div b;
end;

Nah setelah kita mengetahui beberapa catatan penting diatas mari kita mulai membuat kalkulator dengan perintah function menggunakan aplikasi delphi mudah.

Langkah – Langkah Membuat Kalkulator Dengan Delphi menggunakan perintah Function

1. Siapkan :

3 Buah Label (Nilai1, Nilai2, Hasil)
3 Buah Text Box
5 Buah Button (Tambah, Kurang, Kali, Bagi, Hapus/Reset)

2. Silahkan ikuti design berikut :



3. klik 2x pada form
4. Masukan Kode Berikut diatas procedure TForm1.FormCreate(Sender: TObject);

function kurang(var a,b : integer): integer;
begin
kurang:=a-b;
end;

function tambah(var a,b : integer): integer;
begin
tambah := a+b;
end;

function kali(var a,b : integer): integer;
begin
kali:=a*b;
end;

function bagi(var a,b : integer): integer;
begin
bagi:=a div b;
end;

5. klik 2x Button Tambah lalu hapus tulisan Begin yang ada dan masukan Kode :

var
x,y : integer;
c:integer;
begin
x := strtoint(edit1.text);
y := strtoint(edit2.text);
c:=tambah(x,y);
edit3.text:=inttostr(c);

7. klik 2x Button Kurang lalu hapus tulisan Begin yang ada dan masukan Kode :

var
x,y : integer;
c:integer;
begin
x := strtoint(edit1.text);
y := strtoint(edit2.text);
c:=kurang(x,y);
edit3.text:=inttostr(c);

8. klik 2x Button Kali lalu  hapus tulisan Begin yang ada dan masukan Kode :

var
x,y : integer;
c:integer;
begin
x := strtoint(edit1.text);
y := strtoint(edit2.text);
c:=kali(x,y);
edit3.text:=inttostr(c);

9. klik 2x Button Bagi lalu hapus tulisan Begin yang ada dan masukan Kode :

var
x,y : integer;
c:integer;
begin
x := strtoint(edit1.text);
y := strtoint(edit2.text);
c:=bagi(x,y);
edit3.text:=inttostr(c);

10. Klik 2x Button Hapus/Reset, lalu masukan kode:

edit3.clear;

11. Selesai

Save Project / Menyimpan Pekerjaan Pada Delphi

Untuk mencobanya saya sarankan Save dulu dengan Cara :

1. Klik File
2. Save Project As
3. Masukan nama Project, Mis:kangakbar.com project
4. Ok Ok Ok Ok

Menjalankan Program dan Menjadikan Aplikasi (.exe)

Untuk mencoba menjalankannya tekan tombol F9, Jika program berjalan lancar silahkan build project untuk menjadikan program ini menjadi aplikasi dengan cara :

1. Klik Project
2. Klik Build Project1 atau Build All Project
3. File aplikasi akan tersimpan otomatis di tempat project ini disimpan.

Hasil:

nah, itu dia cara membuat kalkulator mudah menggunakan perintah function dengan software aplikasi delphi. Kangakbar.com Terimakasih

Leave a Reply

Your email address will not be published. Required fields are marked *