I.
Deskripsi
Program
Program dibuat menggunakan Borland Delphi 7. Program ini
berjudul Form input data. Program ini dibuat untuk menginput stok barang dan
memudahkan pengguna dalam mencari harga pokok(HP)/modal barang dalam satuannya.
Pada program ini pengguna diwajibkan menginput semua data, jika user lupa
menginput salah satu dari textbox maka akan muncul peringatan bahwa data yang
dimasukkan tidak boleh kosong.
Program ini akan secara otomatis menghitung harga pokok barang(modal) dengan menggunakan rumus harga beli dibagi jumlah satuan barang yaitu dengan cara mengklik tombol OK, jika user ingin menginput data yang baru lagi cukup klik tombol bersih. Pada program ini hasil perhitungan untuk harga beli akan secara otomatis dibulatkan menjadi bilangan bulat menggunakan fungsi round.
Program ini akan secara otomatis menghitung harga pokok barang(modal) dengan menggunakan rumus harga beli dibagi jumlah satuan barang yaitu dengan cara mengklik tombol OK, jika user ingin menginput data yang baru lagi cukup klik tombol bersih. Pada program ini hasil perhitungan untuk harga beli akan secara otomatis dibulatkan menjadi bilangan bulat menggunakan fungsi round.
II.
Interface
Program
III.
Coding
Program
Nama
Komponen
|
Event
|
Perintah
|
btnOk
btnclr |
OnClick
OnClick |
procedure TForm1.btnokClick(Sender: TObject);
begin
if
EdNama.Text='' then
showmessage('Nama Barang Tidak
Boleh Kosong')
else if
cmbBrng.Text='' then
showmessage('Satuan Barang Tidak Boleh Kosong')
else if
EdJml.Text='' then
showmessage('Jumlah Satuan Tidak Boleh Kosong')
else if
EdStok.Text='' then
showmessage('Stok Barang Tidak
Boleh Kosong')
else if
EdHrgB.Text='' then
showmessage('Harga Beli Tidak
Boleh Kosong')
else EdHrgP.Text:=floattostr(round(strtofloat
(EdHrgB.Text)/strtofloat(EdJml.Text)));
end;
procedure TForm1.btnclrClick(Sender: TObject);
begin
EdNama.Text:='';
cmbBrng.Text:='';
EdJml.Text:='';
EdStok.Text:='';
EdHrgB.Text:='';
EdHrgP.Text:='';
end;
|
IV. Output
1.
Tampilan awal program
2. Tampilan
ketika diklik ok tapi salah satu data yang di inputkan kosong
3. Tampilan setelah data di inputkan lengkap dan muncul harga pokok
Untuk versi lengkap source codenya bisa di download
Via MediaFire
Tidak ada komentar:
Posting Komentar