U T S 2012

Membuat Daftar Pemesanan Kamar Pengunjung di sebuah Hotel dengan menggunakan Visual Studio 2008 ( VB Net )

Form Design :

Tipe kamar , No.Kamar , Fasilitas menggunakan Combobox
Nama kamar , Kode Kunci , Sewa , Lama Inap , Discount , Total Bayar , di Bayar ke kasir , Kembalian , Total harga Fasilitas , Harga menggunakan Textbox
Daftar dan harga Fasilitas menggunakan Listbox
Hitung , Bersih , Keluar menggunakan Button

Bahasa Programnya :

Public Class Form1

    Private Sub Form1_Load( . . . ) Handles MyBase.Load
        tipe.Items.Add("Ekonomi")
        tipe.Items.Add("VIP")
    End Sub

    Private Sub tipe_SelectedIndexChanged( . . . ) Handles tipe.SelectedIndexChanged
        no.Items.Clear()
        If tipe.Text = "Ekonomi" Then
            no.Items.Add("1/EKO-B")
            no.Items.Add("2/EKO-M")
            no.Items.Add("3/EKO-A")
        ElseIf tipe.Text = "VIP" Then
            no.Items.Add("1/VIP-B")
            no.Items.Add("2/VIP-M")
            no.Items.Add("3/VIP-A")
        End If
    End Sub

    Private Sub no_SelectedIndexChanged( . . . ) Handles no.SelectedIndexChanged
        Dim x, y, z As String

        'Nama Kamar
        x = Microsoft.VisualBasic.Right(no.Text, 1)
        If x = "B" Then
            nama.Text = "Bunga"
        ElseIf x = "M" Then
            nama.Text = "Melati"
        ElseIf x = "A" Then
            nama.Text = "Anggrek"
        End If

        'Kode Kunci
        y = Microsoft.VisualBasic.Left(no.Text, 1)
        z = Microsoft.VisualBasic.Mid(no.Text, 3, 3)
        kode.Text = "Kunci/" & y & "-" & z & "/" & x

        'Sewa
        If tipe.Text = "Ekonomi" Then
            sewa.Text = 150000
        ElseIf tipe.Text = "VIP" Then
            sewa.Text = 200000
        End If

        'Fasilitas
        If tipe.Text = "Ekonomi" And x = "B" Then
            fasilitas.Items.Add("Tilam")
            fasilitas.Items.Add("Bantal")
        ElseIf tipe.Text = "Ekonomi" And x = "M" Then
            fasilitas.Items.Add("Tilam")
            fasilitas.Items.Add("Selimut")
            fasilitas.Items.Add("Bantal")
        ElseIf tipe.Text = "Ekonomi" And x = "A" Then
            fasilitas.Items.Add("Tilam")
            fasilitas.Items.Add("Selimut")
        ElseIf tipe.Text = "VIP" And x = "B" Then
            fasilitas.Items.Add("Snack")
            fasilitas.Items.Add("Aqua")
        ElseIf tipe.Text = "VIP" And x = "M" Then
            fasilitas.Items.Add("Sabun")
            fasilitas.Items.Add("Aqua")
        ElseIf tipe.Text = "VIP" And x = "A" Then
            fasilitas.Items.Add("Sabun")
            fasilitas.Items.Add("Kopi")
        End If
    End Sub

    Private Sub fasilitas_SelectedIndexChanged( . . . ) Handles fasilitas.SelectedIndexChanged
        
        'Harga Fasilitas
        If tipe.Text = "Ekonomi" And fasilitas.Text = "Tilam" Then
            harga.Text = 20000
        ElseIf tipe.Text = "Ekonomi" And fasilitas.Text = "Bantal" Then
            harga.Text = 10000
        ElseIf tipe.Text = "Ekonomi" And fasilitas.Text = "Selimut" Then
            harga.Text = 15000
        ElseIf tipe.Text = "VIP" And fasilitas.Text = "Snack" Then
            harga.Text = 40000
        ElseIf tipe.Text = "VIP" And fasilitas.Text = "Aqua" Then
            harga.Text = 10000
        ElseIf tipe.Text = "VIP" And fasilitas.Text = "Sabun" Then
            harga.Text = 5000
        ElseIf tipe.Text = "VIP" And fasilitas.Text = "Kopi" Then
            harga.Text = 10000
        End If

        'Daftar dan Harga Fasilitas
        daftar.Items.Add(fasilitas.Text & "  RP." & harga.Text)

        'Total Harga Fasilitas
        totfasilitas.Text = Val(totfasilitas.Text) + Val(harga.Text)
    End Sub

    Private Sub lama_KeyPress( . . . ) Handles lama.KeyPress

        'Diskon
        If e.KeyChar = Chr(13) Then
            If lama.Text >= 5 Then
                diskon.Text = 0.02 * Val(lama.Text * sewa.Text) + Val(totfasilitas.Text)
            ElseIf lama.Text >= 2 Then
                diskon.Text = 0.01 * Val(lama.Text * sewa.Text) + Val(totfasilitas.Text)
            Else
                diskon.Text = 0
            End If

            'Total Bayar
            totbayar.Text = Val(lama.Text * sewa.Text) + Val(totfasilitas.Text) - Val(diskon.Text)
        End If
    End Sub

    Private Sub bayar_KeyPress( . . . ) Handles bayar.KeyPress
        If e.KeyChar = Chr(13) Then
            kembalian.Text = Val(bayar.Text - totbayar.Text)
        End If
    End Sub

    Private Sub btnbersih_Click( . . . ) Handles btnbersih.Click
        tipe.Text = ""
        no.Text = ""
        nama.Text = ""
        kode.Text = ""
        sewa.Text = ""
        fasilitas.Text = ""
        harga.Text = ""
        lama.Text = ""
        diskon.Text = ""
        totbayar.Text = ""
        bayar.Text = ""
        kembalian.Text = ""
        daftar.Items.Clear()
        totfasilitas.Text = ""
    End Sub

    Private Sub btnkeluar_Click( . . . ) Handles btnkeluar.Click
        End
    End Sub

    Private Sub btnhitung_Click( . . . ) Handles btnhitung.Click
        kembalian.Text = Val(bayar.Text - totbayar.Text)
    End Sub

End Class

Kemudian Tampilannya berikut :

 

:) :) :) SELAMAT MENCOBA :) :) :)