Program Hotel Vb Net

Selamat malam kali ini Mr Stolid mau berbagi perintah atau sorcode Program Hotel Vb Net ok gak usah panjang langkah pertama buat program seperti di bawah ini.

Setelah itu silahkan Masukan perintah berikut 

Sorcode :

Public Class Form1

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        If RadioButton1.Checked Then TextBox7.Text = "500000"

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        If RadioButton2.Checked Then TextBox7.Text = "400000"

    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

        If RadioButton3.Checked Then TextBox7.Text = "250000"

    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged

        If RadioButton4.Checked Then TextBox7.Text = "150000"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox4.Text = Val(TextBox7.Text) * (TextBox3.Text)

        If TextBox3.Text >= "5" Then

            TextBox5.Text = Val(TextBox4.Text / 100) * (10)

            TextBox6.Text = Val(TextBox4.Text - TextBox5.Text)

        ElseIf TextBox3.Text <= "4" Then

            TextBox5.Text = "0"

            TextBox6.Text = TextBox4.Text

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

    End Sub

End Class