Latihan Visual Basic 1 Transaksi Rental Video

Field	Type	Size	Ket
Notrans	Text	8	Pk
Kode_film	Text	5
Judul_film	Text	30
Harga_film	currency
Jenis	Text	1
Tanggal_pinjam	Date/time
Tanggal_kembali	Date/time
Lama_pinjam	integer
Total_harga	currency

• Buat Database dengan nama rental_dvd
• Buat Tabel rental

 Ketentuan Kode Film :

Kode Film	Judul Film	Harga
DVD01	Spy Kids 4	8000
DVD02	Cars 2	9000
DVD03	Twilight Saga : Breaking Dawn	10000

• Jika jenis “member” maka mendapat diskon 10 %, selain itu tidak mendapat diskon

Lama = Tgl Pinjam – tgl kembali               Total= (Harga-diskon)* lama

 Jika tekan tombol keluar dan simpan tampil konfirmasi dan info sbb :

Source code dapat di lihat di

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...