FROM ENTRI DATA KAMAR Dengan Visual Studio 2010

 

Codingnya

Public Class Form1

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

        kodekamar.Items.Add("STD-101")

        kodekamar.Items.Add("DEL-111")

        kodekamar.Items.Add("VIP-321")

        kodekamar.Items.Add("SPV-001")

        jumlahhari.Items.Add("1")

        jumlahhari.Items.Add("2")

        jumlahhari.Items.Add("3")

        jumlahhari.Items.Add("4")

        jumlahhari.Items.Add("5")

        jumlahhari.Items.Add("6")

        jumlahhari.Items.Add("7")

        kodekamar.Enabled = False

        txtnama.Enabled = False

        txtjenis.Enabled = False

        txtfasilitas.Enabled = False

        txtharga.Enabled = False

        jumlahhari.Enabled = False

        txtdiskon.Enabled = False

        txttotal.Enabled = False

    End Sub

    Private Sub Baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Baru.Click

        kodekamar.Text = ""

        txtnama.Text = ""

        txtjenis.Text = ""

        txtfasilitas.Text = ""

        txtharga.Text = ""

        jumlahhari.Text = ""

        txtdiskon.Text = ""

        txttotal.Text = ""

        kodekamar.Enabled = True

        txtnama.Enabled = True

        txtjenis.Enabled = True

        txtfasilitas.Enabled = True

        txtharga.Enabled = True

        jumlahhari.Enabled = True

        txtdiskon.Enabled = True

        txttotal.Enabled = True

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        Dim simpan As String

        simpan = MessageBox.Show("Data Sudah Di TerSimpan", "program",

        MessageBoxButtons.OK, MessageBoxIcon.Question)

        If simpan = vbOK Then

            kodekamar.Text = ""

            txtnama.Text = ""

            txtjenis.Text = ""

            txtfasilitas.Text = ""

            txtharga.Text = ""

            jumlahhari.Text = ""

            txtdiskon.Text = ""

            txttotal.Text = ""

            kodekamar.Enabled = False

            txtnama.Enabled = False

            txtjenis.Enabled = False

            txtfasilitas.Enabled = False

            txtharga.Enabled = False

            jumlahhari.Enabled = False

            txtdiskon.Enabled = False

            txttotal.Enabled = False

        End If

    End Sub

    Private Sub Batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Batal.Click

        kodekamar.Text = ""

        txtnama.Text = ""

        txtjenis.Text = ""

        txtfasilitas.Text = ""

        txtharga.Text = ""

        jumlahhari.Text = ""

        txtdiskon.Text = ""

        txttotal.Text = ""

        kodekamar.Enabled = False

        txtnama.Enabled = False

        txtjenis.Enabled = False

        txtfasilitas.Enabled = False

        txtharga.Enabled = False

        jumlahhari.Enabled = False

        txtdiskon.Enabled = False

        txttotal.Enabled = False

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        Dim tanya As String

        tanya = MessageBox.Show("Anda Ingin Menutup From Ini", "program",

        MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If tanya = vbYes Then

            Me.Close()

        End If

    End Sub

    Private Sub kodekamar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodekamar.SelectedIndexChanged

        Select Case (kodekamar.Text)

            Case Is = "STD-101"

                txtnama.Text = "Mawar 101"

                txtjenis.Text = "Standart"

                txtfasilitas.Text = "Kipas + TV"

                txtharga.Text = 300000

            Case Is = "DEL-111"

                txtnama.Text = "Melati-111"

                txtjenis.Text = "Deluxe"

                txtfasilitas.Text = "AC+TV"

                txtharga.Text = 450000

            Case Is = "VIP-321"

                txtnama.Text = "Dahlia 321"

                txtjenis.Text = "VIP"

                txtfasilitas.Text = "AC + TV + Sofa"

                txtharga.Text = 800000

            Case Is = "SPV-001"

                txtnama.Text = "Anggrek 001"

                txtjenis.Text = "Super VIP"

                txtfasilitas.Text = "AC + TV + Sofa + BetaUp "

                txtharga.Text = 1300000

        End Select

    End Sub

    Private Sub jumlahhari_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahhari.SelectedIndexChanged

        If jumlahhari.Text = 1 Then

            txtdiskon.Text = Val(0.02 * txtharga.Text)

            txttotal.Text = Val(txtharga.Text - txtdiskon.Text)

        ElseIf jumlahhari.Text >= 1 Then

            txtdiskon.Text = Val(0.05 * txtharga.Text)

            txttotal.Text = Val(txtharga.Text - txtdiskon.Text)

            If jumlahhari.Text >= 3 Then

                txtdiskon.Text = Val(0.1 * txtharga.Text)

                txttotal.Text = Val(txtharga.Text - txtdiskon.Text)

            End If

            End If

    End Sub

End Class