Tuesday, 9 February 2016
PEMBUATAN PROGRAM PERHITUNGAN DENGAN EMBARCADERO XE 2
Disi saya akan menjelaskan bagai mana cara membuat sebuah
program perhitungan sederhana dengan menggunakan sofware delpi, Embarcadero xe
2.
1.
Pertama setelah anda membuka aplikasi Delphi Xe
2 pilih New Project -> VCL Forms Application -> Ok.
Maka tampilan akan menjadi seperti berikut.
2.
Pada bagian sebelah kanan terdapat atribut
Project 1 dan Tool Palette.
3.
Pada Tool Palette terdapat menu Standart,
Additional, Win 32, Dll. Klik menu Standar. Maka akan muncul tampilan dari
Tool-tool yang kan kita gunakan untuk membuat sebuah program.
4.
Selanjutnya kita akan membuat perhitungan jumlah
barang yang dibeli dengan diskon.
5.
Pilih dan klik tool TLabel -> lalu klik pada
lembar kerja, maka label akan muncul.
Untuk mengganti nama tampilan label pada
Properties pilih Caption -> Lalu rubah Sesuai Keinginan.
Disini saya menggantinya dengan Jumlah
Barang.
6.
Kemudian buat label dengan nama Harga, Total,
Diskon, %, Total Bayar. Sehingga menjadi seperti Berikut. Untuk mempermudah
Label dapat di Copy Vaste.
7.
Selanjutnya pilih Tool TEdit -> lalu klik di lembar kerja buat sebanyak 6 Tedit.
Untuk mengosongkan Tulisan Edit1 pada TEdit, pada Properties cari Text -> lalu hapus tulisan.
untuk
mempermudah kita dalam pengetikan rumus nanti umah nama dari Edit1 menjadi E1
dengan cara pada properties pilih Name lalu ganti Edit1 menjadi E1. Untuk
penulisan Name tidak boleh sama.
begitu juga dengan Name Edit yang lain.
8.
Kemudian kita akan menambahkan tombol untuk
penghitung, kosongkan, dan Tutup.
Pada Tool pilih TButton -> klik pada lembar kerja, untuk buton sebaiknya jangan
di copy, bila di copy untuk Button hasil copyan ada kode tambahan. Jadi jangan
di copy.
Untuk mengganti Tulisan Button sama dengan Label dengan mengganti
Caption pada properties.
9.
Selanjutnya kita buat masukkan rumus atau kode
pada tombol hitung, agar pada saat dijalankan program dapat melakukan
perhitungan sesuai dengan yang kita inginkan. Cara nya klik dua kali pada
tombol hitung sehingga muncul tampilan berikut.
10.
Masukkan rumus berikut.
E3.text := floattostr (strtofloat (E1.text)
* strtofloat (E2.text));
E5.text := floattostr (strtofloat (E3.text)
* (strtofloat (E4.text)/100));
E6.text := floattostr (strtofloat (E3.text)
– strtofloat (E5.text));
11.
Setelah memasukkan rumus di tombol Hitung selanjutnya
kita pasang rumus pada tombol Kosongkan.
E1.Text :='';
E2.Text :='';
E3.Text :='';
E4.Text :='';
E5.Text :='';
E6.Text :='';
E1.SetFocus
12.
Selanjutnya rumus untuk tombol Tutup.
close;
Setelah semua rumus dimasukkan jalankan program, klik Run
-> Run Without Debugging atau Shift+Ctrl+F9.
Masukkan Jumlah Barang, Harga, dan diskon (E4). Kemudian
klik Hitung. Maka hasilnya akan menjadi seperti berikut.
Demikianlah pembahasan dari saya, semoga bisa bermanfaat
bagi para pembaca.
