PROGRAM PERHITUNGAN DENGAN EMBARCADERO XE 2

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.

 

smbr:http://infodaripitra.blogspot.co.id/2016/02/pembuatan-program-perhitungan-dengan.html