Program kalkulator adalah salah satu tugas pemrograman yang khas. Aplikasi semacam itu dapat diimplementasikan di hampir semua bahasa pemrograman. Salah satu bahasa pemrograman yang paling populer adalah Delphi, yang dapat digunakan untuk menulis kode kalkulator yang sederhana dan efisien.
Diperlukan
Lingkungan pemrograman Delphi
instruksi
Langkah 1
Mulai lingkungan pemrograman Delphi yang Anda gunakan. Rencanakan antarmuka untuk aplikasi Anda. Akan ada 26 tombol pada formulir, 10 di antaranya bertanggung jawab untuk angka, dan sisanya untuk fungsi. Selain itu, akan ada komponen TPanel tempat hasil tindakan akan ditampilkan.
Langkah 2
Tambahkan 4 variabel ke kode yang akan menyimpan angka yang dimasukkan oleh pengguna dan menentukan mode. Sebagai contoh:
var
a, b, c: nyata; // angka yang dimasukkan pengguna
d: bilangan bulat; // tindakan kalkulator
Langkah 3
Variabel yang dibuat dapat ditambahkan ke protected dan private. Sekarang tangani event OnClick untuk setiap tombol angka. Untuk semua digit, kodenya akan sama:
prosedur TForm1. Button1Click (Pengirim: TObject);
mulai
Panel1. Caption: = Panel1. Caption + 'angka'
akhir;
Ganti “nomor” dengan nama tombol (jika nomor 0, maka Panel1. Caption + '0').
Langkah 4
Variabel d dalam format integer dan akan berisi nilai numerik yang sesuai dari tindakan apa pun. Jika perkalian akan dilakukan, maka Anda dapat mengatur tindakan ke nilai 1, jika pembagian - nilai 2, jika penambahan - nilai 3, dll. Untuk tindakan perkalian, kodenya akan terlihat seperti:
prosedur TForm1. ButtonMultiplyClick (Pengirim: TObject); // perbanyak aksi
mulai
a: = StrToFloat (Panel1. Caption); // setelah menekan tombol, nilai variabel a disimpan
d: = 1; // variabel tindakan diatur ke nilai yang sesuai
Panel1. Keterangan: = '';
akhir;
Langkah 5
Lakukan operasi serupa untuk pembagian (ButtonDivClick), penambahan (ButtonPlusClick), pengurangan (ButtonMinusClick), dan eksponensiasi (ButtonPowerClick).
Langkah 6
Untuk memproses nilai `` = '', Anda perlu membuat kondisi kasus dan mempertimbangkan setiap tindakan secara bergantian:
prosedur TForm1. ButtonClick (Pengirim: TObject);
mulai
kasus d dari
1: mulai // jika d = 1, yaitu tombol kalikan ditekan, maka tindakan yang sesuai terjadi
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
akhir;
2: mulai
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Langkah 7
Tangani penjumlahan, pengurangan, dan eksponensial dengan cara yang sama. Kalkulator sudah siap.
