Membuat Kalkulator Melalui Delphi

Bagi anda yang sedang kuliah, belajar atau pun iseng - iseng buat program dari delphi, saya ingin membagi ilmu cara membuat kalkulator...

Langkah - langkah :

- Buatlah form baru dengan nama variable apapun dan caption apapun :













- Buat 4 TButton yang variablenya bebas captionnya (+),(-),(x),(/) seperti ini :



- Setelah itu Buatlah 3 TEdit, 2 untuk input, 1 untuk output(hasil) seperti ini :



- Klik 2x pada masing - masing TButton lalu masukan code seperti ini :

- Untuk button (+) = edit3.Text := inttostr( strtoint(edit1.Text) + (strtoint(edit2.Text)));
- Untuk button (-) = edit3.Text := inttostr( strtoint(edit1.Text) - (strtoint(edit2.Text)));
- Untuk button (x) = edit3.Text := inttostr( strtoint(edit1.Text) * (strtoint(edit2.Text)));
- Untuk button (/) = edit3.Text := floattostr( strtofloat(edit1.Text) / (strtofloat(edit2.Text)));

Keterangan :
- edit1 = digunakan untuk input bilangan pertama,
- edit2 = digunakan untuk input bilangan kedua,
- edit3 = digunakan untuk output dari penjumblahan/pengurangan/pembagian.

edit1, edit2, edit3 tergantung dari variable pada TEdit anda.

- Setelah anda memasukan code di atas anda run program tersebut dengan menekan F9 maka akan keluar gambar seperti ini :




- Coba masing-masing button, apakah fungsinya berjalan dengan baik atau tidak :

- Untuk tambah (+) :



- Untuk Kurang (-) :



- Untuk Kali (x) :



- Untuk bagi (/) :




- Setelah anda memeriksa fungsi dari program yang anda buat dan fungsinya benar, maka anda berhasil membuat program kalkulator, Congratulations ^_^ , anda pun bisa memodifikasi program anda sendiri seperti ini, tutorial di atas hanya tutorial dasar untuk membuat program kalkulator.

Jika ada masalah dalam pembuatan program ini anda bisa menanyakannya kepada saya di koment post ini, Selamat Mencoba ^_^ !