Tugas Pemrograman Visual 1

Kode program :
Public Class form_rental

Private Sub form_rental_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub

Private Sub tbl_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbl_keluar.Click
If MsgBox("Anda Yakin Ingin Keluar ?", vbYesNo + vbQuestion + vbDefaultButton2, "Konfirmasi") = vbYes Then
Me.Close()
End If
End Sub

Private Sub tbl_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbl_hapus.Click
vnama.Clear()
vitem.Clear()
vtarif.Clear()
vlamasewa.Clear()
vnama.Focus()
End Sub

Private Sub jns_item_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jns_item.SelectedIndexChanged
If jns_item.Text = "VCD" Then
vtarif.Text = "2000"
ElseIf jns_item.Text = "DVD" Then
vtarif.Text = "4000"
ElseIf jns_item.Text = "Bluray DVD" Then
vtarif.Text = "4500"
End If

End Sub

Private Sub tbl_hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbl_hitung.Click

Dim total As Double

total = Val(vitem.Text) * Val(vtarif.Text) * Val(vlamasewa.Text)

MsgBox("Item yang Anda sewa " & vnama.Text & vbNewLine & _
"Total biaya " & Val(total))

End Sub

End Class

Penjelasan program :

Berikut ini adalah Properties dari tiap object :

Object Properties Value
Form text Rental CD /DVD “ELMA”
ComboBox1 name jns_item
TextBox1 name Vnama
TextBox2 name Vitem
TextBox3 name Vsewa
TextBox4 name Vlama
Button1 Text,name Hitung,tbl_hitung
Button2 Text,name Hapus,tbl_hapus
Button3 Text,name Keluar,tbl_keluar

Proses kerja :

Ketika kita memilih item menggunakan ComboBox (saya beri label “Jenis Item”) maka akan muncul 3 pilihan item yaitu VCD,DVD,dan Bluray DVD. Saat memilih item VCD misalnya, maka akan memeberikan nilai “2000” pada TextBox dengan label Tarif Sewa / item. Berikut ini list lengkapnya :

Private Sub jns_item_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jns_item.SelectedIndexChanged
If jns_item.Text = "VCD" Then
vtarif.Text = "2000"
ElseIf jns_item.Text = "DVD" Then
vtarif.Text = "4000"
ElseIf jns_item.Text = "Bluray DVD" Then
vtarif.Text = "4500"
End If

End Sub

Jadi ketika kita mengganti item maka akan mengubah nilai pada Tarif sewa tanpa harus input lagi.

Pada textbox “nama/judul” kita masukkan nama item. Lalu pada textbox “Jumlah item” kita masukkan jumlah barang yang dipinjam. Kemudian pada textbox “Lama sewa (hari)” kita masukkan berapa lama hari kita pinjam item tersebut.

Selanjutnya kita memberi perintah pada Button1 dengan Properties name “Hitung”. Aturannya sederhana, ketika kita mengkliknya (berarti eventnya adalah Click) maka akan menampilkan nama item yang dipinjam dan hitungan total sewa. Listing lengkap sebagai berikut :

Private Sub tbl_hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbl_hitung.Click

Dim total As Double

total = Val(vitem.Text) * Val(vtarif.Text) * Val(vlamasewa.Text)

MsgBox("Item yang Anda sewa " & vnama.Text & vbNewLine & _
"Total biaya " & Val(total))

End Sub

Pada listing di atas terdapat variable “total”, tujuannya agar lebih mudah untuk pemanggilan total biaya. Deklarasikan total sebagai Double. Total sendiri adalah hasil kali dari “Jumlah item” x “Tarif sewa” x “Lama Sewa”.
Setelah kita mengisi semua textbox, klik Button “Hitung” maka akan menampilkan hasil sebagai berikut :

Untuk menghapus semua isian maka kita berikan perintah pada Button “Hapus”. Berikut ini listingnya :

Private Sub tbl_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbl_hapus.Click
vnama.Clear()
vitem.Clear()
vtarif.Clear()
vlamasewa.Clear()
vnama.Focus()
End Sub

Ketika diklik akan menghapus textbox “Nama item”, “jumalh item”, “Tarif sewa” dan “lama Sewa”. Karena terdapat perintah vnama.Focus() maka kursor akan diletakkan pada textbox “Nama item” (Properties Text: “Nama Item”, name:”vnama”)

Untuk memberikan perintah keluar, double klik Button “Keluar”. Listingnya sebagai berikut :

Private Sub tbl_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbl_keluar.Click
If MsgBox("Anda Yakin Ingin Keluar ?", vbYesNo + vbQuestion + vbDefaultButton2, "Konfirmasi") = vbYes Then
Me.Close()
End If
End Sub

Tombol tersebut ketika diklik akan menampilkan kotak konfirmasi yes no. Ketika klik “yes” maka kita akan keluar dari program, jika “no” maka kita akan kembali ke form program.

Demikian penjelasan singkat saya. Terima kasih.