02.07.2013 Views

rekayasa perangkat lunak jilid 2 smk - Bursa Open Source

rekayasa perangkat lunak jilid 2 smk - Bursa Open Source

rekayasa perangkat lunak jilid 2 smk - Bursa Open Source

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

diskon = 0.2<br />

End Select<br />

total = jumlah * (harga * (1 - diskon))<br />

lblDiskon.Caption = "Diskon : " & Format(diskon, "0<br />

%")<br />

lblTotal.Caption = "Total Bayar : " & Format(total,<br />

"Currency")<br />

End Sub<br />

Klik menu Project > Project1 Properties lalu klik tab General. Gantilah Startup<br />

Object-nya menjadi Form6.<br />

Coba jalankan Project1 :<br />

o List1 akan terisi nama-nama barang.<br />

o Klik tombol OK, akan muncul kotak pesan "Anda belum memilih barang<br />

!!".<br />

o Klik OK, nama barang pertama akan terpilih secara otomatis. Anda boleh<br />

memilih nama barang yang lainnya.<br />

o Klik tombol OK, akan muncul kotak pesan "Anda belum mengisi jumlah<br />

barang !!".<br />

o Klik OK, text1 akan menjadi focus. Isi jumlah barangnya, misalnya : 10.<br />

o Klik tombol OKm akan tampil : nama barang, harga barang (persatuannya),<br />

jumlah barang (dengan satuannya), diskon dan total bayar.<br />

o Coba ganti pilihan nama barang (pada List1) dan jumlah barang (pada<br />

Text1) lalu klik lagi tombol OK.<br />

156 Rekayasa Perangkat Lunak

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!