Cara Membuat Kalkulator Sederhana Menggunakan Delphi 7 (Mudah)

Cara Membuat Kalkulator Sederhana Menggunakan Delphi 7 Dengan Mudah

       

        Disini saya ingin berbagi cara untuk membuat sebuah aplikasi berupa Kalkulator nih. Walau saya bukan berasal dari jurusan IT, Komputer, Programer atau lainnya, namun saya pernah belajar membuat aplikasi menggunakan Delphi 7 di mata kuliah PAAB. jadi kalau misalnya aplikasi terlalu sederhana tolong dimaklum saja lah wkwkwk.

Langsung saja kita membuat Kalkulator sederhana Versi Bey Deni Ardhi.


1. Pertama, Buka Aplikasi Delphi 7 yang telah anda install (Delphi 7 yang berjalan normal).

2. Setelah aplikasi Delphi 7 terbuka, klik "File" >> pilih "New" >> pilih "Application". Contoh pada gambar

* Catatan: Apabila Form 1 Sudah ada saat aplikasi Delphi 7 dijalankan, maka tidak perlu melakukan Proses ke-2.

3. Setelah Form keluar, Anda dapat mengubah nama dari Form tersebut.
    Object Inspector (kotak pada bagian kiri bawah) >> Properties >> Caption
    Ubah sesuka hati, agar tampilan Form bukan Teks "Form 1" yang muncul.
    Saya menyarankan caption diisi "Kalkulator" atau "Calculator" saja.

    Maka tampilan Form akan seperti ini.

4. Selanjutnya anda tambahkan 3 buah Edit, 4 buah Button, dan beberapa Label (Pelengkap saja)
    Bila bingung dimana/apa Edit, Button, Label ada di gambar. susun edit dan button serapi mungkin.

    Button berfungsi sebagai media untuk melakukan proses (pada kalkulator versi Bey).
    Edit berfungsi sebagai media untuk menginput dan output data (pada kalkulator versi Bey)
    Label berfungsi sebagai penunjuk, identitas, tambahan, penghias aplikasi.
    maka tampilan akan seperti ini.

 
untuk mengubah identitas button. >> klik button 1 >> pada properties, pilih Caption, ubah dari awalnya Button 1 menjadi tanda '+'. Ingat pada kolom CAPTION bukan kolom NAME!!!
lakukan hal tersebut pada button 2, button 3, button 4 menjadi ' - ', ' x ', ': '.
ini nama identitas mereka jika disusun sesuai yang saya contohkan.

5. Mudahkan? nah sekaranglah bagian yang mudah tapi sering kali ada kesalahan. Input Coding/Syntax/apalah itu bebas anda menyebutnya.

  >>Klik Dua kali pada button 1 atau button + (Penjumlahan)

masukan coding/sintak (Penjumlahan) sebagai berikut

procedure TForm1.Button1Click(Sender: TObject);

  Var a,b:integer;

begin

  a:=strtoint(edit1.Text);

  b:=strtoint(edit2.Text);

  edit3.Text:=inttostr(a+b);

end;

PERHATIKAN!!! untuk teks "  Var a,b:integer; " diketik sebelum begin dan juga " a:= sampai (a+b); "setelah begin dan sebelum end. PERHATIKANLAH simbol titik (.) juga Simbol Titik Komanya (;) apabilah tidak terketik atau salah maka aplikasi tidak akan jalan atau berfungsi seharusnya.

>>Klik Dua kali pada Button 2 atau - (Pengurangan)

masukan coding/sintak (pengurangan) sebagai berikut.

procedure TForm1.Button2Click(Sender: TObject);

  Var a,b:integer;

begin

  a:=strtoint(edit1.Text);

  b:=strtoint(edit2.Text);

  edit3.Text:=inttostr(a-b);

end;

Ingat!!! jangan lupa tanda titik koma (;)

>>Klik Dua kali pada Button 3 atau x (Perkalian)

Masukan Coding/sintak sebagai berikut:

procedure TForm1.Button3Click(Sender: TObject);

  Var a,b:integer;

begin

  a:=strtoint(edit1.Text);

  b:=strtoint(edit2.Text);

  edit3.Text:=inttostr(a*b);

end;

>>Klik dua kali pada button 4 atau : (Pembagian)

Masukan Coding/sintak (Ingat Var dan coding pembagian agak berbeda) sebagai berikut:

procedure TCalculator.Button4Click(Sender: TObject);

 var a,b,hasil:real;

begin

a:=StrToFloat(edit1.text);

b:=StrTofloat(edit2.text);

hasil:=a/b;

edit3.Text:=FloatToStr(hasil);

end;

jangan lupa simbol titik koma ( ; ), sama dengan ( = ), titik dua ( : ) dan titik ( . ).

Sebenarnya ini sudah beres, tapi apabila aplikasi ingin berjalan lebih lancar, lakukan hal Berikut.

>> Klik File >> Pilih "Save All" >> simpan di tempat sesuai keinginan anda.

>> Klik Project >> klik "Compile Project 1" atau tekan tombol Ctrl +F9 pada keyboard

Sebelum Kita menjalankan Aplikasi (Run) alangkah baiknya mematikan/menonaktifkan Antivirus. sebab aplikasi yangkita buat (kalkulator) memiliki format asing/ilegal bagi komputer kita. apalagi jika kita memiliki Antivirus Super kuat, saya menyarankan agar mematikan terlebih dahulu sebelum aplikasi kalkulator kalian di jalankan. seperti antivirus saya, walau antivirus biasa, tapi sensitif pada aplikasi format .exe . 

>>cukup klik pada sisi kanan bawah, apabila ada antivirus aktif.

>>klik kanan pada antivirus>> klik exit

atau buka antivirus kalian lalu matikan sementara.

Setelah Antivirus di matikan >> klik Run >> pilih Run

atau buka folder dimana kalian tadi save aplikasi lalu cari aplikasi kalian 

Project.exe atau Kalkulator.exe

Ini tampilan apabila aplikasi kalian berjalan normal.

PERHATIKAN!!! Boleh meng-copy untuk makalah/web/blog anda atau menyalin artikel saya ini ASALKAN menulis sumbernya pula baik pada daftar pustaka atau lainnya. Sesungguhnya mengcopy tanpa izin itu pencurian hehehe.
Saya Bey Deni Ardhi penulis artikel pada Beydeard.blogspot.com. Terima Kasih telah membaca artikel saya.

Apabila ada kesulitan dalam membuat aplikasi kalkulator ini, anda bisa tanyakan melalui email saya deniardhi@gmail.com