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