Halo teman - teman semuanya kali ini admin zonaotentics mau share sebuah aplikasi sederhana yang dibuat dengan menggunakan bahasa pemrograman Borland Delphi 7. Pada aplikasi ini ada sedikit penambahan dari aplikasi sebelumnya yaitu diskon dari jumlah bayar. Cara kerjanya yaitu apabila tombol proses ditekan , maka jumlah barang akan dikalikan dengan harga satuan dan jika jumlah barang yang dibeli memenuhi kriteria diskon seperti yang diterangkan dibawah, maka akan diberikan potongan harga (diskon). Untuk hasil akhirnya akan ditampilkan jumlah bayar (hasil kali jumlah barang dengan harga satuan) dan total bayar (hasil pengurangan jumlah bayar dengan diskon) Berikut keterangan diskonya :
- Jika jumlah barang (JBARANG) > 20 atau harga satuan (HS) > 200.000 maka diskon 10% (0,1) dari jumlah bayar (JBAYAR).
- Jika jumlah barang (JBARANG) >= 50 atau harga satuan (HS) > 100.000 maka diskon 20% (0,2) dari jumlah bayar (JBAYAR).
- Jika jumlah barang (JBARANG) >= 100 atau harga satuan (HS) > 200.000 maka diskon 25% (0,25) dari jumlah bayar (JBAYAR).
Cara Kerja
Langkah - langkah pembuatan :
1. Jalankan program delphinya
2. Buat aplikasi baru dengan mengklik menu File | New | Application
3. Pada tampilan form yang muncul, silahkan design tampilan form sesuai dengan yang anda inginkan dan klik kemudian drag komponen - komponen yang dibutuhkan ke dalam form.
Komponen yang dibutuhkan :
- 7 komponen Label yang diperuntukan untuk penamaan : Nama Aplikasi (Entry Data Barang), Kode Barang, Nama Barang, Jumlah Barang, Harga Satuan, Jumlah Bayar, dan Total Bayar.
- 6 komponen Edit yang diperuntukan untuk tempat entri data dari : Kode Barang, Nama Barang, Jumlah Barang, Harga Satuan, Jumlah Bayar, dan Total Bayar.
- 1 komponen Button yang diperuntukan sebagai tombol Proses.
Berikut screen shoot gambar formnya :
Ket Gambar :
Entry Data Barang = Label1
Kode Barang = Label2
Nama Barang = Label3
Jumlah Barang = Label4
Harga Satuan = Label5
Jumlah Bayar = Label6
Total Bayar = Label7
Proses = Button1
Komponen Entri data :
Edit1 (posisi disebelah Kode Barang)
Edit2 (posisi disebelah Nama Satuan)
Edit3 (posisi disebelah Jumlah Barang)
Edit4 (posisi disebelah Harga Satuan)
Edit5 (posisi disebelah Jumlah Bayar)
Edit6 (posisi disebelah Total Bayar)
4. Langkah selanjutnya klik komponen Label1 dan pada jendela propertiesnya rubah Captionya menjadi Entry Barang, lakukan langkah yang sama pada label berikutnya dan rubah Captionya sesuai dengan gambar diatas.
5. Klik komponen Edit1 dan pada jendela propertisnya pada bagian Text dikosongkan, lakukan hal sama terhadap komponen Edit lainya.
6. Klik komponen Button dan pada jendela propertiesnya rubah Captionya menjadi Proses, sedangkan untuk properties Namenya biarkan default.
7. Double klik pada button Proses, maka akan muncul jendela Unit1.pas dan entrikan script berwarna orange dibawah :
________________________________________________________________________
procedure TForm1.Button1Click(Sender: TObject);
var
KB, NB: string;
JBARANG, HS, DISKON, JBAYAR, TBAYAR: real;
begin
KB:=edit1.Text;
NB:=edit2.Text;
JBARANG:=strtofloat(edit3.Text);
HS:=strtofloat(edit4.Text);
JBAYAR:=(JBARANG*HS);
if(JBARANG > 20) or (HS > 200000) then
DISKON:=0.1*JBAYAR
else if ((JBARANG >= 50) and (HS > 100000)) then
DISKON:=0.2*JBAYAR
else if ((JBARANG >= 100) and (HS > 200000)) then
DISKON:=0.25*JBAYAR
else
DISKON:=0;
TBAYAR:=JBAYAR - DISKON;
edit5.Text:=floattostr (JBAYAR);
edit6.Text:=floattostr (TBAYAR);
end;
end.
_________________________________________________________________________________
Ket Program :
- KB = Kode Barang (boleh dirubah sesuai keinginan)
- NB = Nama Barang (boleh dirubah sesuai keinginan)
- JBARANG = Jumlah Barang (boleh dirubah sesuai keinginan)
- HS = Harga Satuan (boleh dirubah sesuai keinginan)
- DISKON = potongan harga
- JBAYAR = Jumlah Bayar
- TBAYAR = Total Bayar
- KB:=edit1.Text; = menyatakan bahwa data/nilai yang dientrikan pada edit1 merupakan data/nilai dari Kode Barang
- NB:=edit2.Text; = menyatakan bahwa data/nilai yang dientrikan pada edit2 merupakan data/ nilai dari Nama Barang
- JBARANG:=strtofloat(edit3.Text); = data/nilai dari Jumlah Barang merupakan data/nilai yang ada pada edit3 dan agar data tersebut bisa digunakan dalam proses perhitungan, maka data tersebut harus dikonversikan dulu dari string ke float karena setiap data yang dientrikan pada edit box dideklarasikan dengan tipe data string, sehingga ketika menggunakan data tersebut untuk proses perhitungan haruslah dikonversikan dahulu dari string ke float.
- HS:=strtofloat(edit4.Text); =data/nilai dari Jumlah Barang merupakan data/nilai yang ada pada edit4 dan agar data tersebut bisa digunakan dalam proses perhitungan, maka data tersebut harus dikonversikan dulu dari string ke float, karena setiap data yang dientrikan pada edit box dideklarasikan dengan tipe data string, sehingga ketika menggunakan data tersebut untuk proses perhitungan haruslah dikonversikan dahulu dari string ke float.
- JBAYAR:=(JBARANG*HS); = proses pencarian Jumlah Bayar dengan mengalikan Jumlah Barang dengan Harga Satuan.
- if(JBARANG > 20) or (HS > 200000) then DISKON:=0.1*JBAYAR = menggambarkan kondisi barang yang mana jika Jumlah Barang >20 atau Harga Satuan >200.000 maka diskon = 10% (0,1) dari Jumlah Bayar.
- else if ((JBARANG >= 50) and (HS > 100000)) then DISKON:=0.2*JBAYAR = menggambarkan kondisi barang yang mana jika Jumlah Barang >=50 atau Harga Satuan >100.000 maka diskon = 20% (0,2) dari Jumlah Bayar.
- else if ((JBARANG >= 100) and (HS > 200000)) then DISKON:=0.25*JBAYAR = menggambarkan kondisi barang yang mana jika Jumlah Barang >=100 atau Harga Satuan >200.000 maka diskon = 25% (0,25) dari Jumlah Bayar.
- else DISKON:=0; = Jika kondisinya diluar dari 3 kondisi diatas maka diskonya = 0.
- TBAYAR:=JBAYAR - DISKON; = Proses perhitungan Total Bayar dimana Jumlah Bayar - Diskon.
- edit5.Text:=floattostr (JBAYAR); = data/nilai dari Jumlah Bayar merupakan data/nilai yang ada pada edit5 dan data tersebut dikonversikan dari float ke string sebelum ditampilkan di edit box, karena setiap data yang akan dientrikan/ditampilkan pada edit box haruslah bertipe string.
- edit6.Text:=floattostr (TBAYAR); = data/nilai dari Jumlah Bayar merupakan data/nilai yang ada pada edit6 dan data tersebut dikonversikan dari float ke string sebelum ditampilkan di edit box, karena setiap data yang akan dientrikan/ditampilkan pada edit box haruslah bertipe string.
8. Jika semua langkah diatas sudah diterapkan dengan benar, silahkan klik menu Run | Run atau tekan F9
9. Jika tidak ada pesan kesalahan, maka program siap untuk di uji coba
Selamat mencoba............GOOD LUCK!!!!!
Bagikan
Aplikasi Entry Data Barang dengan Borland Delphi 7
4/
5
Oleh
Jiu Bunta
