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.
II.
Interface 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
