UTS Lab Pemrograman Bisnis

Aplikasi Billing Warnet

Program ini dibuat dengan aplikasi Visual Studio 2013,  bertujuan untuk memudahkan pengoperasian billing warnet dimana pengguna bisa mengetahui total harga yang harus dibayar tanpa harus menghitungnya lagi.

Input:
- Tanggal
- Nama Pengguna
- No. Komputer
- Waktu Penggunaan


Output:
- Paket Main
- Subtotal
- Kupon
- Diskon
- Total Biaya

- Biaya Main = 8.000/jam

- Paket Main
Star > 15 jam
Profesional > 8 jam
Newbie > 3 jam

- Kupon
Main > 20 jam = 4 kupon
Main > 15 jam = 3 kupon
Main > 10 jam = 2 kupon
Main > 5 jam = 1 kupon
Selain itu tidak dapat kupon

- Diskon = 5.000 untuk setiap 1 kupon


Screenshot

Cara pengisiannya adalah:
1. Mengisi tanggal, nama, dan nomer komputer yang akan digunakan
2. Mengisi lama waktu penggunaan
3. Setelah itu akan keluar paket main, subtotal, kupon, dan diskon
4. Klik button "Proses" dan akan muncul jumlah harga yang harus dibayarkan

5. Setelah selesai melakukan transaksi, klik button "Keluar" lalu klik "Yes"

Coding

Public Class Form1

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

        Dim tanggal As Integer

        tanggal = 1

        Do

            ComboBox1.Items.Add(tanggal)

            tanggal = tanggal + 1

        Loop Until tanggal > 31

        Dim tahun As Integer

        tahun = ComboBox3.Text

        For tahun = 2015 to 2000 Step -1

            ComboBox3.Items.Add(tahun)

        Next

    End Sub

    Private Sub TextBoxJam_TextChanged(sender As Object, e As EventArgs) Handles TextBoxJam.TextChanged

       

        If TextBoxJam.Text >= 15 Then

            TextBoxPaket.Text = "Star"

        ElseIf TextBoxJam.Text >= 8 Then

            TextBoxPaket.Text = "Profesional"

        ElseIf TextBoxJam.Text >= 3 Then

            TextBoxPaket.Text = "Newbie"

        End If

        Dim vjam As Integer

        vjam = TextBoxJam.Text

        TextBoxSubtotal.Text = 8000 * vjam

        Dim vj As Integer

        vj = TextBoxJam.Text

        If TextBoxJam.Text >= 20 Then

            TextBoxKupon.Text = 4

        ElseIf TextBoxJam.Text >= 15 Then

            TextBoxKupon.Text = 3

        ElseIf TextBoxJam.Text >= 10 Then

            TextBoxKupon.Text = 2

        ElseIf TextBoxJam.Text >= 5 Then

            TextBoxKupon.Text = 1

        ElseIf TextBoxJam.Text < 5 Then

            TextBoxKupon.Text = 0

        End If

    End Sub

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

        Dim vkup As Integer

        vkup = TextBoxKupon.Text

        Select Case vkup

            Case "1"

                TextBoxDiskon.Text = 5000

            Case "2"

                TextBoxDiskon.Text = 10000

            Case "3"

                TextBoxDiskon.Text = 15000

            Case "4"

                TextBoxDiskon.Text = 20000

            Case Else

                TextBoxDiskon.Text = 0

        End Select

        Dim vsub, vdis As Integer

        vsub = TextBoxSubtotal.Text

        vdis = TextBoxDiskon.Text

        TextBoxTOTAL.Text = vsub - vdis

    End Sub

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

        If MessageBox.Show("Yakin Keluar?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

            Me.Close()

        End If

    End Sub

End Class