UAS LAB Pemrograman Bisnis

Aplikasi ini adalah aplikasi reservasi hotel. dimana terdapat beberapa jenis hotel yang dapat dipilih

Untuk lebih jelas nya mari kita lihat video dibawah ini 

Source Code 

Public Class Form1

    

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

        ComboBox1.Text = ""

        ComboBox2.Text = ""

        ComboBox3.Text = ""

        Label6.Text = ""

        Label7.Text = ""

        ListBox1.Text = ""

    End Sub

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

        Dim Harga As Integer

        If ComboBox2.Text = "Single" Then

            Harga = 1500000

        ElseIf ComboBox2.Text = "Double" Then

            Harga = 2000000

        End If

        Label6.Text = Harga * ComboBox3.Text

        Label7.Text = (0.1 * (Val(Label6.Text))) + (Harga * ComboBox3.Text)

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Dim var6 As Object

        Dim var5 As Object

        Dim var4 As Object

        Dim var3 As Object

        Dim var2 As Object

        Dim var1 As Object

        Dim nofile As Object

        Dim harga As Integer

        nofile = FreeFile()

        FileOpen(nofile, "D:\Hotel.CSV", OpenMode.Append)

        var1 = ComboBox1.Text

        var2 = DateTimePicker1.Text

        var3 = ComboBox2.Text

        var4 = ComboBox3.Text

        var5 = Harga * ComboBox3.Text

        var6 = (0.1 * (Val(Label6.Text))) + (harga * ComboBox3.Text)

        Label6.Text = var5

        Label7.Text = var6

        ListBox1.Items.Add(var1 & "---" & var2 & "---" & var3 & "---" & var4 & "---" & var5 & "---" & var6 & "---")

        WriteLine(1, var1, var2, var3, var4, var5, var6)

        FileClose(1)

    End Sub

    

End Class