Ramadoni Noor Rachman: Pertemuan Ke-1 Pemrograman Visual

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

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;