UAS Lab Pemrograman Bisnis

Aplikasi Bengkel Khusus Nissan

Obed Auto Parts

Program ini dibuat dengan Aplikasi Visual Studio 2012, bertujuan untuk menampilkan data mengenai transaksi pembelian jasa service mobil spesialis Nissan yang kemudian dihubungkan dengan file CSV (Excel).

Input:

- Nama

- No Telfon

- Pilihan Servis

Output:

- Harga Servis

- Service Chart (data servis yang dipilih berikut harganya)

Screenshot

Cara penggunaan aplikasinya adalah:

1. Mengisi data nama dan nomer telfon

2. Memilih jenis servis

3. Klik tombol "Add to Chart" untuk menampilkan data servis yang dipilih berikut harganya ke ListBox

4. Klik tombol "Purchase" apabila telah sepakat untuk membeli servis tersebut, kemudian akan muncul struk pembayaran berupa MessageBox

5. Jika telah menyelesaikan transaksi tersebut, klik "OK" lalu "Quit" untuk menutup laman

Data transaksi yang dibuat tersimpan secara otomatis pada file CSV Excel seperti berikut:

Coding

Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        Dim a As String

        a = ComboBox1.Text

        If a = "Tune Up" Then

            TextBox4.Text = 2500000

        ElseIf a = "Balancing" Then

            TextBox4.Text = 250000

        ElseIf a = "Spooring" Then

            TextBox4.Text = 250000

        ElseIf a = "Checking Machine" Then

            TextBox4.Text = 600000

        ElseIf a = "Small Service" Then

            TextBox4.Text = 4000000

        ElseIf a = "Medium Service" Then

            TextBox4.Text = 8000000

        ElseIf a = "Big Service" Then

            TextBox4.Text = 12000000

        ElseIf a = "Repair All In" Then

            TextBox4.Text = 20000000

        ElseIf a = "Body Repair" Then

            TextBox4.Text = 10000000

        End If

    End Sub

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

        Dim Var4 As Object

        Dim Var3 As Object

        Dim Var2 As Object

        Dim Var1 As Object

        Dim noFile As Short

        noFile = FreeFile()

        FileOpen(noFile, "F:\Obed\Obed Auto Parts.csv", OpenMode.Append)

        Var1 = Textbox2.Text

        Var2 = TextBox3.Text

        Var3 = ComboBox1.Text

        Var4 = TextBox4.Text

        ListBox1.Items.Add(Var1 & "---" & Var2 & "---" & Var3 & "--" & Var4)

        WriteLine(1, Var1, Var2, Var3, Var4)

        FileClose(1)

    End Sub

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

        Dim Var1 As Object

        Dim Var2 As Object

        Dim noFile As Short

        noFile = FreeFile()

        FileOpen(noFile, "F:\Obed\Obed Auto Parts.csv", OpenMode.Append)

        Var1 = ComboBox1.Text

        Var2 = TextBox4.Text

        ListBox1.Items.Add(" Service: " & Var1 & " Price: " & Var2)

        WriteLine(1, Var1, Var2)

        FileClose(1)

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        MsgBox(String.Join(vbCrLf, Me.ListBox1.Items.Cast(Of String).ToArray))

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        Me.Close()

    End Sub

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

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        ComboBox1.Text = ""

        ListBox1.Items.Clear()

        TextBox2.Focus()

    End Sub

End Class

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

Tugas 1_Lab Pemrograman Bisnis_Obed Gafa Nicodemus_1406629452

Form Transkrip Kelulusan

Input
- Nilai Tugas
- Nilai Quiz
- Nilai UTS
- Nilai UAS

Output
- Nilai Akhir
- Keterangan
- Grade


Coding
Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim a, b, c, d As Integer

        a = TextBoxTugas.Text
        b = TextBoxQuiz.Text
        c = TextBoxUTS.Text
        d = TextBoxUAS.Text

        TextBoxNilaiAkhir.Text = (a * 0.2) + (b * 0.2) + (c * 0.3) + (d * 0.3)

        Dim f As Integer

        f = TextBoxNilaiAkhir.Text

        If f >= 55 Then
            textboxketerangan.text = "Lulus"
        ElseIf f < 55 Then
            textboxketerangan.text = "Gagal"
        End If

        Dim g As Integer

        g = TextBoxNilaiAkhir.Text

        If g >= 85 Then
            TextBoxGrade.Text = "A"
        ElseIf g >= 75 Then
            TextBoxGrade.Text = "B"
        ElseIf g >= 65 Then
            TextBoxGrade.Text = "C"
        ElseIf g >= 55 Then
            TextBoxGrade.Text = "D"
        ElseIf g < 55 Then
            TextBoxGrade.Text = "E"

        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBoxGrade.Text = ""
        TextBoxketerangan.Text = ""
        TextBoxNilaiAkhir.Text = ""
        TextBoxQuiz.Text = ""
        TextBoxTugas.Text = ""
        TextBoxUAS.Text = ""
        TextBoxUTS.Text = ""
        TextBox1.Focus()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

End Class