[Tugas Pemrograman Visual] Program Pemesanan Kamar Hotel Menggunakan VB.Net

Selamat pagi gaes.........

Kali ini saya akan memosting program terbaru yang telah saya coba. Sesuai dengan judul postingannya, saya juga akan memberikan source code-nya secara gratissssss.

 Ikuti coding berikut:

Public Class Form1

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

    Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged
        If tipe.Text = "Ekonomi" Then
            nomor.Items.Add("1/EKO-B")
            nomor.Items.Add("2/EKO-M")
            nomor.Items.Add("3/EKO-A")
        ElseIf tipe.Text = "VIP" Then
            nomor.Items.Add("1/VIP-B")
            nomor.Items.Add("2/VIP-M")
            nomor.Items.Add("3/VIP-A")
        End If

    End Sub

    Private Sub nomor_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomor.SelectedIndexChanged
        Dim x, y, z As String

        'Nama Kamar
        x = Microsoft.VisualBasic.Right(nomor.Text, 1)
        If x = "B" Then
            nama.Text = "Naruto"
        ElseIf x = "M" Then
            nama.Text = "Avatar"
        ElseIf x = "A" Then
            nama.Text = "Inuyasha"
        End If

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

        'Sewa
        If tipe.Text = "Ekonomi" Then
            sewa.Text = 10000000
        ElseIf tipe.Text = "VIP" Then
            sewa.Text = 20000000
        End If

        'Fasilitas
        If tipe.Text = "Ekonomi" And x = "B" Then
            fasilitas.Items.Add("Tempat Tidur")
            fasilitas.Items.Add("Kamar Mandi")
            fasilitas.Items.Add("Lemari")
        ElseIf tipe.Text = "Ekonomi" And x = "M" Then
            fasilitas.Items.Add("Tempat Tidur")
            fasilitas.Items.Add("Kamar Mandi")
            fasilitas.Items.Add("Lemari")
        ElseIf tipe.Text = "Ekonomi" And x = "A" Then
            fasilitas.Items.Add("Tempat Tidur")
            fasilitas.Items.Add("Kamar Mandi")
            fasilitas.Items.Add("Lemari")
        ElseIf tipe.Text = "VIP" And x = "B" Then
            fasilitas.Items.Add("Tempat Tidur")
            fasilitas.Items.Add("Lemari")
            fasilitas.Items.Add("Kamar Mandi")
            fasilitas.Items.Add("Karaoke Keluarga")
        ElseIf tipe.Text = "VIP" And x = "M" Then
            fasilitas.Items.Add("Tempat Tidur")
            fasilitas.Items.Add("Lemari")
            fasilitas.Items.Add("Kamar Mandi")
            fasilitas.Items.Add("Karaoke Keluarga")
        ElseIf tipe.Text = "VIP" And x = "A" Then
            fasilitas.Items.Add("Tempat Tidur")
            fasilitas.Items.Add("Lemari")
            fasilitas.Items.Add("Kamar Mandi")
            fasilitas.Items.Add("Karaoke Keluarga")
        End If

    End Sub

    Private Sub fasilitas_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fasilitas.SelectedIndexChanged
        'Harga Fasilitas
        If tipe.Text = "Ekonomi" And fasilitas.Text = "Tempat Tidur" Then
            harga.Text = 200000
        ElseIf tipe.Text = "Ekonomi" And fasilitas.Text = "Kamar Mandi" Then
            harga.Text = 250000
        ElseIf tipe.Text = "Ekonomi" And fasilitas.Text = "Lemari" Then
            harga.Text = 150000
        ElseIf tipe.Text = "VIP" And fasilitas.Text = "Tempat Tidur" Then
            harga.Text = 900000
        ElseIf tipe.Text = "VIP" And fasilitas.Text = "Kamar Mandi" Then
            harga.Text = 850000
        ElseIf tipe.Text = "VIP" And fasilitas.Text = "Lemari" Then
            harga.Text = 550000
        ElseIf tipe.Text = "VIP" And fasilitas.Text = "Karaoke Keluarga" Then
            harga.Text = 750000
        End If

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

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

    Private Sub lama_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles lama_inap.KeyPress

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

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

    End Sub

    Private Sub pembayaran_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pembayaran.KeyPress
        If e.KeyChar = Chr(13) Then
            kembalian.Text = Val(pembayaran.Text - totbayar.Text)
        End If

    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        tipe.Text = ""
        nomor.Text = ""
        nama.Text = ""
        kode.Text = ""
        sewa.Text = ""
        fasilitas.Text = ""
        harga.Text = ""
        lama_inap.Text = ""
        diskon.Text = ""
        totbayar.Text = ""
        pembayaran.Text = ""
        kembalian.Text = ""
        ListBox1.Items.Clear()
        totfasilitas.Text = ""

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Me.Close()
    End Sub
End Class

Gambar program ketika dijalankan: