Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu
Joint Venture Adsense

Contoh Program Diskon Di Borland Delphi

· · 0 comments
Assalamu'alaikum, wr.wb

Cara Membuat Program Diskon Dan Total Harga Dengan Delphi - Selamat datang rekan di blog mungil ini. Kali ini tentang cara mudah buat program penjualan sederhana yang dilengkapi dengan diskon serta total harga. Program diskon ini dibuat dengan komponen radio button sebagai pilihan barang yang diinginkan, CheckBox untuk memilih fasilitas tambahan serta button untuk melakukan eksekusi dan menghitung diskon dan total harga akhir.

Contoh kasus pada program diskon ini adalah program penjualan mobil. Terdiri dari tiga macam mobil yang akan dijual dengan porsentase diskon sesuai dengan jenis mobil yang dipilih. Logika perhitungan diskonnya adalah harga dikalikan dengan jumlah diskon kemudian dibagi 100. Yang mana untuk harga dan jumlah diskon setiap mobil telah didefenisikan pada radio button.

Langkah-langkah menghitung diskon dan total harga di Bahasa Pemograman Delphi :

1. Desain formnya seperti gambar berikut :
contoh program penjualan mobil di delphi
2. Klik dua kali radio button pada Avanza, Innova dan Xenia secara berurutan kemudian masukan formula dibawah ini diantara begin dan end;  secara berurutan juga :

EDIT1.Text := '157000000';
EDIT3.Text := '5'; 

EDIT1.Text := '198000000';
EDIT3.Text := '10';

EDIT1.Text := '135000000';
EDIT3.Text := '25';

3. Masukan mantera berikut pada Form Create (klik dua kali form) untuk mengosongkan setiap editbox setiap program dibuka. Kemudian copykan koding ini pada button clear.

EDIT1.Clear;
EDIT2.Clear;
EDIT4.Clear;
EDIT5.Clear;

4. Masukan formula berikut pada button hitung :
VAR f1, f2,f3,f4, ft:integer;
begin
if checkbox1.Checked = true then
f1:=5000000 else f1:=0;
if checkbox2.Checked = true then
f2:=2000000 else f2:=0;
if checkbox3.Checked = true then
f3:=750000 else f3:=0;
if checkbox4.Checked = true then
f4:=500000 else f4:=0;
//menghitung fasilitas tambahan
ft := f1+f2+f3+f4;
edit4.text := inttostr(ft);
//menghitung diskon
edit2.Text := currtostr (strtocurr(edit1.Text)  *  (strtoint(edit3.text) /100));
//menghitung total harga
edit5.text := inttostr (strtoint(edit1.Text)  - strtoint(edit2.Text) + strtoint(edit4.Text));

Kemudian jalankan programnya, maka akan tampil seperti screenshoot berikut ini :
cara menghitung diskon menggunakan borland delphi
Proses program diatas, kita memilih type mobilnya kemudian pilih fasilitas tambahannya dan eksekusi tombol hitung. Demikian tutorial dasar Delphi kali ini tentang bagaimana cara membuat program diskon dan total penjualan pada Delphi. Moga bermanfaat, begitulah kira-kira.

Baca juga Menjumlahkan nilai CheckBox di Delphi

0 comments:

Post a Comment

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan