Program kalkulator adalah salah satu tugas pengaturcaraan biasa. Aplikasi seperti itu dapat dilaksanakan dalam hampir semua bahasa pengaturcaraan. Salah satu bahasa pengaturcaraan yang paling popular adalah Delphi, yang boleh digunakan untuk menulis kod kalkulator yang mudah dan cekap.
Perlu
Persekitaran pengaturcaraan Delphi
Arahan
Langkah 1
Mulakan persekitaran pengaturcaraan Delphi yang anda gunakan. Rancang antara muka untuk aplikasi anda. Terdapat 26 butang pada borang, 10 daripadanya bertanggungjawab untuk nombor, dan selebihnya untuk fungsi. Selain itu, akan ada komponen TPanel di mana hasil tindakan akan dipaparkan.
Langkah 2
Tambahkan 4 pemboleh ubah ke kod yang akan menyimpan nombor yang dimasukkan oleh pengguna dan menentukan modus. Sebagai contoh:
var
a, b, c: nyata; // nombor yang dimasukkan pengguna
d: integer; // tindakan kalkulator
Langkah 3
Pemboleh ubah yang dibuat dapat ditambahkan ke dilindungi dan juga peribadi. Sekarang kendalikan acara OnClick untuk setiap butang nombor. Untuk semua digit, kodnya akan sama:
prosedur TForm1. Button1Click (Penghantar: TObject);
bermula
Panel1. Caption: = Panel1. Caption + 'nombor'
akhir;
Ganti "nombor" dengan nama butang (jika itu adalah angka 0, maka Panel1. Caption + '0').
Langkah 4
Pemboleh ubah d dalam format bilangan bulat dan akan mengandungi nilai angka yang sesuai untuk tindakan. Sekiranya pendaraban akan dilakukan, maka anda boleh menetapkan tindakan ke nilai 1, jika pembahagian - nilai 2, jika penambahan - nilai 3, dll. Untuk tindakan pendaraban, kod akan kelihatan seperti:
prosedur TForm1. ButtonMultiplyClick (Penghantar: TObject); // darab tindakan
bermula
a: = StrToFloat (Panel1. Caption); // setelah menekan butang, nilai pemboleh ubah a disimpan
d: = 1; // pemboleh ubah tindakan ditetapkan ke nilai yang sepadan
Panel1. Kapsyen: = ;
akhir;
Langkah 5
Lakukan operasi serupa untuk pembahagian (ButtonDivClick), penambahan (ButtonPlusClick), pengurangan (ButtonMinusClick), dan eksponen (ButtonPowerClick).
Langkah 6
Untuk memproses nilai "=", anda perlu membuat keadaan kes dan mempertimbangkan setiap tindakan secara bergantian:
prosedur TForm1. ButtonClick (Penghantar: TObject);
bermula
kes d dari
1: mulakan // jika d = 1, iaitu butang darab ditekan, maka tindakan yang sesuai berlaku
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
akhir;
2: mulakan
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Langkah 7
Tangani penambahan, pengurangan, dan eksponen dengan cara yang sama. Kalkulator sudah siap.
