Kapan hari, saya mendapat tugas dari dosen untuk membuat latihan form seperti di atas, dengan ketentuan:
- Nama Barang dan Harga akan tampil setelah dipilih salah satu kodenya,..
- Tombol oke akan menampilkan :
Jika tunai dan total di atas lebih dari 1.000.000 maka discount 10 % dari total.
Berikut Scriptnya:
1. Buatlah items combobox dari kode barang dan jumlah barang yang dipilih, klik pada form 2 kali lalu tulislah kode penambah items combobox
begin
ComboBox1.Items.Add('001');
ComboBox1.Items.Add('002');
ComboBox1.Items.Add('003');
ComboBox2.Items.Add('1');
ComboBox2.Items.Add('2');
ComboBox2.Items.Add('3');
ComboBox2.Items.Add('4');
ComboBox2.Items.Add('5');
end;
2. Buatlah action pada combobox1, karena saat memilih item akan menampilkan hasil pada nama barang dan harga barang
var
namabarang,hargabarang:string;
begin
if ComboBox1.Text= '001' then
begin
namabarang:=' monitor ';
hargabarang:='1000000';
end;
if ComboBox1.Text= '002' then
begin
namabarang:=' memory ';
hargabarang:='240000';
end;
if ComboBox1.Text= '003' then
begin
namabarang:=' hardisk ';
hargabarang:='900000';
end;
Edit1.Text:=(namabarang);
Edit2.Text:=(hargabarang);
end;
3. setelah itu berikan proses pada button oke untuk menampilkan hasil pemrosesan pembelian barang beserta diskonnya
var
pernyataan,kodebarang,namabarang:string;
hargabarang,jumlah,hargaawal:integer;
diskon,hargaakhir:real;
begin
kodebarang:=(ComboBox1.Text);
namabarang:=(Edit1.Text);
hargabarang:=strtoint(Edit2.Text);
jumlah:=strtoint(ComboBox2.Text);
hargaawal:=hargabarang*jumlah;
//percabangan
if (RadioButton1.Checked=True) and (hargaawal>=1000000) then
begin
diskon:=hargaawal*0.1;
hargaakhir:=hargaawal-diskon;
pernyataan:='Diskon 10% : ';
end;
if (RadioButton1.Checked=True) and (hargaawal<=1000000) then
begin
hargaakhir:=hargaawal;
end;
if RadioButton2.Checked=True then
begin
hargaakhir:=hargaawal;
end;
if (RadioButton1.Checked=False) and (RadioButton2.Checked=false) then
begin
hargaakhir:=hargaawal;
end;
//hasil
label7.Caption:=(pernyataan)+floattostr(hargaakhir);
Label8.Caption:=(kodebarang);
Label9.Caption:=(namabarang);
end;
jika ingin mendownload aplikasi yang telah saya buat, silahkan klik link download di bawah ini
