TUGAS BPC PERTEMUAN KE-7

Ini dia nih tugas Budidarma Programming Club (BPC) pertemuan ke-7.
Gak terlalu payah, asal ada kemauan aja.
:p
1. Desain Form

2. Listing programnya:
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TipeKamar.Items.Add("EKONOMI")
        TipeKamar.Items.Add("VIP")
    End Sub


    Private Sub TipeKamar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TipeKamar.SelectedIndexChanged
        NomorKamar.Items.Clear()
        Fasilitas.Items.Clear()
        Select Case TipeKamar.Text
            Case "EKONOMI"
                NomorKamar.Items.Add("S-EKO-M")
                NomorKamar.Items.Add("S-EKO-A")
                NomorKamar.Items.Add("S-EKO-B")
                BiayaSewa.Text = 150000
                Fasilitas.Items.Add("Bantal")
                Fasilitas.Items.Add("Kasur")
                Fasilitas.Items.Add("Selimut")
            Case "VIP"
                NomorKamar.Items.Add("S-VIP-M")
                NomorKamar.Items.Add("S-VIP-A")
                NomorKamar.Items.Add("S-VIP-B")
                BiayaSewa.Text = 200000
                Fasilitas.Items.Add("Snack")
                Fasilitas.Items.Add("Sarapan")
                Fasilitas.Items.Add("Kopi")
                Fasilitas.Items.Add("Sabun")
        End Select
    End Sub

    Private Sub NomorKamar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NomorKamar.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(NomorKamar.Text, 1)
        If x = "S" Then
            x = Microsoft.VisualBasic.Mid(NomorKamar.Text, 3, 3)
            If x = "EKO" Then
                x = Microsoft.VisualBasic.Right(NomorKamar.Text, 1)
                If x = "M" Then
                    KodeKunci.Text = "SEKOM"
                ElseIf x = "A" Then
                    KodeKunci.Text = "SEKOA"
                Else
                    KodeKunci.Text = "SEKOB"
                End If
            End If
        End If

        x = Microsoft.VisualBasic.Left(NomorKamar.Text, 1)
        If x = "S" Then
            x = Microsoft.VisualBasic.Mid(NomorKamar.Text, 3, 3)
            If x = "VIP" Then
                x = Microsoft.VisualBasic.Right(NomorKamar.Text, 1)
                If x = "M" Then
                    KodeKunci.Text = "SVIPM"
                ElseIf x = "A" Then
                    KodeKunci.Text = "SVIPA"
                Else
                    KodeKunci.Text = "SVIPB"
                End If
            End If
        End If

        x = Microsoft.VisualBasic.Right(NomorKamar.Text, 1)
        Select Case x
            Case "A"
                NamaKamar.Text = "ANGGREK"
            Case "B"
                NamaKamar.Text = "BUNGA"
            Case "M"
                NamaKamar.Text = "MELATI"
        End Select
    End Sub

    Private Sub Fasilitas_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fasilitas.SelectedIndexChanged
        Select Case Fasilitas.Text
            Case "Bantal"
                HargaFasilitas.Text = 500
            Case "Kasur"
                HargaFasilitas.Text = 1000
            Case "Selimut"
                HargaFasilitas.Text = 1500
            Case "Snack"
                HargaFasilitas.Text = 2000
            Case "Sarapan"
                HargaFasilitas.Text = 2500
            Case "Kopi"
                HargaFasilitas.Text = 3000
            Case "Sabun"
                HargaFasilitas.Text = 3500
        End Select
        DaftarFasilitas.Items.Add(Fasilitas.Text & " Rp." & HargaFasilitas.Text)
        TotalFasilitas.Text = Val(TotalFasilitas.Text) + Val(HargaFasilitas.Text)
    End Sub

    Private Sub LamaSewa_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles LamaSewa.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Dim x As String
            x = LamaSewa.Text
            If x >= 5 Then
                Diskon.Text = 0.02 * LamaSewa.Text * BiayaSewa.Text
            ElseIf x <= 5 Then
                Diskon.Text = 0.01 * LamaSewa.Text * BiayaSewa.Text
            Else
                Diskon.Text = 0
            End If
        End If
    End Sub

    Private Sub Hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hitung.Click
        TotalHarga.Text = LamaSewa.Text * BiayaSewa.Text - Val(Diskon.Text)
    End Sub

    Private Sub Pembayaran_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Pembayaran.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Pengembalian.Text = Val(Pembayaran.Text) - Val(TotalHarga.Text)
        End If
    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        TipeKamar.Text = ""
        NomorKamar.Text = ""
        KodeKunci.Text = ""
        NamaKamar.Text = ""
        BiayaSewa.Text = ""
        LamaSewa.Text = ""
        DaftarFasilitas.Items.Clear()
        TotalFasilitas.Text = ""
        Fasilitas.Text = ""
        HargaFasilitas.Text = ""
        Diskon.Text = ""
        TotalHarga.Text = ""
        Pembayaran.Text = ""
        Pengembalian.Text = ""
    End Sub
    Private Sub Keluar_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        End
    End Sub
End Class

3.Hasil Program