Membuat Aplikasi Kalkulator Sederhana Menggunakan Delphi 7 - ShareItCare Blog

Di kesempatan kali ini, saya akan share cara membuat aplikasi kalkulator sederhana menggunakan delphi 7 yaa... Bagi para newbie nih yang mau belajar pemrograman delphi 7, saya akan terus update seputar program-program sederhana dari delphi 7 ini.. Pelajari dan kembangkan, pasti bisa kok kedepannya ^-^

Langsung aja deh.. gak usah bertele-tele :v
Oh iya, jangan lupa cek juga post saya sebelumnya tentang delphi 7.. In Here

Pertama kalian harus buat Form nya dulu seperti gambar dibawah ini. Boleh kalian tambahin kok atau kembangkan sendiri untuk tampilannya -tapi untuk newbie ikutin aja kayak digambar :v

Share It Care - Aplikasi Kalkulator → Ganti pada caption Form1.
ShareItCare - Calculator → Ganti pada caption GroupBox.
Angka 2 dan 4 → Gunakan Edit.
2 + 4 = 6 → Gunakan Label. (Label1,2,3,4,5)
Simbol + , -, x, / serta Clear dan Exit → Gunakan Button.

Sekarang kita langsung masuk codingnya ya guys :)

1. Klik 2 kali pada Button + dan copy-paste kan script berikut.

procedure TForm1.Button1Click(Sender: TObject); var angka1,angka2,hasil:single; begin angka1:=strtofloat(edit1.Text); angka2:=strtofloat(edit2.Text); hasil:=angka1+angka2; label2.Caption:='+'; label4.Caption:='='; label5.caption:=floattostr(hasil); end;

2. Klik 2 kali pada Button - dan copy-paste kan script berikut.

procedure TForm1.Button2Click(Sender: TObject); var angka1,angka2,hasil:single; begin angka1:=strtofloat(edit1.Text); angka2:=strtofloat(edit2.Text); hasil:=angka1-angka2; label2.Caption:='-'; label4.Caption:='='; label5.caption:=floattostr(hasil); end;

3. Klik 2 kali pada Button x dan copy-paste kan script berikut.

procedure TForm1.Button3Click(Sender: TObject); var angka1,angka2,hasil:single; begin angka1:=strtofloat(edit1.Text); angka2:=strtofloat(edit2.Text); hasil:=angka1*angka2; label2.Caption:='x'; label4.Caption:='='; label5.caption:=floattostr(hasil); end;

4. Klik 2 kali pada Button / dan copy-paste kan script berikut.

procedure TForm1.Button4Click(Sender: TObject); var angka1,angka2,hasil:single; begin angka1:=strtofloat(edit1.Text); angka2:=strtofloat(edit2.Text); hasil:=angka1/angka2; label2.Caption:='/'; label4.Caption:='='; label5.caption:=floattostr(hasil); end;

Jika kalian tidak tahu letak Object Inspector → Events

5. Klik Edit1 → Object Inspector → Events → OnExit dan copy-paste kan script berikut.

procedure TForm1.Edit1Exit(Sender: TObject); begin label1.Caption:=edit1.Text; end;

6. Klik Edit1 → Object Inspector → Events → OnKeyPress dan copy-paste kan script berikut.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin case key of ',':key:='.'; '.': if pos('.',Edit1.Text)> 0 then key:=#0; '0'..'9',#8:{tidak ada aksi}; else key:=#0; end;

7. Klik Edit2 → Object Inspector → Events → OnExit dan copy-paste kan script berikut.

procedure TForm1.Edit2Exit(Sender: TObject); begin label3.Caption:=edit2.Text; end;

8. Klik Edit2 → Object Inspector → Events → OnKeyPress dan copy-paste kan script berikut.

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); begin case key of ',':key:='.'; '.': if pos('.',Edit1.Text)> 0 then key:=#0; '0'..'9',#8:{tidak ada aksi}; else key:=#0; end; e

9. Klik 2 kali pada Button Clear dan copy-paste kan script berikut.

procedure TForm1.Button5Click(Sender: TObject); begin edit1.Clear; edit2.Clear; label1.Caption:=''; label2.Caption:=''; label3.Caption:=''; label4.Caption:=''; label5.Caption:=''; end;

10. Klik 2 kali pada Button Exit dan copy-paste kan script berikut.

procedure TForm1.Button6Click(Sender: TObject); begin close; end;

!!! Ingat kalau kalian mau copy-paste, dari var sampai end guys.

Harusnya sampai sini untuk masalah coding sudah selesai. Silakan coba kalian Run.. Jika berhasil, akan tampak seperti Demo Video dibawah ini.. ^-^

Jika ada pertanyaan atau kesalahan error saat running program, silakan dikolom komentar yaa.. :)

Note: Jika ada kesalahan penulisan script atau link broken bisa komen dibawah, akan saya re-upload secepatnya. Jangan lupa share ke temen-temen kalian juga, semoga bermanfaat!! ^-^