Searching...
Monday, October 15, 2012

Membuat Kalkulator dengan Delphi 7

tutorial delphi
Postingan pertama mengenai tutorial Delphi ini akan saya mulai dengan tutorial membuat kalkulator sederhana dengan Delphi 7. Mungkin ada beberapa orang yang belum begitu mengenal delphi sehingga sulit juga untuk membuat aplikasi sederhana ini dengan Delphi. Sehingga disini akan saya paparkan secara jelas bagaimana cara desain form dan coding untuk membuat kalkulator sederhana ini. 


//Proses Desain Form :
Langkah 1
Buat sebuah File baru. Klik File > New > Aplications

Langkah 2
Kita akan mulai dengan desain form terlebih dahulu. Buat sebuah kolom teks atau "Edit" pada form. Edit ini nantinya digunakan untuk menginputkan nilai pertama pada kalkulator. 
lihat gambar :

membuat kalkulator dengan delphi

Lalu pada Object Inspektor hapus Teks-nya menjadi blank / kosong tanpa teks.

membuat kalkulator dengan delphi

Langkah 3
Tambahkan 2 "Edit" lagi. Edit kedua berfungsi untuk menginputkan nilai kedua pada kalkulator. Sedangkan Edit yang ke 3 berfungsi untuk menampilkan hasil dari proses aritmatik yang digunakan.
Lalu pada Object Inspektornya pun hapus Teks menjadi blank (seperti langkah 2).
Sehingga menjadi seperti ini :

membuat kalkulator dengan delphi

Langkah 3
Sekarang kita buat Button. Klik Button lalu tambahkan pada form aplikasi. Ganti Caption menjadi tanda operasi tambah (+).

membuat kalkulator dengan delphi

membuat kalkulator dengan delphi

Langkah 4
Buat lagi 3 Button lainnya. Yaitu kurang (-), kali (x), dan bagi (:).
Sehingga seperti ini :

membuat kalkulator dengan delphi

Proses Coding :
Langkah 5
Sekarang masuk ke proses coding. Klik 2x pada Button (+). Lalu masukkan code seperti ini :

membuat kalkulator dengan delphi

  var
  a,b,c:real:
begin  
  a := StrToFloat(edt1.Text);
  b := StrToFloat(edt2.Text);
  c := a+b; //operasi pertambahan
  edt3.Text := FloatToStr(c);
end;

Langkah 6
Coba RUN [F9] terlebih dahulu untuk melihat hasil sementara. Jika tidak ada kesalahan maka aplikasi dapat terbuka. Lalu coba untuk menggunakan kalkulator dengan operasi tambah.

membuat kalkulator dengan delphi

Langkah 7
Jika sudah berhasil pada Button (+). Sekarang Klik 2x pada Button (-). Lalu tambahkan code seperti ini :

var
  a,b,c:real:
begin  
  a := StrToFloat(edt1.Text);
  b := StrToFloat(edt2.Text);
  c := a-b; //operasi pengurangan
  edt3.Text := FloatToStr(c);
end;

Sama saja seperti pada Button (+). Hanya saja yang diganti hanyalah operator pada proses aritmatikanya.

membuat kalkulator dengan delphi

Langkah 8
Klik 2x lagi pada Button (x) begitu juga dengan Button (:). Lalu tambahkan code seperti pada langkah 7 dan 8. Hanya saja ganti operator untuk (x) menjadi * . Sedangkan untuk (:) ganti menjadi /.

Berikut Hasilnya :
membuat kalkulator dengan delphi

membuat kalkulator dengan delphi

Semoga Bermanfaat :)

7 comments:

  1. mantap blognya
    tetap berkarya lewat tulisan ya ..
    salam
    Rumah Komputer :)

    ReplyDelete
  2. kita juga punya nih artikel mengenai delphi, berikut linknya semoga bermanfaat ya :D
    http://repository.gunadarma.ac.id/bitstream/123456789/2320/1/Sinusoidal%20Scrolling%20OpenGL%20project%20in%20Delphi.pdf

    ReplyDelete
  3. Alhamdulillah,,,tugas saya sedikit terselesaikan,,,
    Sukron katsir ya..
    >,<

    ReplyDelete
  4. gag bisa dii jalan khn perogram nyaa,cara nyaa gimana ??

    ReplyDelete
  5. @nova shellacoba cek nama komponennya, contohnya untuk Edit namenya adalah "Edt".

    ReplyDelete
  6. masbro untuk delpi 7 kok stack yah di windows 8?

    ReplyDelete