Membuat Aplikasi Booking Studio Musik Sederhana

Penjelasan :
Aplikasi booking ini bertujuan untuk mempermudah para pemilik studio musik untuk menghitung total biaya yang harus dibayar oleh para penyewa.

Fitur yang terdapat pada aplikasi ini adalah :
1. Harga per jam
2. Jika penyewa memesan studio >= 3 jam, maka akan mendapat diskon 20%
3. Tombol Proses, untuk menghitung total biaya yang harus dibayar oleh para penyewa
4. Tombol Batal, untuk membatalkan pemesanan
5. Tombol Keluar, untuk keluar dari aplikasi ini

Screen Shoot :

Source Code :
Script Form1.vb
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For a As Integer = 1 To 4
            cmbSM.Items.Add("Studio Musik " & a)
        Next

        Dim jm As Integer = 9
        Do While jm < 23
            cmbJM.Items.Add(jm & ":00")
            jm = jm + 1
        Loop

        Dim js As Integer = 9
        Do While js < 23
            cmbJS.Items.Add(js & ":00")
            js = js + 1
        Loop

        txtHargaJam.Enabled = False
        txtTotalJam.Enabled = False
        txtTotalBayar.Enabled = False
        txtPersenDiskon.Enabled = False
        txtNominalDiskon.Enabled = False
        txtHargaDiskon.Enabled = False
    End Sub

    Private Sub proses()
        Dim hitung As KelasNya = New KelasNya
        txtTotalJam.Text = hitung.pengurangan(Val(cmbJS.Text), Val(cmbJM.Text))
        If txtTotalJam.Text <= 0 Then
            MsgBox("Jam Mulai tidak boleh lebih atau sama dengan Jam Selesai", MsgBoxStyle.Information, "Peringatan!")
            cmbJM.SelectedIndex = 0
            txtHargaJam.Text = 0
            txtTotalJam.Text = 0
            txtTotalBayar.Text = 0
            txtPersenDiskon.Text = 0
            txtNominalDiskon.Text = 0
            txtHargaDiskon.Text = 0
        Else
            Select Case cmbSM.Text
                Case Is = "Studio Musik 1"
                    txtHargaJam.Text = "80000"
                    txtHargaJam.Text = FormatNumber(txtHargaJam.Text)
                Case Is = "Studio Musik 2"
                    txtHargaJam.Text = "70000"
                    txtHargaJam.Text = FormatNumber(txtHargaJam.Text)
                Case Is = "Studio Musik 3"
                    txtHargaJam.Text = "60000"
                    txtHargaJam.Text = FormatNumber(txtHargaJam.Text)
                Case Is = "Studio Musik 4"
                    txtHargaJam.Text = "50000"
                    txtHargaJam.Text = FormatNumber(txtHargaJam.Text)
            End Select

            If txtTotalJam.Text >= 3 Then
                txtPersenDiskon.Text = "20"
                txtTotalBayar.Text = FormatNumber(hitung.totalbayar(txtHargaJam.Text, txtTotalJam.Text))
                txtNominalDiskon.Text = FormatNumber(hitung.nominaldiskon(txtHargaJam.Text, txtTotalJam.Text, txtPersenDiskon.Text))
                txtHargaDiskon.Text = FormatNumber(hitung.hargadiskon(txtTotalBayar.Text, txtNominalDiskon.Text))
            Else
                txtPersenDiskon.Text = "0"
                txtTotalBayar.Text = FormatNumber(hitung.totalbayar(txtHargaJam.Text, txtTotalJam.Text))
                txtNominalDiskon.Text = FormatNumber(hitung.nominaldiskon2(txtHargaJam.Text, txtTotalJam.Text))
                txtHargaDiskon.Text = FormatNumber(hitung.nominaldiskon2(txtHargaJam.Text, txtTotalJam.Text))
            End If
        End If
    End Sub

    Private Sub batal()
        cmbSM.SelectedIndex = 0
        txtHargaJam.Text = 0
        cmbJM.SelectedIndex = 0
        cmbJS.SelectedIndex = 0
        txtTotalJam.Text = 0
        txtTotalBayar.Text = 0
        txtPersenDiskon.Text = 0
        txtNominalDiskon.Text = 0
        txtHargaDiskon.Text = 0
    End Sub

    Private Sub keluar()
        Dim message As String
        message = MsgBox("Apakah anda yakin akan keluar dari aplikasi ini?", MsgBoxStyle.YesNo, "Konfirmasi!")
        If message = vbYes Then
            Me.Close()
        End If
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        proses()
    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
        batal()
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        keluar()
    End Sub
End Class








Script Class1.vb
Public Class KelasNya
    Public Function pengurangan(ByVal nilai1 As Double, ByVal nilai2 As Double)
        Dim hasil As Double
        hasil = nilai1 - nilai2
        Return hasil
    End Function

    Public Function totalbayar(ByVal nilai1 As Double, ByVal nilai2 As Double)
        Dim hasil As Double
        hasil = nilai1 * nilai2
        Return hasil
    End Function

    Public Function nominaldiskon(ByVal nilai1 As Double, ByVal nilai2 As Double, ByVal nilai3 As Double)
        Dim hasil As Double
        hasil = nilai1 * nilai2 * nilai3 / 100
        Return hasil
    End Function

    Public Function nominaldiskon2(ByVal nilai1 As Double, ByVal nilai2 As Double)
        Dim hasil As Double
        hasil = nilai1 * nilai2
        Return hasil
    End Function

    Public Function hargadiskon(ByVal nilai1 As Double, ByVal nilai2 As Double)
        Dim hasil As Double
        hasil = nilai1 - nilai2
        Return hasil
    End Function
End Class